<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
dim currentpage \'定义当前页
dim filename \'文件名
Const MaxPerPage=20 \'每页显示
记录个数dim totalnumber \'记录总数
filename=\"showpages.asp\"
totalnumber=200 \'设置记录总数为200
not isempty(request(\"page\")) thencurrentPage=c
(request(\"page\"))
currentPage=1
end
showpages totalnumber,MaxPerPage,filename
%>
</BODY>
</HTML>
<%\'定义分页
以totalnumbermaxperpagefilename作为入口
function showpages(totalnumber,maxperpage,filename)
dim n
totalnumber mod maxperpage=0 thenn= totalnumber maxperpage
n= totalnumber maxperpage+1
end
response.write \"<form method=Post action=\"&filename&\">\"
response.write \"<p align=\'center\'>记录分页 \"
CurrentPage<2 thenresponse.write \"<font color=\'999966\'>首页 上
页</font> \"response.write \"<a href=\"&filename&\"?page=1>首页</a> \"
response.write \"<a href=\"&filename&\"?page=\"&CurrentPage-1&\">上
页</a> \"end
n-currentpage<1 thenresponse.write \"<font color=\'999966\'>下
页 尾页</font>\"response.write \"<a href=\"&filename&\"?page=\"&(CurrentPage+1)
response.write \">下
页</a> <a href=\"&filename&\"?page=\"&n&\">尾页</a>\"end
response.write \" 页次:<strong><font color=red>\"&CurrentPage&\"</font>/\"&n&\"</strong>页 \"
response.write \" 转到:<input type=\'text\' name=\'page\' size=4 maxlength=10
=smallInput value=\"¤tpage&\">\"
response.write \"<input
=buttonface type=\'submit\' value=\' Goto \' name=\'cndok\'></span></p></form>\"end function
%>
<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
dim currentpage \'定义当前页
dim filename \'文件名
Const MaxPerPage=20 \'每页显示
记录个数dim totalnumber \'记录总数
filename=\"showpages.asp\"
totalnumber=200 \'设置记录总数为200
not isempty(request(\"page\")) thencurrentPage=c
(request(\"page\"))currentPage=1
end
showpages totalnumber,MaxPerPage,filename
%>
</BODY>
</HTML>
<%\'定义分页
以totalnumbermaxperpagefilename作为入口function showpages
dim n
(totalnumber mod MaxPerPage)=0 thenn= totalPut MaxPerPage
n= totalPut MaxPerPage + 1
end
n=1 then exit sub
end
dim k
response.write \"<p align=\'left\'>>> 分页 \"
for k=1 to n
k=currentPage thenresponse.write \"[<b>\"+Cstr(k)+\"</b>] \"
response.write \"[<b>\"+\"<a href=\"&filename&\"?page=\"+cstr(k)+\">\"+Cstr(k)+\"</a></b>] \"
end
next
response.write \"</p>\"
end function
%>
最新评论