UC知道谁帮我在这个代码里加个分页程序啊 追50分(最高?)
来源：百度知道 编辑：UC知道 时间：2024/05/20 01:36:06
<%
yqmc=request("yqmc")
xh=request("xh")
gg=request("gg")
dj=request("dj")
gb=request("gb")
gbm=request("gbm")
cj=request("cj")
rksj=request("rksj")
ccrq=request("ccrq")
gzrq=request("gzrq")
dim conn,db,connstr,str
db="database/sb2007.mdb" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
str = " where"
if request("xh
yqmc=request("yqmc")
xh=request("xh")
gg=request("gg")
dj=request("dj")
gb=request("gb")
gbm=request("gbm")
cj=request("cj")
rksj=request("rksj")
ccrq=request("ccrq")
gzrq=request("gzrq")
dim conn,db,connstr,str
db="database/sb2007.mdb" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
str = " where"
if request("xh
Dim rs
Set rs= Server.CreateObject("ADODB.Recordset")
exec="SELECT * FROM zjb "+str
response.write exec
rs.open exec,conn,1,1
Rs.pagesize=25 '定义每页的记录数
if request("Page")<>"" then
Page=request("Page")
else
Page=1
end if
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
Rs.absolutepage=Page '定义当前是第几页
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = rs.AbsolutePage
%>
.
.
.
<%
do while not rs.eof and i<Rs.pagesize
i=i