【WEB编程】下拉菜单做翻页的通用代码

这是一个用下拉菜单来做翻页的通用代码，我觉得这样做比较省空间，蛮好的
+ l$ X/ Q$ X+ {1 _+ u" c0 `% W其实这个代码就是老外的那个翻页插件，后来是哪位好朋友（不好意思，忘了）修改后放在论坛上的，
6 Q* }( j6 I. I; {- M& }' t5 Z还有最后一段是前后翻页的按钮，呵呵，这个还是ccjat提醒后加上的，用不用都随便咯。
7 i1 j) ]# }8 r3 k<%
3 _# \9 J! o9 |1 P% N记录集名字_total = 记录集名字.RecordCount
+ R( T" C8 J* G& u: hIf (记录集名字_numRows < 0) Then
" E8 u/ j4 _' G1 j$ v4 F+ f记录集名字_numRows = 记录集名字_total
Elseif (记录集名字_numRows = 0) Then
记录集名字_numRows = 1
7 J& ?6 z( G) s) g( QEnd If
记录集名字_first = 1
记录集名字_last = 记录集名字_first + 记录集名字_numRows - 1
If (记录集名字_total <> -1) Then
) q9 I2 Y0 }# D0 UIf (记录集名字_first > 记录集名字_total) Then 记录集名字_first = 记录集名字_total
If (记录集名字_last > 记录集名字_total) Then 记录集名字_last = 记录集名字_total
If (记录集名字_numRows > 记录集名字_total) Then 记录集名字_numRows = 记录集名字_total
7 O7 m% {! J& `* f$ I; v+ C: NEnd If
%><%
If (记录集名字_total = -1) Then
0 G3 `( \6 m7 [6 q- E7 t$ _记录集名字_total=0
7 J; T1 C. g! E. DWhile (Not 记录集名字.EOF)
- d  V& ]% i4 A1 L; o* l记录集名字_total = 记录集名字_total + 1
  H3 _9 w& z/ W记录集名字.MoveNext
Wend
( c" e2 t% q1 f! bIf (记录集名字.CursorType > 0) Then
3 z0 B2 B, c! n0 z记录集名字.MoveFirst
1 E  P) H: h2 f2 r- n& y% WElse
记录集名字.Requery
/ w* V# X. B( u6 MEnd If
If (记录集名字_numRows < 0 Or 记录集名字_numRows > 记录集名字_total) Then
记录集名字_numRows = 记录集名字_total
End If
8 R" b- N2 |. x9 E0 Y记录集名字_first = 1
记录集名字_last = 记录集名字_first + 记录集名字_numRows - 1
If (记录集名字_first > 记录集名字_total) Then 记录集名字_first = 记录集名字_total
If (记录集名字_last > 记录集名字_total) Then 记录集名字_last = 记录集名字_total
End If
%><%
6 \" i) S, D. G! a4 HSet MM_rs = 记录集名字
MM_rsCount = 记录集名字_total
: e+ b, N/ P2 e: J& XMM_size = 记录集名字_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
; i1 ~. }2 a' ]& ]! oMM_atTotal = false
6 G. b9 E. E! b: k$ r. L3 fMM_paramIsDefined = false
( f! |* c' E; {If (MM_paramName <> "") Then
9 n7 p1 d3 ?& ~0 vMM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
  J0 V% W+ A0 M7 z. `%><%
if (Not MM_paramIsDefined And MM_rsCount <> 0) then
; Y1 A' Y# t/ ?9 v7 M& x  ?r = Request.QueryString("index")
3 Q/ {% t7 s, K  `If r = "" Then r = Request.QueryString("offset")
If r <> "" Then MM_offset = Int(r)

不用这么麻烦吧。。。
感觉如下这样做应该可以：
1、先用Dreamweaver做出一个跳转菜单，跳转的名称为第N页，地址为当前的地址加?page=M
2、创建一个记录集，定义其每页显示的记录数，并设置其当前页为CInt(Request.QueryString(\"page\"))
3、利用循环读取跳转菜单中的的当前页数
# @. J3 s1 o; K+ C4 Z代码如下：只写了一下，没有测试的哦，不知道可不可以用
' I! c% C+ O7 m  |5 a
9 v, X0 r! I. A" e! e& V9 S＜%@LANGUAGE=\"VBSCRIPT\" CODEPAGE=\"936\"%＞
+ \! v9 B5 j6 U9 j$ M# h  p' \9 g# y＜!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\"＞
. y( D% y! }8 t- t- q8 W# t( c＜html＞
＜head＞
& z5 H* F- G+ {/ J0 A& v＜meta http-equiv=\"Content-Type\" content=\"text/html; charset=gb2312\"＞
＜title＞下拉菜单做翻页的通用代码＜/title＞
% B6 ?& u" k3 S- X1 y＜script language=\"JavaScript\" type=\"text/JavaScript\"＞
＜!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+\".location=‘\"+selObj.options[selObj.selectedIndex].value+\"‘\");
  if (restore) selObj.selectedIndex=0;
" b3 b4 p" y! e# K9 \" ]% s}
//--＞
＜/script＞
＜/head＞
＜body＞
' M6 {1 x1 w1 |4 ^＜!--#include file=\"conn.asp\"--＞
＜%
set rs=Server.CreateObject(\"ADODB.RecordSet\")
rs.ActiveConnection=conn
( i. r( H9 t: N: v/ q5 prs.Source=\"Select * From table\"
rs.CursorType=2
rs.Open
( e- q2 d8 q) x1 z! s( ]" M$ drs.PageSize=5‘设置每页显示的记录数
( q; p& x1 H3 b/ [1 c1 kpage=CInt(Request.QueryString(\"page\"))
rs.AbsolutePage=page
3 r8 K. m- ]% g7 H# r1 d+ q%＞
5 {+ I1 [2 X& b- x, g% l＜form name=\"form1\"＞
7 c$ H# B0 R, J  {; D! l  ＜select name=\"menu1\" onChange=\"MM_jumpMenu(‘parent‘,this,0)\"＞
  E. O' F7 ?- A7 s: G    ＜%
$ O; |) j5 q* ^; j6 i For i=1 to rs.PageCount
: r2 W; M5 ^1 \$ q ‘假设当前页为show.asp
4 C: ]4 ~1 l5 |% }1 ]& M %＞
7 x- l5 w5 s4 y: n- W ＜option value=\"show.asp?page=＜%=i%＞\"＞第＜%=i%＞页＜/option＞
＜%Next%＞
7 B" q+ i( D+ y( R& ]& Y2 ?  ＜/select＞
! \& C# R6 R7 ]0 p  o＜/form＞
4 \2 w6 [% @  O0 o3 J" i4 N: l＜/body＞
＜/html＞

老黄..你什么时候再去办公室啊,跟你学学