|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
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的基本知识。 |
|