📄 classmore.asp
字号:
<%response.buffer=true%><% Response.ContentType="text/vnd.wap.wml" %>
<!--#INCLUDE VIRTUAL="/data/conn.asp"-->
<?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="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>
<card id="card1" title="<%=mywapname%>"><p>
<%
dim classids
classids=request.querystring("classes")
set rst=server.createobject("ADODB.Recordset")
Sql="select * from class where classid="&classids
rst.open Sql,conn,1,1
%>
【<%=rst("ClassName")%>】<br/>
－－－－－<br/>
<%
rst.close
set rst=nothing
set objgbrs=Server.CreateObject("ADODB.Recordset")
if request.querystring("main")="" then
strtmp=""
else
strtmp=" and adminid='" & request.querystring("main") &"'"
end if
sql="Update sites set IsViewSite=false WHERE DATEDIFF('d', fromtime, now()) > "& myunionautohideday & strtmp
conn.Execute sql
sql="Delete FROM sites WHERE DATEDIFF('d', fromtime, now()) > "& myunionautodelday & strtmp
conn.Execute sql
conn.CommandTimeOut = 999
ssql="select id,sitename,fromall,fromtime from sites where siteclass="& classids &" order by fromall desc "
objgbrs.open ssql,conn,1,1
objgbrs.PageSize=myunionpagesize
page=CLng(Request("page"))
if page<1 then
page=1
End if
if page>objgbrs.pagecount then
page=objgbrs.pagecount
End if
if objgbrs.eof then
Response.write mytitle & "<br/>－－－－－<br/>"
Response.write "当前没有找到相关站点…<br/>"
Response.write "－－－－－<br/>"
Else
objgbrs.absolutepage=page
if page=1 then
bihao=0
else
bihao=page*myunionpagesize-myunionpagesize
End if
For i=1 to objgbrs.PageSize
id=objgbrs("id")
bihaocont=bihaocont+1
'==========================================
'显示序号
'Response.write bihao+bihaocont & "."
'==========================================
Response.write "<a href='turnto.asp?id=" & objgbrs("id") & "'>" & objgbrs("sitename") &"</a>" '&(" & objgbrs("fromall") & ")"
if Session("union")=mywaphost then
Response.write " <small><br/></small>"
else
Response.write "<br/>"
End if
objgbrs.Movenext
if objgbrs.EOF then Exit for
Next
response.write "<br/>－－－－－<br/>"
If Page<objgbrs.PageCount then
Response.Write "<a href='classmore.asp?classes="&classids&"&page=" & (page+1) & "'>下页</a>"
End if
If page>1 then
Response.Write " <a href='classmore.asp?classes="&classids&"&page=" & (page-1) & "'>上页</a>"
End if
if objgbrs.PageCount>1 then
response.write "<br/>" & Page & "/" & objgbrs.PageCount & "" '& "共" & objgbrs.RecordCount & "个"
response.write "到<input name='page' title='输入页码' type='text' format='*N' emptyok='true' size='2' maxlength='3' value='"&(page+1)&"' />页<a href='classmore.asp?classes="&classids&"&page=$(page)'>GO</a>"
response.write "<br/>"
if tip <> "" then
response.write tip & "<br/>"
end if
End if
End If
Response.write "<br/><a href='"& mywaphome &"'>" &mywapname&"</a>"
Response.write "<br/><b>"& mywaphost &" </b>"
Response.write "<br/></p></card></wml>"
objgbrs.close
Set objgbrs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -