<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%Call Head()
dim titt
titt=usb(request.form("titt"))
IPent=request.serverVariables("REMOTE_ADDR")
if titt="" then
  Call Error("出错啦","说说不能为空！<br/>")
end if
if len(titt) > 30 then
  Call Error("出错啦","不能超过30个字符！<br/>")
  end if
if len(titt) < 1 then 
  Call Error("发表说说","不能少于1字！")
  end if

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [zoness]",conn,1,2
rs.addnew
rs("uid")=myid
rs("tit")=titt
rs("Name")=myni
rs("tm")=now()
rs("ztm")=date()
rs.update
rs.close
set rs=Nothing
dim rst
set rst=Server.CreateObject("ADODB.Recordset")
rst.open"select top 1 ID from [zoness] order by id desc",conn,1,1
id=rst("id")
rst.close
set rst=nothing
dim rsfrdt
set rsfrdt=Server.CreateObject("ADODB.Recordset")
rsfrdt.open"select * from frzonedt",conn,1,2
rsfrdt.addnew
rsfrdt("txt")="[url=index.asp?uid="&myid&"&amp;sid=[sid]]"&myni&"[/url]"
rsfrdt("fgid")=myid
rsfrdt("xcid")=id
rsfrdt("rc")=2
rsfrdt("htm")=now()
rsfrdt.update
rsfrdt.close
set rsfrdt=nothing
conn.close
set conn=nothing
call cardz("发表说说","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/>"&_
               "<br/>"
call zonelast()
Call Headsay()
%>
