仓酷云
标题:
CSS教程之下拉菜单做翻页的通用代码
[打印本页]
作者:
透明
时间:
2015-1-15 23:23
标题:
CSS教程之下拉菜单做翻页的通用代码
Table布局灵活性不大，你只能遵循tabletrtd的格式。而div你可以divulli也可以olli还可以ulli……但标准语法最好有序的写。
实在这个代码就是老外的谁人翻页插件，厥后是哪位好伴侣（欠好意义，忘了）修正后放在论坛上的，我还做成过插件，实在光是拷贝也挺便利的。
另有最初一段是前后翻页的按钮，呵呵，这个仍是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&"&"¶ms(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=1onChange="jumpage(this,0)"class="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
12下一页
在网页制作中，有许多的术语，例如：CSS、HTML、DHTML、XHTML等等。在下面的文章中我们将会用到一些有关于HTML的基本知识。
作者:
透明
时间:
2015-1-16 00:42
标题:
CSS教程之下拉菜单做翻页的通用代码
有了CSS，我们不再需要用FONT标签或者透明的1pxGIF图片来控制标题，改变字体颜色，字体样式等等
"disabled"
endif%>>
<inputtype="button"class="INPUT"value="}"style="FONT-FAMILY:Wingdings3"<%IfNotMM_atTotalThen
response.write""
else
response.write"disabled"
endif%>></P></p>
上一页12
有了CSS，我们不再需要用FONT标签或者透明的1pxGIF图片来控制标题，改变字体颜色，字体样式等等
作者:
兰色精灵
时间:
2015-1-18 07:31
每天上网看着那样多的网页，于是我才下定决心选择了网页制作这一门课程，目的就是希望以后能够做出一个完美的网页来。
作者:
柔情似水
时间:
2015-1-26 23:20
在刚开始接触网页的第一堂课上，听说网页制作会是一门很无聊并且很难听懂的过程，而事实却印证了这样一个事实。
作者:
小妖女
时间:
2015-2-5 04:21
运动)时间轴面板--拖动关键帧--单击整条--将鼠标移至中间一点--右击选择增加关键帧--移动中间关键帧的图层--勾选自动播放,循环
作者:
仓酷云
时间:
2015-2-11 05:05
只要我们努力，无论是怎样的艰难险阻，成功依然会迎面直击。在刚开始时我觉得dreamweaver mx XX很难理解。
作者:
山那边是海
时间:
2015-3-1 22:20
技术的学习如同长跑。只要越过极限，就会越跑越轻松。技术的学习其实并不像想象中那么可怕，任何技术都并不高深莫测。
作者:
小女巫
时间:
2015-3-11 01:33
您在所见即所得网页编辑器进行网页制作和在WORD中进行文本编辑不会感到有什么区别，但它同时也存在着致命的弱点。
作者:
分手快乐
时间:
2015-3-24 21:36
使用内容管理系统进行开发并实现快速、精确的浏览器兼容性测试。
欢迎光临 仓酷云 (http://ckuyun.com/)
Powered by Discuz! X3.2