<%@ 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 %> 国产精品亚洲综合一区在线观看_久久久综合香蕉尹人综合网_99国产精品电影_亚洲综合第一欧美日韩中文

蜜臀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")&"