一个ASP的问题。请大家帮忙@@@@@@@@@@

KylinFire 2003-12-02 07:30:46

为什么老是出现错误 '80020009'在第二页以后。
<%
Server.ScriptTimeout="10"
dburl="/Database/SiteDB.mdb"
connstr="ProVider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dburl)
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link rel="stylesheet" type="text/css" href="../css/Station.css">
</head>

<body>
<p align="center"><font face="华文行楷"><b><font size="6">购物商城</font></b></font></p>
<div class=clsTocItem1>
<table border="2" align=center width="80%">
<%
Dim sql
dim OutStr
Dim ArtUrl
OutStr=""
sql="Select * from eShop"
Set ShopRec=Server.CreateObject("ADODB.RecordSet")
ShopRec.Open sql,connstr,1
RedCount=ShopRec.RecordCount
PageSet=12
If (RedCount Mod PageSet)>=6 Then
TotalPage=RedCount\PageSet
Else
TotalPage=(RedCount\PageSet)+1
End If
if (Request.QueryString("PageID")="") then
if TotalPage>1 then
for i=1 to 4
OutStr="<tr><td align=center><a href=" & chr(34) & "Display.asp?ProID=" & ShopRec("ProID") & chr(34) & "target=" & chr(34) & "mainFrame" & chr(34) & "><img border=" & chr(34) & "0" & chr(34) & "src=" & chr(34) & "Picture/" & ShopRec("PicUrl") & chr(34) & "></a><br><a href=" & chr(34) & "Display.asp?ProID=" & ShopRec("ProID") & chr(34) & "target=" & chr(34) & "mainFrame" & chr(34) & ">" & ShopRec("Name") & "</a><br>" & ShopRec("Price") & "元.<br>" &ShopRec("Tra")& "</td>"
Response.Write(OutStr)
OutStr=""
ShopRec.MoveNext
OutStr="<td align=center><a href=" & chr(34) & "Display.asp?ProID=" & ShopRec("ProID") & chr(34) & "target=" & chr(34) & "mainFrame" & chr(34) & "><img border=" & chr(34) & "0" & chr(34) & "src=" & chr(34) & "Picture/" & ShopRec("PicUrl") & chr(34) & "></a><br><a href=" & chr(34) & "Display.asp?ProID=" & ShopRec("ProID") & chr(34) & "target=" & chr(34) & "mainFrame" & chr(34) & ">" & ShopRec("Name") & "</a><br>" & ShopRec("Price") & "元.<br>" &ShopRec("Tra")& "</td>"
Response.Write(OutStr)
OutStr=""
ShopRec.MoveNext
OutStr="<td align=center><a href=" & chr(34) & "Display.asp?ProID=" & ShopRec("ProID") & chr(34) & "target=" & chr(34) & "mainFrame" & chr(34) & "><img border=" & chr(34) & "0" & chr(34) & "src=" & chr(34) & "Picture/" & ShopRec("PicUrl") & chr(34) & "></a><br><a href=" & chr(34) & "Display.asp?ProID=" & ShopRec("ProID") & chr(34) & "target=" & chr(34) & "mainFrame" & chr(34) & ">" & ShopRec("Name") & "</a><br>" & ShopRec("Price") & "元.<br>" &ShopRec("Tra")& "</td></tr>"
Response.Write(OutStr)
OutStr=""
ShopRec.MoveNext

next

else
for i=1 to RedCount
OutStr="<tr><td align=center><a href=" & chr(34) & "Display.asp?ProID=" & ShopRec("ProID") & chr(34) & "target=" & chr(34) & "mainFrame" & chr(34) & "><img border=" & chr(34) & "0" & chr(34) & "src=" & chr(34) & "Picture/" & ShopRec("PicUrl") & chr(34) & "></a><br><a href=" & chr(34) & "Display.asp?ProID=" & ShopRec("ProID") & chr(34) & "target=" & chr(34) & "mainFrame" & chr(34) & ">" & ShopRec("Name") & "</a><br>" & ShopRec("Price") & "元.<br>" &ShopRec("Tra")& "</td></tr>"
Response.Write(OutStr)
OutStr=""
ShopRec.MoveNext
next
end if
else
PageNum=CInt(Request.QueryString("PageID"))
ShopRec.Move((PageNum-1)*PageSet+1)
for i=1 to 12
OutStr="<tr><td align=center><a href=" & chr(34) & "Display.asp?ProID=" & ShopRec("ProID") & chr(34) & "target=" & chr(34) & "mainFrame" & chr(34) & "><img border=" & chr(34) & "0" & chr(34) & "src=" & chr(34) & "Picture/" & ShopRec("PicUrl") & chr(34) & "></a><br><a href=" & chr(34) & "Display.asp?ProID=" & ShopRec("ProID") & chr(34) & "target=" & chr(34) & "mainFrame" & chr(34) & ">" & ShopRec("Name") & "</a><br>" & ShopRec("Price") & "元.<br>" &ShopRec("Tra")& "</td></tr>"
Response.Write(OutStr)
OutStr=""
if (ShopRec.EOF=True) then
Exit For
end if
ShopRec.MoveNext
next
end if

%>
</table>
</div>
<table border="0" align=center width="80%"><tr><td>
<p align=right><font size="2">
<a href=javascript:history.go(-1)>后退</a>总页数为:
<%
for x=1 to (TotalPage)
PagStr="<a href=Default.asp?PageID="&x&"> "&x&" </a>"
Response.Write(PagStr)
next
%>
</font></p></td></tr></table>

</body>

</html>
<%
ShopRec.Close
Set ShopRec=Nothing
%>

...全文