<% Dim ipagecount Dim ipagecurrent Dim strorderBy Dim irecordsshown if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if Set rso=Server.CreateObject("ADODB.RecordSet") sql="select count(*) as C from desktop where hot=0" rso.open sql,conn,3,3 sm=rso("c") rso.close set rso=nothing sql = "select * from zhuanti 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 "

没有任何相册专题

" else rs.absolutepage = ipagecurrent irecordsshown = 0 Response.Write"
最新更新情况,截止到 "&now()&" 共有 "&rs.RecordCount&" 个相册,"&sm&" 张相片。
" do while irecordsshown<9 and NOT rs.EOF Response.Write"" Response.Write"" for i=1 to 4 Response.Write"" irecordsshown = irecordsshown +1 rs.movenext end if next Response.Write"" loop end if rs.Close set rs=nothing Response.Write"
" if not rs.eof then sqlp="select top 1 * from desktop where zhuanti="&rs("id")&" and hot=0 order by id asc" Set rsp=Server.CreateObject("ADODB.RecordSet") rsp.open sqlp,conn,1,1 if rsp.eof or rsp.bof then 'if rsp("surl")=null then photourl="image/nopic1.jpg" else photourl=rsp("surl") end if rsp.close set rsp=nothing Set rso=Server.CreateObject("ADODB.RecordSet") sql="select count(*) as C from desktop where zhuanti="&rs("id")&" and hot=0" rso.open sql,conn,3,3 sm=rso("c") rso.close set rso=nothing dim sqlp Set rsp=Server.CreateObject("ADODB.RecordSet") sqlp="select pass from zhuanti where id="&rs("id")&"" 'response.write sqlp 'response.end rsp.open sqlp,conn,1,1 p=rsp("pass") if p<>"" then photourl="images/nopass.jpg" end if rsp.close set rsp=nothing Response.Write"

"&rs("name")&" |"&sm&"张
" 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"| 搜索文件:
" %>
更多官方资料图片
中国汽车绞盘网QQ相册
中国汽车绞盘网QQ相册


中国汽车绞盘网网易相册
中国汽车绞盘网网易相册


中国汽车绞盘网拓松艺术馆
中国汽车绞盘网拓松艺术馆


消防绞盘