<%@ ENABLESESSIONSTATE = FALSE %> <% dim typename,classid,classname if IsNumeric(Request.QueryString("typeid"))=False then Response.Redirect"info.asp?info=錯(cuò)誤的參數(shù)" 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_人妻少妇精品视频三区二区一区

<mark id="5xuz7"></mark>

" 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 個(gè)文件共有 "&ipagecount&" 頁當(dāng)前為第 "&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")&"