<%Dim ipagecount
Dim ipagecurrent
Dim strorderBy
Dim irecordsshown
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
classname=request("classname")
if classname="" then
classname="all"
end if
if classname="all" then
sql = "SELECT * FROM imgbook ORDER BY title asc"
else
sql= "select * from imgbook where classname='"<rim(rtrim(request("classname")))&"' order by title asc"
end if
Set rs = Server.CreateObject("ADODB.Recordset")
if request("page")="" then
rs.pagesize = 8
rs.cachesize = 8
MaxPage=8
else
rs.pagesize = 12
rs.cachesize = 12
MaxPage=12
end if
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
没有任何图片"&classname&"
" else rs.absolutepage = ipagecurrent irecordsshown = 0 do while irecordsshown
本站名称:
最新更新消息 
栏目简介
