<!-- #include file="Inc/Inc.asp" -->
<!-- #include file="Inc/Function.asp" -->
<%Call Head()
dim add,sql,classname
add=request.QueryString("cid")
if add="" or IsNumeric(add)=False then
  Call Error("<card title=""ID无效""><p>ID无效！")
  end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from wjclass where id="&add
rs.open sql,conn,1,1 
if rs.eof then
  rs.close
  set rs=Nothing
  Call Error("<card title=""ID无效""><p>ID无效！")
  end if
classname=rs("name")
  rs.close
  set rs=Nothing


Call saycardd(""&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)
else

'检查有几条新留言
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
end if
'---------------------------
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from wjlist where id="&add&" order by pid asc"
rs.open sql,conn,1,1 
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=picnum
	Dim Count,page,pagecount,gopage			
	gopage="soft.asp?class="&add&"&amp;cid="&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				
response.write"<a href='pic_list.asp?class="&rs("lid")&"&amp;cid="&add&"&amp;p="&page&"&amp;sid="&sid&"'>"&i+(page-1)*PageSize&"."&UBB(rs("name"))&"</a><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
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"----------<br/>"
'response.write"<anchor>返回上级<prev/></anchor><br/>"
response.write"<a href='index.asp?sid="&sid&"'>返回首页</a>"

%>   
<%call headsay()%>                     