?!--#include file="Head.asp"-->
 
 
<%=SearchForm()%>
 
 
公告?/font> <%=TopAffiche()%>
<%=TopNews()%>   <%=TopMessage()%>
<%=TopProducts()%>
<% TopFriendSite() %>
<% function TopAffiche() dim rs,sql,i set rs = server.createobject("adodb.recordset") sql="select ID,NewsName,SortID from NwebCn_News where ViewFlag and NoticeFlag order by id desc" rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "暂无相关信息" end if for i=1 to 4 if rs.eof then exit for response.write "·"&rs("NewsName")&"  " rs.movenext next rs.close set rs=nothing end function function TopNews() dim rs,sql,i,NewsName,NewFlag set rs = server.createobject("adodb.recordset") sql="select ID,NewsName,SortID,AddTime from NwebCn_News where ViewFlag order by id desc" rs.open sql,conn,1,1 response.write"" response.write "" if rs.bof and rs.eof then response.write "" else for i=1 to 6 if rs.eof then exit for if StrLen(rs("NewsName"))<=48 then NewsName=rs("NewsName") else NewsName=StrLeft(rs("NewsName"),46) end if if now()-rs("AddTime")<=2 then NewFlag=" " else NewFlag="" end if response.write"" rs.movenext next end if response.write "" response.write"
暂无相关信息
  4 "&NewsName&""&NewFlag&"
" rs.close set rs=nothing end function function TopMessage() dim rs,sql,i,MesName,NewFlag set rs = server.createobject("adodb.recordset") sql="select ID,MesName,AddTime from NwebCn_Message where ViewFlag order by id desc" rs.open sql,conn,1,1 response.write"" response.write "" if rs.bof and rs.eof then response.write "" else for i=1 to 6 if rs.eof then exit for if StrLen(rs("MesName"))<=46 then MesName=rs("MesName") else MesName=StrLeft(rs("MesName"),44) end if if now()-rs("AddTime")<=2 then NewFlag=" " else NewFlag="" end if response.write"" rs.movenext next end if response.write "" response.write"
暂无相关信息
  4 "&MesName&""&NewFlag&"
" rs.close set rs=nothing end function function TopProducts() dim rs,sql,i,ProductName,SmallPicPath set rs = server.createobject("adodb.recordset") sql="select ID,ProductName,SortID,SmallPic,GroupID,Exclusive from NwebCn_Products where ViewFlag and NewFlag order by id desc" rs.open sql,conn,1,1 response.write"" response.write "" if rs.bof and rs.eof then response.write "" else response.write"" for i=1 to 4 if rs.eof then exit for response.write"" rs.movenext next response.write"" end if response.write "
暂无相关信息
" if StrLen(rs("ProductName"))<=20 then ProductName=rs("ProductName") else ProductName=StrLeft(rs("ProductName"),18) end if SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive")) response.write "" &_ "
" &_ "" &_ "
 "&ProductName&"
" response.write"
" rs.close set rs=nothing end function function TopFriendSite() dim rs,sql dim i,SiteFace set rs = server.createobject("adodb.recordset") sql="select * from NwebCn_FriendSite where ViewFlag order by id desc" rs.open sql,conn,1,1 if not (rs.bof and rs.eof) then response.write "" &_ "" &_ "" for i=1 to 7 if rs.eof then exit for response.write "
" if rs("LinkType") then SiteFace="" else SiteFace=rs("SiteFace") if len(SiteFace)>8 then SiteFace=left(SiteFace,8) end if response.write "" &_ "
" &_ ""&SiteFace&"" &_ "
" rs.movenext next response.write "
" end if rs.Close set rs=nothing end function %>