<!-- #include file="Inc/Inc.asp" -->
<!-- #include file="Inc/Function.asp" -->

<%Call Head()
dim add,cid
add=request.QueryString("class")
if add="" or IsNumeric(add)=False then
  Call Error("<card title=""ID无效""><p>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

Call saycardc(""&classname&"列表")







'-------A登录信息
if myid=0 then
Response.write "<a href='login.asp?url="&Replace(Replace(R_url(),"sid=","sidoo="),"sid=","sidoo=")&"'>登陆/注册</a><br/>----------<br/>"& chr(13)
end if
'检查有几条新留言
dim newguest
newguest = 0
IF myid > 0 THEN
  newguest = ForNewGuest(myid)
END IF
if newguest > 0 then
Response.write "<a href='bbs/msgview.asp?url="&Replace(Replace(R_url(),"sid=","sidoo="),"sid=","sidoo=")&"&amp;sid="&sid&"'>您有"&newguest&"条新消息</a><br/>"& chr(13)
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&"&amp;sid="&sid&"&amp;"
	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%>.<a href='picview.asp?id=<%=rs("ID")%>&amp;class=<%=rs("lid")%>&amp;cid=<%=rs("idd")%>&amp;pa=<%=page%>&amp;act=big&amp;sid=<%=sid%>'><%=UBB1(rs("name"))%></a><br/>人气:<%=UBB(rs("hit"))%>点 评论:<%=UBB(rs("filepin"))%>次<br/>
<%     
	rs.moveNext
						
	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">[GO]</a><br/>"
Else
response.write"暂时没有列表！<br/>"
end if
if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"逛了图片栏目(url=/soft.asp?class=" & rs("lid") & "&amp;sid=[sid])"&classname&"(/url)')")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>----------<br/>
<!--#include file="fanhui.asp"-->
<%call headsay()%>                         