?? 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>
<%
'**********************************************************************
'* 程序名稱: 瑪雅自助導(dǎo)航系統(tǒng)
'* 程序功能：昨天|今天|最新|熱門|作弊|統(tǒng)計(jì)|全部
'* 英文名稱: WapLink Ver 4.5
'* 程序開發(fā): Wapcr
'* 主頁地址: http://wapcr.cn/
'* 演示地址: http://wapcr.cn/link/
'**********************************************************************
ids=Request("ids")
pag=10'顯示個站點(diǎn)
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="熱門站點(diǎn)"
case "5"
Title="最新站點(diǎn)"
case "10"
Title="待審網(wǎng)站"
case "11"
Title="待刪網(wǎng)站"
case "12"
Title="作弊站點(diǎn)"
case else
Title="更多站點(diǎn)"
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 = "暫無網(wǎng)站！<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>跳轉(zhuǎn)頁面<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 讀取網(wǎng)站底部開始
Response.write Wap.DefineContents("9")
Rem 顯示網(wǎng)站訪問
Response.write Wap.Online()
Set Wap=nothing
%>
</p>
</card>
</wml>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -