📄 wap_all.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>
<!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="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<%
'**********************************************************************
'* 程序名称: 玛雅自助导航系统
'* 程序功能：昨天|今天|最新|热门|作弊|统计|全部
'* 英文名称: WapLink Ver 4.5
'* 程序开发: Wapcr
'* 主页地址: http://wapcr.cn/
'* 演示地址: http://wapcr.cn/link/
'**********************************************************************
ids=Request("ids")
pag=10'显示个站点
p=Cint(Request("p"))
if p="" or p<1 then p=1
Action=Request("Action")
Select Case Action
case "1"
Title="昨日最多"
case "2"
Title="今日最多"
case "3"
Title="最多连入"
case "4"
Title="热门站点"
case "5"
Title="最新站点"
case "10"
Title="待审网站"
case "11"
Title="待删网站"
case "12"
Title="作弊站点"
case else
Title="更多站点"
end select
%>
<card title="<%=Title%>">
<p>
<%
Select Case Action
case "1"
pl="inru desc"
Param="where inp>="&inpc&" And IsVerify="&strTrue&""
case "2"
pl="inj desc"
Param="where inp>="&inpc&" And IsVerify="&strTrue&""
case "3"
pl="inc desc"
Param="where inp>="&inpc&" And IsVerify="&strTrue&""
case "4"
pl="outc desc"
Param="where inp>="&inpc&" And IsVerify="&strTrue&""
case "5"
pl="dateandtime desc"
Param="where inp>="&inpc&" And IsVerify="&strTrue&""
case "10"
pl="indate asc"
Param="where IsVerify="&strFalse&""
case "11"
pl="indate asc"
Param="where inp>="&inpc&" And IsVerify="&strTrue&" And DATEDIFF('s', indate, now()) > 10080*60"
case "12"
pl="wuxiao desc"
Param="where IsVerify="&strTrue&" And wuxiao > 50"
case else
pl="indate desc"
Param="where inp>="&inpc&" And IsVerify="&strTrue&""
End Select
set Rs=Server.CreateObject("ADODB.Recordset")
sql="select id,UserName,siteTitle,wuxiao from Link "& Param &" order by "&pl&""
Rs.open sql,Conn,1,3
If Rs.eof Then
OutStr = "暂无网站！<br/>"
Else
TotalPut=Rs.Recordcount
MaxPage=int((TotalPut-1)/pag)+1
If p>MaxPage Then p=MaxPage
If TotalPut > 0 Then
Rs.Move((p-1)*pag)
dim j
j=1
do while ((not Rs.EOF) And j<=clng(pag))
OutStr = OutStr & ""&((p-1)*pag+j)&"."
If Action=10 or Action=11 Then
OutStr = OutStr & Wap.Ubb(Rs("siteTitle"))
ElseIf Action=12 Then
OutStr = OutStr & "帐号:"&Rs("UserName")&" "
OutStr = OutStr & Wap.Ubb(Rs("siteTitle"))&"["&Rs("wuxiao")&"/次]"
Else
If Rs("isverify")=strTrue Then
If WapChuzhan=1 Then
OutStr = OutStr & "<a href='Wap_View.asp?ids="&ids&"&p="&p&"&id="&rs("id")&"'>"&Wap.Ubb(rs("siteTitle"))&"</a>"
Else
OutStr = OutStr & "<a href='Wap_Out.asp?id="&rs("id")&"'>"&Wap.Ubb(rs("siteTitle"))&"</a>"
End If
Else
OutStr = OutStr & Wap.Ubb(Rs("siteTitle"))
End If
End If
OutStr = OutStr &"<br/>"
Rs.MoveNext
j=j+1
loop
End If
If p*pag<TotalPut Then OutStr = OutStr & "<a href=""Wap_All.asp?Action=" & Action & "&p=" & p+1 & """>[下页]</a>"
If p>1 Then OutStr = OutStr &"<a href=""Wap_All.asp?Action=" & Action & "&p=" & p-1 & """>[上页]</a>"
If p*pag<TotalPut or p>1 Then OutStr = OutStr &"(" & p & "/" & (int((TotalPut-1)/pag)+1) & ")<br/>"
If p*pag<TotalPut or p>1 Then
If p>=MaxPage Then
O=p-1
Else
O=p+1
End If
OutStr = OutStr & "<input name=""page"" type=""text"" format=""*N"" emptyok=""true"" size=""3"" maxlength=""4"" value="""&O&""" />"
OutStr = OutStr & "<anchor>跳转页面<go href=""Wap_All.asp?Action="&Action&""" accept-charset=""utf-8""><postfield name=""p"" value=""$(page)""/></go></anchor><br/>"
End If
End If
Rs.close:set Rs=nothing
Response.write OutStr
%>
---------<br/>
<a href="Wap_Addlink.asp">申请链接</a><br/>
<a href="index.asp"><%=ChannelName%></a><br/>
<%
Rem 显示整合后的返回首页
If WapZhenghe=1 Then Response.write "<a href="""&WapUrl&""">返回首页</a><br/>"
Rem 读取网站底部开始
Response.write Wap.DefineContents("9")
Rem 显示网站访问
Response.write Wap.Online()
Set Wap=nothing
%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -