<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%Call Head()
dim pl,id
pl=request.form("pl")
if pl="" then
call zonecardy("评论","index.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"")
response.write("评论内容不能为空！")
call zonelast()
call zonexml() 
response.end
  end if
if len(pl)>100 then
call zonecardy("评论说说","index.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"")
response.write("评论字数不能大于100字")
call zonelast()
call zonexml() 
response.end
  end if
id=trim(request("id"))
if id="" or IsNumeric(id)=False then
call zonecardy("评论说说","index.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"")
response.write("ID无效！")
call zonelast()
call zonexml() 
response.end
  end if


set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from zonesspl",conn,1,2
rs.addnew
rs("zonesspli")=pl
rs("zonessplName")=myni
rs("userid")=myid
rs("zonezid")=id
rs("tm")=now()
rs("ztm")=date()
rs.update
conn.Execute("update zoness set rc=rc+1 Where id=" &id)
if myid<>clng(uid) then
Set rsrj = Server.CreateObject("ADODB.Recordset")
rsrj.open"select zonefktm,zonerj_s from [zone] where [zoneid]="& uid,conn,1,1
zonefktm=rsrj("zonefktm")
zonerj_s=rsrj("zonerj_s")
if zonefktm="" or zonefktm<>date() then
conn.Execute("update zone set zonefktm='"&date()&"',zoneaixin = zoneaixin+1,zonerj_s = 1  Where zoneid=" & uid)
else
if zonerj_s>=8 then
conn.Execute("update zone set zoneaixin = zoneaixin,zonerj_s = 8  Where zoneid=" & uid)
else
conn.Execute("update zone set zoneaixin = zoneaixin+1,zonerj_s = zonerj_s+1 Where zoneid=" & uid)
end if
end if
rsrj.close
set rsrj=Nothing
set rszoness=Server.CreateObject("ADODB.Recordset")
rszoness.open"select * from [zoness] where uid="&uid&" and [ID]=" & ID,conn,1,1
tit=rszoness("tit")
rszoness.close
set rszoness=nothing
call zonedt("评论了我说的话“"&tit&"”:"&pl&"")
end if
call zonecardy("评论说说","index.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"")
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/>"&_
               "<a href=""index.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">正在返回"&username&"的空间</a><br/>"
rs.close
Set rs=nothing
conn.close
set conn=nothing
call zonelast()
Call Headsay()
%>