<% set rs=server.createobject("adodb.recordset") sql="select * from class order by id" rs.open sql,conn,1,3 Do While Not rs.Eof classid=rs("id") classname=rs("class") %> <% i=i+1 rs.movenext Loop rs.close Set rs=Nothing Set sql=Nothing %>

<% classname="" If request.querystring("classid")<>"" Then If IsNumeric(request.querystring("classid"))=False Then response.redirect "listedit.asp" set rs=server.createobject("adodb.recordset") sql="select * from class where id = " & request.querystring("classid") rs.open sql,conn,1,1 If Not rs.eof Then classname="【"&rs("class")&"】" End If rs.close Set rs=Nothing Set sql=Nothing End If %>

<%=classname%>图片列表

<% Dim ors If request.Cookies(QiyeSiteCookie)(QiyeSiteCookie&"_id")<>1 and request.Cookies(QiyeSiteCookie)(QiyeSiteCookie)<>"qiyesite" Then 'If session(QiyeSiteCookie)<>"qiyesite" or session(QiyeSiteCookie&"_id")<>1 Then End If Set ors=new Cls_ShowoPage With ors .Conn=conn .DbType="AC" .RecType=0 .RecSql=0 .RecTerm=1 .CookieName="recac" .Order=0 .PageSize=50 .JsUrl="js/" If request.querystring("classid")<>"" Then .Sql="id,classid,newname,src$file$classid="&request.querystring("classid")&"$id desc$id" '字段,表,条件(不需要where),排序(不需要需要ORDER BY),主键ID Else .Sql="id,classid,newname,src$file$$id desc$id" '字段,表,条件(不需要where),排序(不需要需要ORDER BY),主键ID End If End With iRecCount=ors.RecCount()'记录总数 iRs=ors.ResultSet() '返回ResultSet If iRecCount<1 Then%> <% Else For i=0 To Ubound(iRs,2) set rs=server.createobject("adodb.recordset") sql="select * from class where id = " & iRs(1,i) rs.open sql,conn,1,1 If Not rs.eof Then classname=rs("class") End If rs.close Set rs=Nothing Set sql=Nothing %> <% Next End If %>