📄 rollpage.asp
字号:
<BODY ><%
'设计：秦怀平
'时间：2000.11.29
'功能：取得将显示的页号和显示翻页
function getPageNo(rs)
'翻页处理
if isempty(Request("nowPage")) then
I_page=1
else
if not isnumeric(Request("nowPage")) then
I_page=1
else
if clng(Request("nowPage"))<1 then
I_page=1
else
if clng(Request("nowPage")) > rs.PageCount then
I_page=rs.PageCount
else
I_page=clng(Request("nowPage"))
end if
end if
end if
end if
getPageNo = I_page
end function
sub listPage(rs)
'显示翻页
'Sql为查询SQL语句
if rs.PageCount > 1 then
Response.Write "<div align=right>"
Response.Write "<form action='"&Request.ServerVariables("path_info")&"' method=post name=rollPageForm>"
Response.Write "共 "&rs.PageCount&" 页 第 "&getPageNo(rs)&" 页 转到"
Response.Write "<input type=text name=nowPage size=4 maxlength=4>页"
Response.Write "<input type=hidden name=mySql value="&chr(34)&Sql&chr(34)&">" '查询代码
Response.Write "<input type=hidden name=menuname value="&request("menuname")&">" '栏目名称
Response.Write "<input type=hidden name=menuid value="&request("menuid")&">" '栏目编码
Response.Write "<input type=hidden name=indexorder value="&request("indexorder")&">" '排序方式
Response.Write "<input type=hidden name=gameid value="&request("gameid")&">" '联赛编码
Response.Write "<input type=hidden name=class value="&request("class")&">" '网球分类
Response.Write "<input type=hidden name=diyclass value="&request("diyclass")&">" 'it diy情报站分类
response.Write "<input type=hidden name=picmenuname value="&request("picmenuname")&">" '图片栏目名称
Response.Write "<input type=hidden name=picmenuid value="&request("picmenuid")&"></form>" '图片栏目代码
Response.Write "</div>"
end if
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -