<%@ ENABLESESSIONSTATE = FALSE %> <% dim typename,classid,classname if IsNumeric(Request.QueryString("typeid"))=False then Response.Redirect"info.asp?info=錯誤的參數" else typeid=cint(Request.QueryString("typeid")) end if set temprs=conn.execute("select name,classid from type where id="&typeid) typename=temprs(0) classid=temprs(1) set temprs=nothing set temprs=conn.execute("select name from class where id="&classid) classname=temprs(0) set temprs=nothing %> 免费欧洲毛片A级视频无风险,欧美一本大道东京热精品,嘿咻视频无码免费区在线观看,国产精品无码素人福利免费

蜜臀av一区二区_99久久99久久免费精品蜜桃_欧美喷潮久久久XXXXX_人妻少妇精品视频三区二区一区

" else rs.absolutepage = ipagecurrent irecordsshown = 0 do while irecordsshown<12 and NOT rs.EOF Response.Write"" Response.Write"" irecordsshown = irecordsshown +1 rs.movenext end if Response.Write"" irecordsshown = irecordsshown +1 rs.movenext end if Response.Write"" irecordsshown = irecordsshown +1 rs.movenext end if Response.Write"" irecordsshown = irecordsshown +1 rs.movenext end if Response.Write"" loop end if rs.Close set rs=nothing Response.Write"

<% Dim ipagecount Dim ipagecurrent Dim strorderBy Dim irecordsshown if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if sql = "SELECT minipic,ck,name,id FROM desktop where typeid="&typeid&" ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.pagesize = 12 rs.cachesize = 12 rs.open sql,conn,1,1 ipagecount = rs.pagecount If ipagecurrent > ipagecount Then ipagecurrent = ipagecount If ipagecurrent < 1 Then ipagecurrent = 1 if ipagecount=0 then response.write "
沒有任何文件
" if not rs.eof then Response.Write" "&rs("name")&" \| 察看："&rs("ck")&"	" if not rs.eof then Response.Write" "&rs("name")&" \| 察看："&rs("ck")&"	" if not rs.eof then Response.Write" "&rs("name")&" \| 察看："&rs("ck")&"	" if not rs.eof then Response.Write" "&rs("name")&" \| 察看："&rs("ck")&"

" Response.Write"

每頁顯示 12 個文件共有 "&ipagecount&" 頁當前為第 "&ipagecurrent&" 頁 " if ipagecurrent=1 then Response.Write"首頁 | " else Response.Write"首頁 | " end if if ipagecurrent=1 then Response.Write"上一頁 | " else Response.Write"上一頁 | " end if if ipagecount>ipagecurrent then Response.Write"下一頁 " else Response.Write"下一頁" end if if ipagecount>ipagecurrent then Response.Write"| 末頁 " else Response.Write"| 末頁 " end if Response.Write"

" %> 主站蜘蛛池模板：阳朔县| 太谷县| 霍林郭勒市| 河源市| 通江县| 南汇区| 东丽区| 台北县| 宜川县| 廊坊市| 通榆县| 福鼎市| 崇州市| 醴陵市| 台中县| 克山县| 穆棱市| 兴安盟| 稻城县| 宝山区| 宁晋县| 江油市| 长阳| 阿勒泰市| 宁夏| 稷山县| 广宁县| 永修县| 东方市| 来凤县| 邵东县| 清水县| 博野县| 泰兴市| 高台县| 交城县| 县级市| 虹口区| 吉林市| 康马县| 孟村|

<% Dim ipagecount Dim ipagecurrent Dim strorderBy Dim irecordsshown if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if sql = "SELECT minipic,ck,name,id FROM desktop where typeid="&typeid&" ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.pagesize = 12 rs.cachesize = 12 rs.open sql,conn,1,1 ipagecount = rs.pagecount If ipagecurrent > ipagecount Then ipagecurrent = ipagecount If ipagecurrent < 1 Then ipagecurrent = 1 if ipagecount=0 then response.write "
沒有任何文件
" if not rs.eof then Response.Write" "&rs("name")&" \| 察看："&rs("ck")&"	" if not rs.eof then Response.Write" "&rs("name")&" \| 察看："&rs("ck")&"	" if not rs.eof then Response.Write" "&rs("name")&" \| 察看："&rs("ck")&"	" if not rs.eof then Response.Write" "&rs("name")&" \| 察看："&rs("ck")&"