透明 发表于 2015-1-15 23:23:38

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&"&"&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.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:11

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:00

每天上网看着那样多的网页,于是我才下定决心选择了网页制作这一门课程,目的就是希望以后能够做出一个完美的网页来。

柔情似水 发表于 2015-1-26 23:20:46

在刚开始接触网页的第一堂课上,听说网页制作会是一门很无聊并且很难听懂的过程,而事实却印证了这样一个事实。

小妖女 发表于 2015-2-5 04:21:00

运动)时间轴面板--拖动关键帧--单击整条--将鼠标移至中间一点--右击选择增加关键帧--移动中间关键帧的图层--勾选自动播放,循环

仓酷云 发表于 2015-2-11 05:05:53

只要我们努力,无论是怎样的艰难险阻,成功依然会迎面直击。在刚开始时我觉得dreamweaver mx XX很难理解。

山那边是海 发表于 2015-3-1 22:20:13

技术的学习如同长跑。只要越过极限,就会越跑越轻松。技术的学习其实并不像想象中那么可怕,任何技术都并不高深莫测。

小女巫 发表于 2015-3-11 01:33:21

您在所见即所得网页编辑器进行网页制作和在WORD中进行文本编辑不会感到有什么区别,但它同时也存在着致命的弱点。

分手快乐 发表于 2015-3-24 21:36:26

使用内容管理系统进行开发并实现快速、精确的浏览器兼容性测试。
页: [1]
查看完整版本: CSS教程之下拉菜单做翻页的通用代码