ASP教程之ASP技能：下拉菜单做翻页的通用代码

只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天菜单|翻页|技能|通用代码|下拉　　实在这个代码就是老外的谁人翻页插件，厥后是哪位好伴侣（欠好意义，忘了）修正后放在论坛上的，我还做成过插件，实在光是拷贝也挺便利的。另有最初一段是前后翻页的按钮，呵呵，这个仍是ccjat提示后加上的，用不必都任意咯。
<%
纪录集名字_total=纪录集名字.RecordCount
If(纪录集名字_numRows<0)Then
纪录集名字_numRows=纪录集名字_total
Elseif(纪录集名字_numRows=0)Then
纪录集名字_numRows=1
EndIf
纪录集名字_first=1
纪录集名字_last=纪录集名字_first+纪录集名字_numRows-1
If(纪录集名字_total-1)Then
If(纪录集名字_first>纪录集名字_total)Then纪录集名字_first=纪录集名字_total
If(纪录集名字_last>纪录集名字_total)Then纪录集名字_last=纪录集名字_total
If(纪录集名字_numRows>纪录集名字_total)Then纪录集名字_numRows=纪录集名字_total
EndIf
%>
<%
If(纪录集名字_total=-1)Then
纪录集名字_total=0
While(Not纪录集名字.EOF)
纪录集名字_total=纪录集名字_total+1
纪录集名字.MoveNext
Wend
If(纪录集名字.CursorType>0)Then
纪录集名字.MoveFirst
Else
纪录集名字.Requery
EndIf
If(纪录集名字_numRows<0Or纪录集名字_numRows>纪录集名字_total)Then
纪录集名字_numRows=纪录集名字_total
EndIf
纪录集名字_first=1
纪录集名字_last=纪录集名字_first+纪录集名字_numRows-1
If(纪录集名字_first>纪录集名字_total)Then纪录集名字_first=纪录集名字_total
If(纪录集名字_last>纪录集名字_total)Then纪录集名字_last=纪录集名字_total
EndIf
%>
<%
SetMM_rs=纪录集名字
MM_rsCount=纪录集名字_total
MM_size=纪录集名字_numRows
MM_uniqueCol=""
MM_paramName=""
MM_offset=0
MM_atTotal=false
MM_paramIsDefined=false
If(MM_paramName"")Then
MM_paramIsDefined=(Request.QueryString(MM_paramName)"")
EndIf
%>

<%
if(NotMM_paramIsDefinedAndMM_rsCount0)then
r=Request.QueryString("index")
Ifr=""Thenr=Request.QueryString("offset")
Ifr""ThenMM_offset=Int(r)
<%
MM_removeList="&index="
If(MM_paramName"")ThenMM_removeList=MM_removeList&"&"&MM_paramName&"="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""
ForEachItemInRequest.QueryString
NextItem="&"&Item&"="
If(InStr(1,MM_removeList,NextItem,1)=0)Then
MM_keepURL=MM_keepURL&NextItem&Server.URLencode(Request.QueryString(Item))
EndIf
Next
ForEachItemInRequest.Form
NextItem="&"&Item&"="
If(InStr(1,MM_removeList,NextItem,1)=0)Then
MM_keepForm=MM_keepForm&NextItem&Server.URLencode(Request.Form(Item))
EndIf
Next
MM_keepBoth=MM_keepURL&MM_keepForm
if(MM_keepBoth"")ThenMM_keepBoth=Right(MM_keepBoth,Len(MM_keepBoth)-1)
if(MM_keepURL"")ThenMM_keepURL=Right(MM_keepURL,Len(MM_keepURL)-1)
if(MM_keepForm"")ThenMM_keepForm=Right(MM_keepForm,Len(MM_keepForm)-1)
FunctionMM_joinChar(firstItem)
If(firstItem"")Then
MM_joinChar="&"
Else
MM_joinChar=""
EndIf
EndFunction
%>
<%
MM_keepMove=MM_keepBoth
MM_moveParam="index"
If(MM_size>0)Then
MM_moveParam="offset"
If(MM_keepMove"")Then
params=Split(MM_keepMove,"&")
MM_keepMove=""
Fori=0ToUBound(params)
nextItem=Left(params(i),InStr(params(i),"=")-1)
If(StrComp(nextItem,MM_moveParam,1)0)Then
MM_keepMove=MM_keepMove&"&"&params(i)
EndIf
Next
If(MM_keepMove"")Then
MM_keepMove=Right(MM_keepMove,Len(MM_keepMove)-1)
EndIf
EndIf
EndIf
If(MM_keepMove"")ThenMM_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_size
If(prev<0)Thenprev=0
MM_movePrev=urlStr&Cstr(prev)
%>
<scriptlanguage="JavaScript">
functionjumpage(selObj,restore){
eval("location="+selObj.options[selObj.selectedIndex].value+"");
if(restore)selObj.selectedIndex=0;}
</script>
<selectname="pages"size=1class="txtfld">
<%
TM_counter=0
Fori=1to纪录集名字_totalStepMM_size
TM_counter=TM_counter+1
TM_PageEndCount=i+MM_size-1
ifTM_PageEndCount>纪录集名字_totalThenTM_PageEndCount=纪录集名字_total
ifiMM_offset+1then
%>
<optionvalue="<%=Request.ServerVariables("URL")&"?"&MM_keepMove&"offset="&i-1%>">
第<%=TM_counter%>页</option>
<%else%>
<optionselected>第<%=TM_counter%>页</option>
<%Endif%>
<%next%>
</select>
<inputtype="button"class="INPUT"value="|"style="FONT-FAMILY:Wingdings3"<%IfMM_offset0Then
response.write""
else
response.write"disabled"
endif%>>
<inputtype="button"class="INPUT"value="}"style="FONT-FAMILY:Wingdings3"<%IfNotMM_atTotalThen
response.write""
else
response.write"disabled"
endif%>>
ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?