關於ASP分頁顯示問題

以下是我寫的程式

<HTML>

<HEAD><TITLE>目前的所有會員</TITLE>

</HEAD>

<!-- #include file="Session.inc" -->

<%

CheckSession()

%>

<BODY>

<body bgcolor = black>

<body text = white>

<H2>會員資料</H2>

<HR><CENTER>目前的會員資料:<HR>

<TABLE width=100% border=1><tr><th>帳號</th><th>姓名</th><th>性別</th><th>地址</th></tr>

<%

adopenstatic = 3

if request("pagenum")=" " then

pagenum = 1

else

pagenum = cint(request("pagenum"))

end if

DBFileName=Server.MapPath(".") & "\MyDB.mdb"

DBServer = "Driver= {Microsoft Access Driver (*.mdb)}; DBQ=" & DBFileName & ";"

Set rs = Server.CreateObject("ADODB.RecordSet")

SQL = "SELECT 帳號,姓名,性別,地址 FROM Vip1"

rs.Open SQL, DBServer,adopenstatic

rs.pagesize = 4

rs.absolutepage = pagenum

totalpages = rs.pagecount

totalrecords = rs.recordcount

FOR i = 1 TO rs.pagesize

if rs.eof then

exit for

end if

%>

<tr><th><%=rs("帳號")%></th><th><%=rs("姓名")%></th><th><%=rs("性別")%></th><th><%=rs("地址")%></th></tr>

<%

rs.MoveNext

NEXT

rs.close

%>

</TABLE>

全部共有<b> <%=totalrecords%> </b>筆資料,每頁顯示<b> 4 </b>筆紀錄,<br>

共分成<b> <%=totalpages%> </b>頁,目前顯示第<b><font color=yellow> <%=pagenum%> </font></b>頁

<hr><table width=75%><tr>

<td><% if not pagenum = 1 then %>

<form method="post" action="show.asp">

<input type=hidden name="pagenum" value="<%=(pagenum-1)%>">

<input name="submit" type=submit value="[上一頁]">

</form>

<% end if %></td>

<% FOR page = 1 to totalpages %>

<td><form method="post" action="show.asp">

<input type=hidden name="pagenum" value="<%=page%>">

<input type=submit value="<%=page%>">

</form></td>

<% next %>

<td><% if not pagenum = totalpages then %>

<form method="post" action="show.asp">

<input type=hidden name="pagenum" value="<%=(pagenum+1)%>">

<input type=submit value="[下一頁]">

</form>

<% end if %></td>

</tr>

<br><br>

</CENTER>

</BODY>

<a href="manager.asp">回管理介面</a>

</HTML>

每次執行卻會出現...

ADODB.Recordset (0x800A0BB9)

引數中可能發生類型錯誤、超過可接受的定義範圍、或與其他引數發生衝突。

/MyASP/list1.asp, line 22

我把第22行的" rs.absolutepage = pagenum "(設定要顯示第幾頁)拿掉之後

這是能正常運作,但是,這時候按"下一頁、上一頁、1.2.3.."都完全不能換顯示別的分頁!

請問有哪位高手可以幫忙呢!拜託了!很大的疑問....@@

已更新項目:

那請問,我寫的程式錯在哪裡勒?

因為電腦是寫錯在這...SO 拿掉看看

幫個忙吧

1 個解答

評分
  • 1 0 年前
    最佳解答

    rs.absolutepage = pagenum

    亂來!這一行拿掉,程式必死無疑! @_@

    分業程式,最重要的就是這一行。

    你拿掉這一行,電腦就不知道你目前在第幾頁?

    那麼,如何執行「上一頁」、「下一頁」呢?

    參考資料: 錯得有點離譜,你刪掉最重要的那一行程式囉
還有問題?馬上發問,尋求解答。