请大家帮忙看一下我的page.asp的问题出在哪，我真是没发解决

camel_bird 2002-03-11 01:28:32

time.asp

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form" method="post" action="page.asp">
<input type=hidden name=page>
<p align="center">管理员查询界面</p>
<table width="70%" border="0" cellspacing="1" cellpadding="0" align="center" bordercolor="#000000" bgcolor="#333333">
<tr bgcolor="#FFFFFF">
<td height="31" width="13%">
<div align="center"><font size="2">时间：</font></div>
</td>

<td height="31" width="45%"><font size="2">从
<select size="1" name="by">
<%for i=2001 to year(date)+10%>
<option value="<%=i%>"<%if CStr(i)=by then%> selected<%end if%>> <%=i%></option>
<%next%>
</select>年
<select name="bm">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select>
月
<select name="bd">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select>
日</font></td>

<td height="31" width="42%"><font size="2">到
<select size="1" name="ey">
<%for i=2001 to year(date)+10%>
<option value="<%=i%>"<%if CStr(i)=ey then%> selected<%end if%>> <%=i%></option>
<%next%>
</select>
年
<select name="em">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select>
月
<select name="ed">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select>
日</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="39" width="13%"> </td>

<td height="39" width="45%"> </td>

<td height="39" width="42%"> </td>
</tr>
</table>

<div align="center"></div>
<div align="center">
<input type="submit" value="查询" name="btnSumit">
</div>
</form>
</BODY>
</HTML>

page.asp

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type"CONTENT="text/html;CHARSET=GB2312">
<TITLE>Untitled</TITLE>
</HEAD>
<BODY>
<%
Dim CONN_STRING
'如果使用DSN指定数据源用下面的语句；
'CONN_STRING = "DSN=DSNName;"

' 使用DSN-LESS方法指定数据源；
CONN_STRING = Server.MapPath("usertime.mdb")
CONN_STRING = "driver={Microsoft Access Driver (*.mdb)};dbq=" & CONN_STRING

Dim iPageSize '每页显示的记录数；
Dim iPageCount '页面总数
Dim iPageCurrent '显示的当前页面
Dim strOrderBy '按什么排序
Dim strSQL '执行的SQL语句
Dim objPagingRS 'ADODB recordset 对象
Dim iRecordsShown
Dim I '循环变量

' Get parameters
iPageSize =4 ' 每页显示4条记录，改这里即可实现任意条记录的显示；

If Request.form("page")="" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.form("page"))
End If

' 创建SQL
strSQL = "SELECT * FROM info where dateandtime between cdate('"&begtime&"') and cdate('"&endtime&"') ORDER BY "&id&";"

Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING

' 创建recordset对象，设置页面记录数；
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize

objPagingRS.CacheSize = iPageSize
' 要用Rs对象.open方法执行SQL。
objPagingRS.Open strSQL,objPagingConn,1,1

iPageCount = objPagingRS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

' 屏蔽错误，如果页面数为零，显示如下信息；
If iPageCount = 0 Then
Response.Write "没有记录！"
Else
objPagingRS.AbsolutePage = iPageCurrent
' 开始输出
%>
Page <%= iPageCurrent %> of <%= iPageCount %>
总记录:<%= objPagingRS.RecordCount %>条
<%
Response.Write "<BR><BR>" & vbCrLf
' 显示表内容，以下需要你改动了，请适应你自己的数据库结构；
Response.Write "<TABLE BORDER=""1"">" & vbCrLf
' 在表头显示字段名
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To objPagingRS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD><B>"
Response.Write objPagingRS.Fields(I).Name
Response.Write "</TD>" & vbCrLf
Next
Response.Write vbTab & "</TR>" & vbCrLf
' 循环显示所有记录，每记录一行；
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To objPagingRS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD>"
Response.Write objPagingRS.Fields(I)
Response.Write "</TD>" & vbCrLf
Next
Response.Write vbTab & "</TR>" & vbCrLf

'将已经显示的记录增加 1；
iRecordsShown = iRecordsShown + 1
'移动到下一条，使用do while ...loop循环；
objPagingRS.MoveNext
Loop
Response.Write "</TABLE>" & vbCrLf
End If
'关闭对象和连接，清空占用的内存；
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing

If iPageCurrent <> 1 Then
%><%
'#####下一句的page.asp与本文件名字相同，即全部是page.asp######
%>
<A HREF="page.asp?page=<%=iPageCurrent - 1%>&order=<%= Server.URLEncode(strOrderBy) %>">上一页</A>

<%
End If
If iPageCurrent < iPageCount Then
%>
<%
'##########下一句的page.asp与本文件名字相同，即全部是page.asp##########
%>
<A HREF="page.asp?page=<%=iPageCurrent + 1%>&order=<%= Server.URLEncode(strOrderBy) %>">下一页</A>
<%
End If
%>
</BODY>
</HTML>

...全文