ID无效！") end if dim bigclass Set Rs = Server.CreateObject("Adodb.Recordset") rs.open "SELECT name from wjLIST Where Lid="&Lid,conn,1,1 if not rs.eof then bigclass=rs("name") end if rs.close set rs=nothing %>

<% Set Rs = Server.CreateObject("Adodb.Recordset") Sql = "SELECT name,id from wjfile Where lid="&lid&" order by id desc" Rs.Open Sql,conn,1,1 If Not rs.eof Then PageSize=10 Dim Count,page,pagecount,gopage,parent gopage="piclist.asp?sid="&sid&"&lid="&lid&"&idd="&idd&"&" Count=rs.recordcount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For %>[&lid=<%=lid%>">管理]<%=i+(page-1)*PageSize%>.&lid=<%=lid%>"><%=ubb(rs("name"))%>
<% rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页>>" Else %> (没有图片) <%end if%>
--------
[上传图片]
[网页采集]
[地址采集]
[图片类别]
[后台管理]