asp数字分页示例共三个
<%
set rs=server.CreateObject(”ADODB.recordset”)
sql =”select * from 表”
rs.open sql,conn,1,1
page=cint(request(”page”))
n=rs.RecordCount
rs.pagesize=12
m=cint(rs.pagecount)
if page=”" then
page=1
elseif page<1 then
page=1
end if
if cint(request(”page”))>m then
page=m
end if
page=cint(page)
if not rs.eof then
rs.absolutepage=page
end if
if m>page+3 then
endpage=page+3
else
endpage=m
end if
if page>4 then
pagetitle=pagetitle & “ ” & “….”
end if
for i=page-3 to endpage
if not i<1 then
if i = page then
pagetitle=pagetitle & “ ” & “<B>[” & i & “]</B>”
else
pagetitle=pagetitle & “ ” & “[” & “<a href=userlist.asp?page=” & i & “>” & i & “<a>” & “]”
end if
end if
next
if page+3 < m then
pagetitle=pagetitle & “ ” & “….”
end if
%>
您可以看到,有一个“pagetitle”的变量,您只要用
<%=pagetitle%>,就可以把它调用出来,实现您的效果。
另一个
<%
sql="Select * from [table] order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
page=cint(request("page"))
n=rs.RecordCount
PageSize=10
rs.pagesize=PageSize
m=cint(rs.pagecount)
if page="" then
page=1
elseif page<1 then
page=1
end if
if cint(request("page"))>m then
page=m
end if
相关文档:
只能输入1个数字
表达式 ^\d$
描述 匹配一个数字
匹配的例子 0,1,2,3
不匹配的例子
只能输入n个数字
表达式 ^\d{n}$ 例如^\d{8}$
描述 匹配8个数字
匹配的例子 12345678,22223334,12344321
不匹配的例子
只能输入至少n个数字
表达式 ^\d{n,}$ 例如^\d{8, ......
单位有一台闲置的旧 IBM Netfinity 7000 的服务器,双 Pentium Pro 200 MHz CPU,512 MB 内存,一个 9.1 GB 和五个 4.5 GB 的 SCSI 硬盘。我想将其废物利用一下,于是:
1. 到 http://tw.releases.ubuntu.com/edgy/ 下载 PC (Intel x86) server install CD ,将下载得到的 ubuntu-6.10-server-i386.iso 文件刻录一张 ......
这篇文章主要介绍了如何使用ASP控制Web的各种打印效果,它能够控制纵打、横打和页面边距等。
1、控制"纵打"、 "横打"和"页面的边距"。
(1)
< script defer>
function SetPrintSettings() {
// -- advanced features
factory.printing.SetMarginMeasure(2) ......
很多时候,我们采用原始的方法来解决一行内循环3张图片,如果上传者只上传了2张图片,那么2张图片间的距离会很大,因为缺少了一个<td> </td>.
<table border="0" cellpadding="0" cellspacing="0">
<%
dim rs,sqltext
set rs = Server.CreateObject("adodb.recordset")
sqltext="sel ......