"&rs1("piccat_name")&"

" & vbCrlf else Response.Write " " & vbCrlf c_i=c_i+1 rs1.movenext loop rs1.close set rs1=nothing end sub '②平铺形式: 'sub class_Product() 'sql="select * from cpiccat where sid=0 order by sorder asc,piccat_id desc" 'set Rs1=server.createobject("adodb.recordset") 'Rs1.open sql,conn,1,1 'do while not rs1.eof 'Response.Write " " & vbCrlf 'sql="select * from cpiccat where sid="&rs1("piccat_id")&" order by sorder asc,piccat_id desc" 'set rs2=server.createobject("adodb.recordset") 'rs2.open sql,conn,1,1 'do while not rs2.eof 'Response.Write " " & vbCrlf 'rs2.movenext 'loop 'rs2.close 'set rs2=nothing 'rs1.movenext 'loop 'rs1.close 'set rs1=nothing 'end sub '================================================= '过程名：displayList_pic '作 用：带分页功能的产品列表 '参 数：nn-标题长度,poppicnum-热门点击数,Hxperpage-每页显示条数 'Web: http://www.Hx66.net '================================================= sub displayList_pic(Hxperpage) Dim CurPage,Url_Add Url_Add="?" If Request.QueryString("Page")<>"" Then Curpage=Request.QueryString("Page") If IsInteger(Curpage)=False Then Curpage=1 Else Curpage=1 End If dim mtyid,hx01,hx66010 mtyid=int(piccat_id) set hx01=conn.execute("select piccat_id,piccat_name,sid from cpiccat order by piccat_id") do while not hx01.eof if mtyid=hx01("sid") then hx66010=hx66010+" or piccat_id="&hx01("piccat_id") end if hx01.movenext loop hx01.close set hx01=nothing if request.querystring("piccat_id")<>"" and request("action")<>"search" then sql="select * from cpic where (piccat_id="&piccat_id&hx66010&") order by orderid asc,pic_id desc" Url_Add=Url_Add&"piccat_id="&piccat_id&"&" else sql="select * from cpic order by orderid asc,pic_id desc" end if Response.Write "" & vbCrlf Response.Write " " & vbCrlf set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then Dim Hx_Nums,MultiPages,i Rs.PageSize=Hxperpage Rs.AbsolutePage=CurPage Hx_Nums=Rs.RecordCount MultiPages=MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add) Do Until Rs.EOF OR i=Hxperpage Response.Write " " & vbCrlf i=i+1 if i mod 3 = 0 and i mod Hxperpage <> 0 then Response.Write " " & vbCrlf Response.Write " " & vbCrlf end if rs.movenext loop else if rs.eof and rs.bof then Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf end if end if Response.Write " " & vbCrlf Response.Write "

" & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " "&gotTopic(rs("pic_name"),19)&" " & vbCrlf Response.Write "

" & vbCrlf if request("piccat_id")<> "" and request("action")="" then Response.Write "该分类暂时没有图片" elseif request("piccat_id")<> "" and request("action")<>"" then Response.Write "该分类下没有找到包含["&request("keyword")&"]的图片！" elseif request("keyword")<>"" and request("piccat_id")="" then Response.Write "没有找到包含["&request("keyword")&"]的图片！" elseif request("keyword")<>"" and request("piccat_id")<>"" then Response.Write "该类下没有找到包含["&request("keyword")&"]的图片！" else Response.Write "没有任何图片，请管理员到后台添加！" end if Response.Write "

" & vbCrlf if Hx_Nums > Hxperpage then Response.Write "" & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write " " & vbCrlf Response.Write "

"&MultiPages&"

" & vbCrlf end if rs.close set rs=nothing end sub %>