asp分页后点击下一页无法运行问题!高手请进

[baobu]

从数据库中搜索数据并进行分页后,第一页能够正常运行,但点击下一页以及按照用户输入的页数运行出错,以下为相关代码:
<%if Current_Page<>1 then response.write "<a href='1_1.asp?ToPage="¤t_Page- 1&"&accord="&accord&"&cha="&cha&"'>上一页</a> "

if Current_Page<>RS.PageCount then response.write "<a href='1_1.asp?ToPage="¤t_Page+1&"&accord="&accord&"&cha="&cha&"'>下一页</a>"
%>
<form action=1_1.asp method="post">转到第
<input type="text" name="topage" style="height:15px; width:25px" value=<%=CurrentPage%>>
页<input type="submit" value="GO"></form>

在前面有两个变量accord和cha ,其值是根据上个页面用户的操作控制的,第一次取得其值的代码为:
cha=request("zhang")
accord=request("tixing")
进行"下一页"等操作后,个人认为其值变空以至不能正常运行,请问有何解决办法?

[baobu]

各位帮帮忙啊!

[dragonice]

你直接在数据库里面写个存储过程 来分页 每次点Button就传入一个新的参数

[cdsun]

具体什么错误阿

[LW1981]

你把错误信息贴出来啊，还有你这一段代码是看不出什么名堂来的，你得把进行分页显示的那段代码贴出来

[baobu]

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'RS'
/cete/main/exercises/1_1.asp, 第 96 行

[yown]

在前面加上

Current_Page=request("topage")

[baobu]

以上代码作废,改成以下代码:
<%if sql<>Empty then
set RS=Server.CreateObject("ADODB.Recordset")
RS.Open sql, DBConnection,3,1
RS.PageSize=1

TotalPages = rs.PageCount
TotalRecords = RS.RecordCount
end if
PageAction = Request.Form("PageAction")
Select Case PageAction
Case "第一题" Session("ToPage")=1
Case "上一题" Session("ToPage")=Session("Current_Page")-1
Case "下一题" Session("ToPage")=Session("Current_Page")+1
Case "最后一题" Session("ToPage")=TotalPages
Case Else Session("ToPage")=1
End Select

if Not IsEmpty(request("ToPage")) then
Topage=CInt(Request("ToPage"))
if ToPage>RS.PageCount then
RS.AbsolutePage=RS.Pagecount
elseif ToPage<=0 then
RS.AbsolutePage=1
else
RS.AbsolutePage=ToPage
end if
end if
Current_Page=RS.AbsolutePage

Response.Write "<form action=1_1.asp method=POST>"
%>
<% Response.Write "<input name=PageAction type=submit value=第一题>"
Response.Write "<input name=PageAction type=submit value=上一题>"
Response.Write "<input name=PageAction type=submit value=下一题>"
Response.Write "<input name=PageAction type=submit value=最后一题>"
Response.Write "</form>"
%>

第一页显示正常,但点击下一题等4个按钮就会显示错误
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'RS'
/cete/main/exercises/1_1.asp, 第 113 行

第 113 行:Current_Page=RS.AbsolutePage

[HAVENT]

AbsolutePage

你数据表里头怕是没有这个字段吧

[baobu]

老大,RS.AbsolutePage是返回目前所在的页数

[netwar]

<%if Current_Page<>1 then response.write "<a href='1_1.asp?ToPage="¤t_Page- 1&"&accord="&accord&"&cha="&cha&"'>上一页</a> "

if Current_Page<>RS.PageCount then response.write "<a href='1_1.asp?ToPage="¤t_Page+1&"&accord="&accord&"&cha="&cha&"'>下一页</a>"
%>
<form action=1_1.asp method="post">转到第
<input type="text" name="topage" style="height:15px; width:25px" value=<%=CurrentPage%>>
页<input type="submit" value="GO"></form>

在前面有两个变量accord和cha ,其值是根据上个页面用户的操作控制的,第一次取得其值的代码为:
cha=request("zhang")
accord=request("tixing")

把这两个变量也加到form中来就可以了
%>

'--------------------------------------------------------------
'º¯ÊýÃû³Æ:setState(obj,page)
'º¯Êý¹¦ÄÜ:ÉèÖ÷­Ò³¹¦ÄÜ
'º¯Êý²ÎÊý:obj:Êý¾Ý¼Ç¼¼¯¶ÔÏó,pageµ±Ç°Ò³Âë
' LinkHref:Á´½ÓµÄÏà¹Ø·¾¶
' LinkString:Á´½ÓµÄÏà¹Ø²ÎÊý
'-------------------------------------------------------------
function setState(obj,page,LinkHref,LinkString)
if clng(page)<=1 then
flag1 = "N"
firstPage = "disabled"
prevPage = "disabled"
Flink = PLink = "return false;"
end if

if clng(page)>=clng(obj.pagecount) then
flag2= "N"
nextpage = "disabled"
lastpage = "disabled"
Nlink = Llink = " return false;"
end if

if Linkhref="" then Linkhref="index.asp"
if MyAlign="" then MyAlign="right"
if isText then
TRstyle = "style=color:white"
else
TRstyle = "style=color:black"
end if
Response.write "<table border=0 width=""100%""valign=center>"
Response.write " <form action=""" & LinkHref & """ method=""post"" name=""frm00"">"
Response.write " <tr height=22 " & TRstyle & ">"
Response.write " <input type=hidden name='ClassID' value='" & ClassID & "'>"
Response.write " <input type=hidden name='ClassName' value='" & ClassName & "'>"
Response.write " <input type=hidden name='ParentID' value='" & ParentID & "'>"
Response.write " <input type=hidden name='strKeyWords' value='" & strKeyWords & "'>"
Response.write " <td align=" & MyAlign & "><font class=tip>Ò³Âë:<font class=tip>" & page & "/" & obj.pagecount & "</font> "
Response.write " ¼Ç¼Êý:" & obj.recordcount & " <input type=""hidden"" name=""page"" value='" & page & "'>"
if not isText then
Response.write " <input " & firstPage & " class=""BTN_1"" type=""button"" value=""Ê×Ò³"" onclick=""javascript:setPage(1);"">"
Response.write " <input " & PrevPage & " class=""BTN_1"" type=""button"" value=""ÉÏÒ³"" onclick=""javascript:setPage('" & page-1 & "');"">"
Response.write " <input " & nextPage & " class=""BTN_1"" type=""button"" value=""ÏÂÒ³"" onclick=""javascript:setPage('" & page+1 & "');"">"
Response.write " <input " & LastPage & " class=""BTN_1"" type=""button"" value=""Ä©Ò³"" onclick=""javascript:setPage('" & obj.pagecount & "');"">"
else

if flag1="N" then
Response.write " Ê×Ò³"
Response.write " ÉÏÒ³"
else
Response.write " <A " & TRstyle & " class=Mytip href=""#"" onclick=""javascript:" & Flink & ";setPage(1);"">Ê×Ò³</a>"
Response.write " <A " & TRstyle & " class=Mytip href=""#"" onclick=""javascript:" & Plink & ";setPage('" & page-1 & "');"">ÉÏÒ³</a>"
end if

if flag2="N" then
Response.write " ÏÂÒ³"
Response.write " Ä©Ò³"
else
Response.write " <A " & TRstyle & " href=""#"" onclick=""javascript:" & Nlink & ";setPage('" & page+1 & "');"">ÏÂÒ³</a>"
Response.write " <A " & TRstyle & " href=""#"" onclick=""javascript:" & Llink & ";setPage('" & obj.pagecount & "');"">Ä©Ò³</a>"
end if
end if
Response.write "  Ìøµ½:<select name='go' size=1 onchange='setPage(this.value);'>"
for k=1 to obj.pagecount
if k = clng(page) then
sel = "selected"
else
sel = ""
end if
response.write "<option " & sel & " value='" & k & "'>µÚ" & k & "Ò³</option>"
next
Response.write " </select></font>"
Response.write " </td>"
Response.write " </tr>"
Response.write " </form>"
Response.write " </table>"
end function