📄 index3.asp

📁 7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。
💻 ASP
字号:
<!--#include file="conn.asp" -->
<!--#include file="inc/ubbcode1.asp" --><% 
response.ContentType="text/vnd.wap.wml;charset=gb2312"
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"%><?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"><wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card id="<%=SystemWebSite%>" title="<%=SystemWebSite%>">
<img src='<%=Systemlogo%>'  width='122' height='35'/><br />
频道导航：<br />
<%
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 "<a href='"&rsc("adContent")&"'>"&rsc("adName")&"</a><br />"
%>

 <%
   rsc.movenext
   loop
   if rsc.eof and rsc.bof then
   response.write "<a href='http://www.sun116.net/wap.asp'>讯网</a>"
   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
%> 
<a href="wapad.asp?id=<%=rsa("afficheid")%>"> 
 <%if len(rsa("affichename"))>60 then
response.write left(rsa("affichename"),60)&"..."
else
response.write rsa("affichename")
end if%>
</a><br />
 <%
   rsa.movenext
   loop
   if rsa.eof and rsa.bof then
   response.write "<a href='http://www.sun116.net/wap.asp'>讯网</a>"
   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"<a href='wapclass.asp?classid="&rs("ClassId")&"'>"&rs("ClassName")&"</a><br />"
rs.movenext
loop
end if
rs.close
Set rs=Nothing
%>
<br />推荐排行<br /> 
<%
'图片推荐排行 
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
%>
还没有图片<%end if %>
<%
do while not rs.eof and i<=10 %>
·<a href="wapDISPLAY.asp?id=<%=rs("DesktopId")%>" target="_blank"><%=left(rs("DesktopName"),15)%></a><br />
<%
i=i+1
rs.movenext
loop
rs.close%>
<br />点击排行：<br />   
<%
'图片点击排行
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                
%>
还没有图片<%end if %>
<%
i=0
do while not rs.eof and i<=5 %>
·<a href="wapDISPLAY.asp?id=<%=rs("DesktopId")%>" target="_blank"><%=left(rs("DesktopName"),10)%></a><br />
<%
i=i+1
rs.movenext
loop
rs.close%>
<br />最近更新：<br />   
<%
'图片最近更新
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                
%>
还没有图片<br /><%end if %>
<%
i=0
do while not rs.eof and i<=5 %>
·<a href="wapDISPLAY.asp?id=<%=rs("DesktopId")%>" target="_blank"><%=left(rs("DesktopName"),10)%></a><br />
<%
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
%><br />

<%
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 "<a href='"&rsb("adContent")&"'>"&rsb("adName")&"</a><br />"
%>

 <%
   rsb.movenext
   loop
   if rsb.eof and rsb.bof then
   response.write "<a href='http://www.sun116.net/wap.asp'>讯网</a>"
   end if
   rsb.close
   set rsb=nothing
   %>
</card>
</wml>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -