<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%Call Head()
call zonecard("说说评论","left")
if myid=clng(uid) then
response.write "<a href=""index_gl.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">个人中心</a>|"
end if
response.write "<a href=""index.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">主页</a>|"&_
               "<a href='blog.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>日志</a>|"&_
               "<a href='user_info.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>个人档</a><br/>"&_
               "－－－－－<br/>"
dim id
ID=request.querystring("id")
if id="" or IsNumeric(id)=False then
  Call Errorh("ID无效！")
  end if
Dim rs2
set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open"select * from zoness where id="&id&" and uid="&uid&" order by id desc",conn,1,1
if rs2.eof then
Response.write "数据出错，请联系客服<br/>"
call zonelast()
call zomexml() 
response.end
end if
if myid<>clng(uid) then
               zonepost("moob_addcl.asp?id="&rs2("id")&"&amp;uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"")
response.write "<input type=""text"" name=""pl"" title=""输入内容"" value="""" maxlength=""300""/><br/>"
if saytk>1 then
Response.Write "<input type=""submit"" value=""发表评论""/></form><br/>"
else
response.write "<anchor title=""确定"">发表评论"&_
               "<go method=""post"" href=""moob_addcl.asp?id="&rs2("id")&"&amp;uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&_
               "<postfield name=""pl"" value=""$(pl)""/>"&_
               "</go></anchor><br/>"
end if
end if
response.write ""&UBB(rs2("tit"))&"<br/>"&_
               "[" & fordate(rs2("tm")) & "]<br/>"
rs3.Movenext
rs2.close
Set rs2= Nothing
	Dim Countd			
	Countd=conn.execute("Select count(ID) from [zonesspl] where zonezid="&id)(0)	
  response.write "【评论列表("&Countd&")】<br/>"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from zonesspl where zonezid="&id&" order by id desc",conn,1,1
If Not rs.eof Then
	Dim PageSize,i
	PageSize=10				
	Dim Count,page,pagecount,gopage			
	gopage="moob_view.asp?id="&id&"&amp;uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"&amp;"
	Count=conn.execute("Select count(ID) from [zonesspl] where zonezid="&id&"")(0)	
  page=clng(request("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize	
	rs.move(pagesize*(page-1))					
	For i=1 To PageSize						
	If rs.eof Then Exit For	
response.write ""&i+(page-1)*PageSize&"."&_
               "<a href=""index.asp?uid="&rs("userid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&ubb(rs("zonessplName"))&"</a>:"&_
               rs("zonesspli")&"<br/>("&fordate(rs("tm"))&")<br/>"
rs.moveNext							
	Next
	call zone_Page(pagecount,page,"moob_view.asp?id="&id&"&amp;uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"",count,"Page")
Else
response.write"没有评论！<br/> "
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
call zonelast()
Call Headsay()
%>