<body >
<%
dim chubannianyue
dim var '传给allinfo.asp的参数
dim pages '查询的记录共有多少条记录?
dim maxcounts '每页需要放多少条记录
dim currentpage '当前页数
dim recordcounts '总记录数
maxcounts=30
if isempty(Request.QueryString("chubannianyuenext")) then
chubannianyue=trim(Request.Form("chubannianyue"))
else
chubannianyue=Request.QueryString("chubannianyuenext")
end if
chubannianyue=datevalue(chubannianyue)
dim chubannianyuenext '给下一次调用该页的时候传递chubannianyue的值
'chubannianyue=Request.Form("chubannianyue")
if not isempty(Request.QueryString("currentpage")) then
currentpage=cint(Request.QueryString("currentpage"))
else
currentpage=1
end if
set rs1=Server.CreateObject("ADODB.RecordSet")
str1="select * from tsk where 出版年月= '%"&chubannianyue&"%'"
rs1.open str1 ,"DSN=library",3,3**********************************************************************************36行
if not rs1.EOF then
recordcounts=rs1.recordcount
pages=cint(recordcounts/maxcounts +1)
%>
<table width=760 border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#CCFFFF" height="24" width=760>
<div align="left"><font color="#000099">共有<%=recordcounts%>条记录,当前是第<%=currentpage%>页 我要到第
<%
dim j
j=1
while j<=pages