<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%Call Head()
dim content
content=usb(request.form("content"))
if content="" then
  Call Error("出错啦","留言内容不能为空！")
end if
if len(content) > 50 then
  Call Error("出错啦","留言内容不能超过50个字符！")
  end if
if len(content) < 1 then 
  Call Error("发布留言","留言内容不能少于1字！")
  end if
set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select zonecontent,ztm from zonely where fid = "&myid&" and zonecontent='"&content&"' and ztm='"&date()&"'",conn,1,1

  rs.close
 set rs=Nothing




set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [zonely]",conn,1,2
  rs.addnew
  rs("fid")=myid
  rs("usid")=uid
  rs("zonelyName")=myni
  rs("zonecontent")=content
  rs("tm")=now()
  rs("ztm")=date()
rs.update
rs.close
set rs=Nothing
call zonedt("给我留言:"&content&"")
conn.close
set conn=nothing
call zonecardy("留言","index.asp?uid="&uid&"&amp;id="&id&"&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/>"
call zonelast()
Call Headsay()
%>
