ID无效！") end if dim Rs1,Sql1 Set rs1 = Server.CreateObject("ADODB.Recordset") sql1="Select * from wjlist where lid="&add rs1.open sql1,conn,1,1 if not rs1.eof then classname=rs1("name") rs1.close set rs1=nothing end if response.write"

" '-------A登录信息 if myid=0 then Response.write "欢迎您:登陆/注册
----------
"& chr(13) else '检查有几条新留言 dim newguest newguest = 0 IF myid > 0 THEN newguest = ForNewGuest(myid) END IF if newguest > 0 then Response.write "您有"&newguest&"条新消息
"& chr(13) end if end if '--------------------------- Dim sql,gettxt gettxt="where lid="&add&" and typeID=1" Set rs = Server.CreateObject("ADODB.Recordset") sql="Select id,lid,IDD,name,hit,filepin from wjfile "&gettxt&" order by id desc" rs.open sql,conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=smallpicnum Dim Count,page,pagecount,gopage gopage="piclist.asp?class="&add&"&sid="&sid&"&" 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 %><%=i+(page-1)*PageSize%>.<%=UBB1(rs("name"))%>
人气:<%=UBB(rs("hit"))%>点 评论:<%=UBB(rs("filepin"))%>次
<% rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页[GO]
" Else response.write"暂时没有列表！
" end if rs.close set rs=nothing conn.close set conn=nothing %>----------
返回首页