End If response.write" 直接到第 " response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>" for i=1 to totalpage response.write"<option value='" & LinkFile & "?page=" & i & "'" if i=gopage then response.write"selected" response.write">"&i&"</option>" next response.write"</select>" response.write" 页<Br><Br>"
End If
Startinfo=((gopage-1)*msg_per_page)+1 Endinfo=gopage*msg_per_page if Endinfo>totalrec then Endinfo=totalrec Response.Write(" 共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&n&" 页") end if End Function
'分页2 Function listPages2(LinkFile) if not (rs.eof and rs.bof) then gopage=currentpage totalpage=n blockPage=Int((gopage-1)/10)*10+1
If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strTemp = "https://" End If strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME")) If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT")) strTemp = strTemp & CheckStr(Request.ServerVariables("URL")) lenstrTemp=len(strTemp)+1 if instr(left(linkfile,lenstrTemp),"?")>0 then
if blockPage = 1 Then Response.Write "<span disabled>前10页</span> " Else Response.Write("<a href=" & LinkFile & "&page="&blockPage-10&">前10页</a> ")
精品推荐