response.ContentType="text/vnd.wap.wml;charset=gb2312"
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"%>
频道导航：
set rsc=server.createobject("adodb.recordset")
sql="select top "&SystemPicUrl&" * from ad where adtime=1 order by adhots DESC"
rsc.open sql,conn,1,1
do while not rsc.eof
%>
response.Write ""&rsc("adName")&""
%>
rsc.movenext
loop
if rsc.eof and rsc.bof then
response.write "讯网"
end if
rsc.close
set rsc=nothing
%>
set rsa=server.createobject("adodb.recordset")
sql="select top "&ggshu&" afficheid,affichename,affichecontent,affichetime from affiche order by afficheid DESC"
rsa.open sql,conn,1,1
do while not rsa.eof
%>
60 then
response.write left(rsa("affichename"),60)&"..."
else
response.write rsa("affichename")
end if%>
rsa.movenext
loop
if rsa.eof and rsa.bof then
response.write "讯网"
end if
rsa.close
set rsa=nothing
%>
sql = "SELECT * FROM class ORDER BY Classn DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,0,1
if rs.eof and rs.bof then
Response.Write"还没有分类"
else
do while not rs.eof
Response.Write""&rs("ClassName")&""
rs.movenext
loop
end if
rs.close
Set rs=Nothing
%>
推荐排行
'图片推荐排行
i=0
sql ="select top "&topshu&" * from desktop where desktophot=1"&noid&" order by desktoptime desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,0,1
if rs.eof then
noid=noid&" and desktopid"&rs("desktopid")&""
i=i+1
%>
还没有图片
do while not rs.eof and i
·
i=i+1
rs.movenext
loop
rs.close%>
点击排行：
'图片点击排行
dim rs,sql
sql ="select top "&topshu&" * from desktop order by DesktopCk DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,0,1
if rs.eof then
%>
还没有图片
i=0
do while not rs.eof and i
·
i=i+1
rs.movenext
loop
rs.close%>
最近更新：
'图片最近更新
sql ="select top "&topshu&" * from desktop order by DesktopId DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,0,1
if rs.eof then
%>
还没有图片
i=0
do while not rs.eof and i
·
i=i+1
rs.movenext
loop
rs.close%> dim top,hangpicnum
sql = "SELECT DesktopMiniPic,DesktopCk,DesktopName,DesktopId,DesktopLx FROM desktop ORDER BY DesktopId DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
Response.Write"共有 "&rs.RecordCount&" 张图片"
top=1
rs.Close
set rs=nothing
%>
set rsb=server.createobject("adodb.recordset")
sql="select top "&SystemSearchKey&" * from ad where adtime=0 order by adhots DESC"
rsb.open sql,conn,1,1
do while not rsb.eof
%>
response.Write ""&rsb("adName")&""
%>
rsb.movenext
loop
if rsb.eof and rsb.bof then
response.write "讯网"
end if
rsb.close
set rsb=nothing
%>
