我想知道这段asp代码为什么总是在运行的时候-1

来源：百度知道 编辑：UC知道 时间：2024/06/20 14:08:17
<%
dim db,conn,connstr
Db ="wodewangzhan.asp"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
dim rs,str
set rs = server.createobject("ADODB.Recordset")
str = "select * from 361"
rs.open str,conn
rs.PageSize=3
iCount=rs.RecordCount
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request.querystring("page")
if len(page)=0 then
page=1
else
page=cint(page)
end if

if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
if rs.RecordCount>0 then
rs.AbsolutePage=page
end if

%>

<html >
<head>
<meta http-equiv="Content-Type" content="text/html;

<%
dim db,conn,connstr
Db ="wodewangzhan.asp"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
dim rs,str
set rs = server.createobject("ADODB.Recordset")
str = "select * from 361"
'------------------改的地方-------

rs.open str,conn,1,1

'-----------------------------------
rs.PageSize=3
iCount=rs.RecordCount
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request.querystring("page")
if len(page)=0 then
page=1
else
page=cint(page)
end if

if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
if rs.RecordCount>0 then
rs.AbsolutePage=page
end if

%>

<html >
<head>