📄 wap_list.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>
<card title="<%=Wap.Execute("select name from WebType where id="&Request("ids")&"")(0)%>分类">
<%
Response.write Wap.DefineContents("10")
Set Wap=Nothing
%>
</card>
</wml>
<%
Function GetList(Pag)
ids=Request("ids")
p=Cint(Request("p"))
If p="" Or p<1 Then p=1
set Rs=Server.CreateObject("ADODB.Recordset")
str="select id,siteTitle from Link where inp>="&inpc&" and IsVerify="&strTrue&" and webtype="&ids&" order by indate desc"
Rs.open str,Conn,1,2
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))
If WapChuzhan=1 Then
OutStr = OutStr & ""&((p-1)*pag+j)&".<a href=""Wap_View.asp?ids="&ids&"&p="&p&"&id="&rs("id")&""">"&Wap.Ubb(Rs("siteTitle"))&"</a><br/>"
Else
OutStr = OutStr & ""&((p-1)*pag+j)&".<a href=""Wap_Out.asp?id="&rs("id")&""">"&Wap.Ubb(Rs("siteTitle"))&"</a><br/>"
End If
Rs.MoveNext
j=j+1
loop
End If
OutStr = OutStr & "---------<br/>"
If p*pag<TotalPut Then OutStr = OutStr & "<a href=""wap_list.asp?ids=" & ids & "&p=" & p+1 & """>下页</a> "
If p>1 Then OutStr = OutStr & "<a href=""wap_list.asp?ids=" & ids & "&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_list.asp?ids="&ids&""" accept-charset=""utf-8""><postfield name=""p"" value=""$(page)""/></go></anchor><br/>---------<br/>"
End If
End If
Rs.close:set Rs=nothing
GetList = OutStr
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -