您所在位置：主题：关于网页设计中数据分页显示的问题~希望高手看看问题出在哪了
fiskerqiqi [专家分：0] 发布于 2005-05-25 16:59:00
有没有高手能帮我看看问题出在哪了？
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Response.Buffer=True
IsSqlDataBase=1 '定义数据库类别，0为Access数据库，1为SQL数据库
If IsSqlDataBase=0 Then
'''''''''''''''''''''''''''''' Access数据库 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
datapath ="database/" '数据库目录的相对路径
datafile ="guestbook.mdb" '数据库的文件名
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&datapath&""&datafile&"")
'Connstr="DBQ="&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};"
SqlNowString="Now()"
SqlChar="'"
ver="5.15"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Else
'''''''''''''''''''''''''''''' SQL数据库 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SqlLocalName ="(local)" '连接IP [ 本地用 (local) 外地用IP ]
SqlUsername ="sa" '用户名
SqlPassword ="123456" '用户密码
SqlDatabaseName="fisker" '数据库名
ConnStr = "Provider=Sqloledb;User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
SqlNowString="GetDate()"
ver="5.15 SQL"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
END IF
On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
On Error GoTo 0
%>
<%
exec="select * from Address where Address4='" &request.form("Address4")& "'"
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%
rs.PageSize=50
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
%>
<%for i=1 to rs.PageSize%>
<%if rs.EOF then
exit for
end if%>
<% rs.movenext
next
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>fisker</title>
<style type="text/css">
<!--
@import url("css/css.css");
@import url("css/css_m.css");
@import url("css/main.css");
-->
</style>
</head>
<body>
<form name="form1" method="post" action="CX.asp">
<div align="center"><br>
Search:
<input type="text" name="AddressID">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
<br>
</div>
</form>
<table width="1750" border="2" cellspacing="1" cellpadding="1">
<tr align="left" valign="middle">
<td width="150" align="left" valign="middle" nowrap>AddressID</td>
<td width="150" align="left" valign="middle" nowrap>CompanyName</td>
<td width="150" align="left" valign="middle" nowrap>Address1</td>
<td width="150" align="left" valign="middle" nowrap>Address2</td>
<td width="150" align="left" valign="middle" nowrap>Address3</td>
<td width="150" align="left" valign="middle" nowrap>Address4</td>
<td width="150" align="left" valign="middle" nowrap>Postcode</td>
<td width="150" align="left" valign="middle" nowrap>CountryID</td>
<td width="150" align="left" valign="middle" nowrap>Telephone</td>
<td width="200" align="left" valign="middle" nowrap>Fax</td>
<td width="200" align="left" valign="middle" nowrap>E-mail</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<!--DWLayoutTable-->
<%do while not rs.eof%><tr>
<td height="18" colspan="11" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="1750" height="18"><table width="1750" border="2" cellspacing="1" cellpadding="1"><!--DWLayoutTable-->
<tr>
<td width="150" height="18" align="left" valign="middle" nowrap><%=rs("AddressID")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("CompanyName")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("Address1")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("Address2")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("Address3")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("Address4")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("Postcode")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("CountryID")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("Telephone")%> </td>
<td width="200" align="left" valign="middle" nowrap><%=rs("Fax")%> </td>
<td width="200" align="left" valign="middle" nowrap><%=rs("Email")%> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td width="1750" height="1"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td width="1750"></td>
</tr>
<%
rs.movenext
loop
%>
<tr>
<td colspan=3 align=right>
<% if page=1 and not page=pagecount then %>
<div align="right">第<%=page%>页 <%for i=1 to pagecount%>
<a href="AX.asp?page=<%=i%>"><%=i%></a> <%next%><a href="AX.asp?page=<%=page+1%>">下一页</a> </div>
<%elseif page=pagecount and not page=1 then%>
<div align="right">第<%=page%>页 <%for i=1 to pagecount%>
<a href="AX.asp?page=<%=i%>"><%=i%></a> <%next%><a href="AX.asp?page=<%=page-1%>">上一页</a> </div>
<%elseif page<1 then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page>pagecount then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="right">第<%=page%>页 <%for i=1 to pagecount%>
<a href="AX.asp?page=<%=i%>"><%=i%></a> <%next%><a href="AX.asp?page=<%=page-1%>">上一页</a>
<a href="AX.asp?page=<%=page+1%>">下一页</a> </div>
<%end if%>
</td>
</tr>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<form name="form1" method="post" action="CX.asp">
<div align="center"><br>
Search:
<input type="text" name="AddressID">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
<br>
</div>
</form>
</body>
</html>
这应该是个将1000+数据（SQL）按50条一页查询出来的效果~
主要问题：
1）1 2 3 4 5 6....21页的连接出错~
提示：Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
ADODB.Recordset 错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/company2/AX.asp，行55
2）结果没有将数据按50条一页的方法分页！
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Response.Buffer=True
IsSqlDataBase=1 '定义数据库类别，0为Access数据库，1为SQL数据库
If IsSqlDataBase=0 Then
'''''''''''''''''''''''''''''' Access数据库 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
datapath ="database/" '数据库目录的相对路径
datafile ="guestbook.mdb" '数据库的文件名
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&datapath&""&datafile&"")
'Connstr="DBQ="&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};"
SqlNowString="Now()"
SqlChar="'"
ver="5.15"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Else
'''''''''''''''''''''''''''''' SQL数据库 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SqlLocalName ="(local)" '连接IP [ 本地用 (local) 外地用IP ]
SqlUsername ="sa" '用户名
SqlPassword ="123456" '用户密码
SqlDatabaseName="fisker" '数据库名
ConnStr = "Provider=Sqloledb;User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
SqlNowString="GetDate()"
ver="5.15 SQL"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
END IF
On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
On Error GoTo 0
%>
<%
exec="select * from Address where Address4='" &request.form("Address4")& "'"
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%
rs.PageSize=50
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
%>
<%for i=1 to rs.PageSize%>
<%if rs.EOF then
exit for
end if%>
<% rs.movenext
next
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>fisker</title>
<style type="text/css">
<!--
@import url("css/css.css");
@import url("css/css_m.css");
@import url("css/main.css");
-->
</style>
</head>
<body>
<form name="form1" method="post" action="CX.asp">
<div align="center"><br>
Search:
<input type="text" name="AddressID">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
<br>
</div>
</form>
<table width="1750" border="2" cellspacing="1" cellpadding="1">
<tr align="left" valign="middle">
<td width="150" align="left" valign="middle" nowrap>AddressID</td>
<td width="150" align="left" valign="middle" nowrap>CompanyName</td>
<td width="150" align="left" valign="middle" nowrap>Address1</td>
<td width="150" align="left" valign="middle" nowrap>Address2</td>
<td width="150" align="left" valign="middle" nowrap>Address3</td>
<td width="150" align="left" valign="middle" nowrap>Address4</td>
<td width="150" align="left" valign="middle" nowrap>Postcode</td>
<td width="150" align="left" valign="middle" nowrap>CountryID</td>
<td width="150" align="left" valign="middle" nowrap>Telephone</td>
<td width="200" align="left" valign="middle" nowrap>Fax</td>
<td width="200" align="left" valign="middle" nowrap>E-mail</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<!--DWLayoutTable-->
<%do while not rs.eof%><tr>
<td height="18" colspan="11" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="1750" height="18"><table width="1750" border="2" cellspacing="1" cellpadding="1"><!--DWLayoutTable-->
<tr>
<td width="150" height="18" align="left" valign="middle" nowrap><%=rs("AddressID")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("CompanyName")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("Address1")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("Address2")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("Address3")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("Address4")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("Postcode")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("CountryID")%> </td>
<td width="150" align="left" valign="middle" nowrap><%=rs("Telephone")%> </td>
<td width="200" align="left" valign="middle" nowrap><%=rs("Fax")%> </td>
<td width="200" align="left" valign="middle" nowrap><%=rs("Email")%> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td width="1750" height="1"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td width="1750"></td>
</tr>
<%
rs.movenext
loop
%>
<tr>
<td colspan=3 align=right>
<% if page=1 and not page=pagecount then %>
<div align="right">第<%=page%>页 <%for i=1 to pagecount%>
<a href="AX.asp?page=<%=i%>"><%=i%></a> <%next%><a href="AX.asp?page=<%=page+1%>">下一页</a> </div>
<%elseif page=pagecount and not page=1 then%>
<div align="right">第<%=page%>页 <%for i=1 to pagecount%>
<a href="AX.asp?page=<%=i%>"><%=i%></a> <%next%><a href="AX.asp?page=<%=page-1%>">上一页</a> </div>
<%elseif page<1 then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page>pagecount then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="right">第<%=page%>页 <%for i=1 to pagecount%>
<a href="AX.asp?page=<%=i%>"><%=i%></a> <%next%><a href="AX.asp?page=<%=page-1%>">上一页</a>
<a href="AX.asp?page=<%=page+1%>">下一页</a> </div>
<%end if%>
</td>
</tr>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<form name="form1" method="post" action="CX.asp">
<div align="center"><br>
Search:
<input type="text" name="AddressID">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
<br>
</div>
</form>
</body>
</html>
这应该是个将1000+数据（SQL）按50条一页查询出来的效果~
主要问题：
1）1 2 3 4 5 6....21页的连接出错~
提示：Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
ADODB.Recordset 错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/company2/AX.asp，行55
2）结果没有将数据按50条一页的方法分页！