<% set SEORs=Conn.execute("select * from SEO where ID=1") %> <%=SEORs("Title")%> " name="description"> " name="keywords"> "> "><% SEORs.close set SEORs=nothing %> <% If FuDongQQ=1 Then %> <% End If %>
更多
校庆动态 校庆公告 更多
    <% set News_Rs=server.CreateObject("adodb.recordset") News_Sql="select top 6 * from News_Six where Fb=True order by zd asc, tj asc, px desc, AddDate desc, ID desc" News_Rs.open News_Sql,conn,1,2 if News_Rs.bof and News_Rs.eof then response.Write("没有相关信息!!!") else do while not News_Rs.eof %>
  • "><%= strvalue(News_Rs("title"),40) %><%= FormatTime(News_Rs("AddDate"),2) %>
  • <% News_Rs.movenext loop end if News_Rs.close set News_Rs=nothing %>
    <% set rs=server.CreateObject("adodb.recordset") sql="select top 6 * from Storefront where Fb=true order by px desc, id desc" rs.open sql,conn,1,2 if rs.bof and rs.eof then response.Write("没有相关信息!!!") else do while not rs.eof %>
  • "><%= strvalue(rs("title"),40) %><%= FormatTime(rs("AddDate"),2) %>
  • <% rs.movenext loop end if rs.close set rs=nothing %>
图片
<% set NewsTopImg_Rs=server.CreateObject("adodb.recordset") NewsTopImg_Sql="select top 1 * from News where DefaultPicUrl<>'/Images/nopic.gif' and SummaryC<>'' and Fb=True order by zd asc, tj asc, px desc, AddDate desc, ID desc" NewsTopImg_Rs.open NewsTopImg_Sql,conn,1,2 if NewsTopImg_Rs.bof and NewsTopImg_Rs.eof then response.Write("
没有相关信息!!!
") else %> <% NewsTopImgID=NewsTopImg_Rs("ID") end If %>
    <% set News_Rs=server.CreateObject("adodb.recordset") News_Sql="select top 4 * from News where ID<>"&NewsTopImgID&" and Fb=True order by zd asc, tj asc, px desc, AddDate desc, ID desc" News_Rs.open News_Sql,conn,1,2 if News_Rs.bof and News_Rs.eof then response.Write("没有相关信息!!!") else for w=1 to News_Rs.recordcount %>
  • " title="<%= News_Rs("title") %>" target="_blank"><%= strvalue(News_Rs("title"),44) %>
  • <% News_Rs.movenext next end if News_Rs.close set News_Rs=nothing %>
    <% set News_Rs=server.CreateObject("adodb.recordset") News_Sql="select top 6 * from News_One where Fb=True order by zd asc, tj asc, px desc, AddDate desc, ID desc" News_Rs.open News_Sql,conn,1,2 if News_Rs.bof and News_Rs.eof then response.Write("没有相关信息!!!") else do while not News_Rs.eof %>
  • " class="font-e fl"><%= strvalue(News_Rs("title"),32) %><%= FormatTime(News_Rs("AddDate"),2) %>
  • <% News_Rs.movenext loop end if News_Rs.close set News_Rs=nothing %>
扫描二维码
手机关注60周年校庆
    <% set News_Rs=server.CreateObject("adodb.recordset") News_Sql="select top 30 * from Feedback order by Time desc, ID desc" News_Rs.open News_Sql,conn,1,2 if News_Rs.bof and News_Rs.eof then response.Write("没有相关信息!!!") else do while not News_Rs.eof %>
  • <%= FormatTime(News_Rs("Time"),2) %><%= strvalue(News_Rs("Title"),32) %>
  • <% News_Rs.movenext loop end if News_Rs.close set News_Rs=nothing %>
<% set NewsTopImg_Rs=server.CreateObject("adodb.recordset") NewsTopImg_Sql="select top 2 * from News_Two where DefaultPicUrl<>'/Images/nopic.gif' and SummaryC<>'' and Fb=True order by zd asc, tj asc, px desc, AddDate desc, ID desc" NewsTopImg_Rs.open NewsTopImg_Sql,conn,1,2 if NewsTopImg_Rs.bof and NewsTopImg_Rs.eof then response.Write("
没有相关信息!!!
") else do while not NewsTopImg_Rs.eof %>
" target="_blank">" />

"><%= NewsTopImg_Rs("Title") %>

<%= strvalue(NewsTopImg_Rs("SummaryC"),88) %>

<% NewsTopImg_Rs.movenext %>

"><%= NewsTopImg_Rs("Title") %>

<%= strvalue(NewsTopImg_Rs("SummaryC"),88) %>

" target="_blank">" />
<% NewsTopImg_Rs.movenext loop end If NewsTopImg_Rs.close set NewsTopImg_Rs=nothing %>
    <% set NewsTopImg_Rs=server.CreateObject("adodb.recordset") NewsTopImg_Sql="select top 20 * from News_Five where DefaultPicUrl<>'/Images/nopic.gif' and Fb=True order by zd asc, tj asc, px desc, AddDate desc, ID desc" NewsTopImg_Rs.open NewsTopImg_Sql,conn,1,2 if NewsTopImg_Rs.bof and NewsTopImg_Rs.eof then response.Write("
    没有相关信息!!!
    ") else do while not NewsTopImg_Rs.eof %>
  • " title="<%= NewsTopImg_Rs("Title") %>">" width="241" height="170" alt="<%= NewsTopImg_Rs("Title") %>"/>
  • <% NewsTopImg_Rs.movenext loop end If NewsTopImg_Rs.close set NewsTopImg_Rs=nothing %>
    <% set prors=server.CreateObject("adodb.recordset") Pro_Sql="select top 40 * from Product where Passed=True order by TuiJian asc, zd asc, px desc, UpdateTime desc, ID desc" prors.open Pro_Sql,conn,1,2 if prors.bof and prors.eof then response.Write("没有相关信息!!!") else do while not prors.eof if prors.eof then exit do %>
  • <% prors.movenext if prors.eof then exit do loop end if prors.close set prors=nothing %>