📄 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=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 + -