<% Call SiteInfo %> 无码国产精品一区二区免费式直播,亚洲狠狠婷婷综合久久久久图片,久久人人爽人人爽人人片AV麻烦 " /> " />

色橹橹欧美在线观看视频高清,色妞色视频一区二区三区四区,色妞色综合久久夜夜,色欧美片视频在线观看

<%=WebContent()%>
主站蜘蛛池模板： 东阳市| 阿巴嘎旗| 临沂市| 玉山县| 石棉县| 佛学| 兴国县| 会宁县| 清苑县| 镶黄旗| 德格县| 鸡东县| 吴桥县| 阿荣旗| 张掖市| 环江| 莆田市| 罗平县| 班戈县| 天镇县| 韶关市| 东乡县| 阿克| 昌江| 驻马店市| 汉寿县| 上蔡县| 宿松县| 安新县| 玉屏| 鄂尔多斯市| 樟树市| 绩溪县| 木兰县| 昌宁县| 青龙| 阳朔县| 富源县| 固阳县| 射阳县| 罗甸县| <% Function WebContent() Dim rs, sql Dim idCount Dim pages pages = 20 Dim pagec Dim page page = CLng(request("Page")) Dim pagenc pagenc = 5 Dim pagenmax Dim pagenmin Dim pageprevious Dim pagenext Dim datafrom datafrom = "zx_News" Dim datawhere datawhere = " " Dim sqlid Dim Myself, PATH_INFO, QUERY_STRING PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' If QUERY_STRING = "" Then Myself = PATH_INFO & "?" ElseIf InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") = 0 Then Myself = PATH_INFO & "?" & QUERY_STRING & "&" Else Myself = Left(PATH_INFO & "?" & QUERY_STRING, InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") -1) End If Dim taxis taxis = "order by id desc " Dim i sql = "select count(ID) as idCount from ["& datafrom &"]" Set rs = server.CreateObject("adodb.recordset") rs.Open sql, conn, 0, 1 idCount = rs("idCount") If(idcount>0) Then If(idcount Mod pages = 0)Then pagec = Int(idcount / pages) Else pagec = Int(idcount / pages) + 1 End If sql = "select id from ["& datafrom &"] " & datawhere & taxis Set rs = server.CreateObject("adodb.recordset") rs.Open sql, conn, 1, 1 rs.pagesize = pages If page < 1 Then page = 1 If page > pagec Then page = pagec If pagec > 0 Then rs.absolutepage = page For i = 1 To rs.pagesize If rs.EOF Then Exit For If(i = 1)Then sqlid = rs("id") Else sqlid = sqlid &","&rs("id") End If rs.movenext Next End If If(idcount>0 And sqlid<>"") Then sql = "select * from ["& datafrom &"] where id in("& sqlid &") "&taxis Set rs = server.CreateObject("adodb.recordset") rs.Open sql, conn, 0, 1 Response.Write ""&vbCrLf Else response.Write "
暫無相關(guān)信息
" Exit Function End If Response.Write ""&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write "
"&vbCrLf Response.Write "共"&idcount&"條記錄 頁次："&page&"/"&pagec&" 每頁："&pages&"條記錄" & vbCrLf pagenmin = page - pagenc pagenmax = page+pagenc If(pagenmin<1) Then pagenmin = 1 If(page>1) Then response.Write ("9 ") If page - (pagenc * 2 + 1)<= 0 Then pageprevious = 1 Else pageprevious = page - (pagenc * 2 + 1) End If If(pagenmin>1) Then response.Write ("3 ") If(pagenmax>pagec) Then pagenmax = pagec For i = pagenmin To pagenmax If(i = page) Then response.Write (" "& i &" ") Else response.Write ("["& i &"]") End If Next If page+(pagenc * 2 + 1)>= pagec Then pagenext = pagec Else pagenext = page+(pagenc * 2 + 1) End If If(pagenmax: ") If(page:") Response.Write "
"&vbCrLf rs.Close Set rs = Nothing End Function %>