图文展示-<%=title%>

<% dim classid,classname if IsNumeric(Request.QueryString("classid"))=False then Response.Redirect"info.asp?info=错误的参数,ID必须是有效的数字" else classid=cint(Request.QueryString("classid")) end if set temprs=conn.execute("select Classname from class where Classid="&classid) classname=temprs(0) set temprs=nothing %>
name=description> name=keywords>

<% Response.Write"

所属分类：图文展示 → "&classname&"

" Response.Write"

" Dim ipagecount Dim ipagecurrent Dim strorderBy Dim irecordsshown,hangpicnum if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if sql = "SELECT TypeMiniPic,TypeName,TypeId FROM type where classid="&classid&" ORDER BY Typeid 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 do while irecordsshown<12 and NOT rs.EOF Response.Write"

" if not rs.eof then for hangpicnum=1 to 4 if rs.eof then exit for Response.Write"
" Response.Write"

"&left(rs("TypeName"),10)&"
" rs.movenext irecordsshown = irecordsshown +1 next end if loop Response.Write"

" end if rs.Close set rs=nothing Response.Write"

" Response.Write"

页次："&ipagecurrent&"/"&ipagecount&" 每页显示 9 " 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"| 跳转到第 页

" %>