下拉菜单做翻页的通用代码

这是一个用下拉菜单来做翻页的通用代码，我感触如许做比拟省空间，蛮好的 本来这个代码即是老外的谁人翻页插件，厥后是哪位好伙伴（不好道理，忘了）窜改后放在乒坛上的，我还做出过插件，本来光是正片也挺简单的。再有结果一段是前后翻页的按钮，呵呵，这个仍旧ccjat指示后加上的，用不必都随意咯。

<%记载集名字_total = 记载集名字.recordcount

if (记载集名字_numrows < 0) then记载集名字_numrows = 记载集名字_totalelseif (记载集名字_numrows = 0) then记载集名字_numrows = 1end if

记载集名字_first = 1记载集名字_last = 记载集名字_first + 记载集名字_numrows - 1

if (记载集名字_total <> -1) thenif (记载集名字_first > 记载集名字_total) then 记载集名字_first = 记载集名字_totalif (记载集名字_last > 记载集名字_total) then 记载集名字_last = 记载集名字_totalif (记载集名字_numrows > 记载集名字_total) then 记载集名字_numrows = 记载集名字_totalend if%><%

if (记载集名字_total = -1) then

记载集名字_total=0while (not 记载集名字.eof)记载集名字_total = 记载集名字_total + 1记载集名字.movenextwend

if (记载集名字.cursortype > 0) then记载集名字.movefirstelse记载集名字.requeryend if

if (记载集名字_numrows < 0 or 记载集名字_numrows > 记载集名字_total) then记载集名字_numrows = 记载集名字_totalend if

记载集名字_first = 1记载集名字_last = 记载集名字_first + 记载集名字_numrows - 1if (记载集名字_first > 记载集名字_total) then 记载集名字_first = 记载集名字_totalif (记载集名字_last > 记载集名字_total) then 记载集名字_last = 记载集名字_total

end if%><%set mm_rs = 记载集名字mm_rscount = 记载集名字_totalmm_size = 记载集名字_numrowsmm_uniquecol = ""mm_paramname = ""mm_offset = 0mm_attotal = falsemm_paramisdefined = falseif (mm_paramname <> "") thenmm_paramisdefined = (request.querystring(mm_paramname) <> "")end if%><%if (not mm_paramisdefined and mm_rscount <> 0) then

r = request.querystring("index")if r = "" then r = request.querystring("offset")if r <> "" then mm_offset = int(r)

[page_break]if (mm_rscount <> -1) thenif (mm_offset >= mm_rscount or mm_offset = -1) then ' past end or move lastif ((mm_rscount mod mm_size) > 0) then ' last page not a full repeat regionmm_offset = mm_rscount - (mm_rscount mod mm_size)elsemm_offset = mm_rscount - mm_sizeend ifend ifend if

i = 0while ((not mm_rs.eof) and (i < mm_offset or mm_offset = -1))mm_rs.movenexti = i + 1wendif (mm_rs.eof) then mm_offset = i ' set mm_offset to the last possible record

end if%><%

if (mm_rscount = -1) then

i = mm_offsetwhile (not mm_rs.eof and (mm_size < 0 or i < mm_offset + mm_size))mm_rs.movenexti = i + 1wend

if (mm_rs.eof) thenmm_rscount = iif (mm_size < 0 or mm_size > mm_rscount) then mm_size = mm_rscountend if

if (mm_rs.eof and not mm_paramisdefined) thenif (mm_offset > mm_rscount - mm_size or mm_offset = -1) thenif ((mm_rscount mod mm_size) > 0) thenmm_offset = mm_rscount - (mm_rscount mod mm_size)elsemm_offset = mm_rscount - mm_sizeend ifend ifend if

if (mm_rs.cursortype > 0) thenmm_rs.movefirstelsemm_rs.requeryend if

i = 0while (not mm_rs.eof and i < mm_offset)mm_rs.movenexti = i + 1wendend if%><%

记载集名字_first = mm_offset + 1记载集名字_last = mm_offset + mm_sizeif (mm_rscount <> -1) thenif (记载集名字_first > mm_rscount) then 记载集名字_first = mm_rscountif (记载集名字_last > mm_rscount) then 记载集名字_last = mm_rscountend if

mm_attotal = (mm_rscount <> -1 and mm_offset + mm_size >= mm_rscount)%>

[page_break]<%

mm_removelist = "&index="if (mm_paramname <> "") then mm_removelist = mm_removelist & "&" & mm_paramname & "="mm_keepurl="":mm_keepform="":mm_keepboth="":mm_keepnone=""

for each item in request.querystringnextitem = "&" & item & "="if (instr(1,mm_removelist,nextitem,1) = 0) thenmm_keepurl = mm_keepurl & nextitem & server.urlencode(request.querystring(item))end ifnext

for each item in request.formnextitem = "&" & item & "="if (instr(1,mm_removelist,nextitem,1) = 0) thenmm_keepform = mm_keepform & nextitem & server.urlencode(request.form(item))end ifnext

mm_keepboth = mm_keepurl & mm_keepformif (mm_keepboth <> "") then mm_keepboth = right(mm_keepboth, len(mm_keepboth) - 1)if (mm_keepurl <> "") then mm_keepurl = right(mm_keepurl, len(mm_keepurl) - 1)if (mm_keepform <> "") then mm_keepform = right(mm_keepform, len(mm_keepform) - 1)

function mm_joinchar(firstitem)if (firstitem <> "") thenmm_joinchar = "&"elsemm_joinchar = ""end ifend function%><%mm_keepmove = mm_keepbothmm_moveparam = "index"

if (mm_size > 0) thenmm_moveparam = "offset"if (mm_keepmove <> "") thenparams = split(mm_keepmove, "&")mm_keepmove = ""for i = 0 to ubound(params)nextitem = left(params(i), instr(params(i),"=") - 1)if (strcomp(nextitem,mm_moveparam,1) <> 0) thenmm_keepmove = mm_keepmove & "&" & params(i)end ifnextif (mm_keepmove <> "") thenmm_keepmove = right(mm_keepmove, len(mm_keepmove) - 1)end ifend ifend if

if (mm_keepmove <> "") then mm_keepmove = mm_keepmove & "&"urlstr = request.servervariables("url") & "?" & mm_keepmove & mm_moveparam & "="mm_movefirst = urlstr & "0"mm_movelast = urlstr & "-1"mm_movenext = urlstr & cstr(mm_offset + mm_size)prev = mm_offset - mm_sizeif (prev < 0) then prev = 0mm_moveprev = urlstr & cstr(prev)%><script language="javascript">function jumpage(selobj,restore){eval("location='"+selobj.options[selobj.selectedindex].value+"'");if (restore) selobj.selectedindex=0;}</script>

<select name="pages" size=1 onchange="jumpage(this,0)" class="txtfld"><%tm_counter = 0for i = 1 to 记载集名字_total step mm_sizetm_counter = tm_counter + 1tm_pageendcount = i + mm_size - 1if tm_pageendcount > 记载集名字_total then tm_pageendcount = 记载集名字_totalif i <> mm_offset + 1 then%><option value="<%=request.servervariables("url") & "?" & mm_keepmove & "offset=" & i-1 %>"> 第 <%= tm_counter %> 页</option><% else %><option selected>第 <%=tm_counter%> 页</option><% end if %><% next %></select><input type="button" class="input" onclick="location.href='<%=mm_moveprev%>'" value="|" style="font-family: 'wingdings 3'" <% if mm_offset <> 0 then response.write ""else response.write "disabled"end if %>><input type="button" class="input" onclick="location.href='<%=mm_movenext%>'" value="}" style="font-family: 'wingdings 3'" <% if not mm_attotal thenresponse.write ""else response.write "disabled"end if %>>