<!--#include file="../Inc.asp"-->
<!--#include file="../zaixian.asp"-->
<!--#include file="../forbbs.asp"-->

<%Call head()

dim bbsid,tid,face,fid,id,reContent

id=request("uid")

ztname=request("ztname")
face=request("face")
if face="" or IsNumeric(face)=False then face=0

if id="" or IsNumeric(id)=False then
  Call Error("<card title=""没有该会员""><p>没有该会员！")
  end if

if id=myid then
  Call Error("<card title=""你想挠自己？""><p>你想挠自己？")
  end if



recontent=forbbs(request("recontent"))
if recontent="" then
  Call Error("<card title=""回复失败""><p>回复内容不能为空！")
  end if
if len(recontent)>500 then
  Call Error("<card title=""回复失败""><p>回复内容字数不能大于500字！")
  end if

if maren(recontent) >0 then
  Call Error("<card title=""回复失败""><p>请文明用语，不要讲粗话，谢谢！")
end if

dim rshf
set rshf=Server.CreateObject("ADODB.Recordset")
rshf.open"select * from [guest]",conn,1,2
rshf.addnew
rshf("sid")=id
rshf("fid")=0
rshf("fnr")="[br]收到新挠挠[br][url=/bbs/uinfo.asp?id="&id&"&amp;saytk="&saytk&"&amp;sid=[sid]]" & myni& "[/url]"&reContent&"[br][url=/bbs/uinfo.asp?id="&myid&"&sid=[sid]&saytk=[saytk]]回挠TA[/url]"
rshf.update
rshf.close
set rshf=Nothing


conn.execute("insert into sqdt(shijian,dz)values('[url=/bbs/uinfo.asp?id="&id&"&amp;saytk="&saytk&"&amp;sid=[sid]]"&myni&"[/url]"&reContent&"')")


conn.close
set conn=nothing

Call cardz("挠挠成功","/bbs/uinfo.asp?bbsid="&bbsid&"&amp;id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&"")

response.write""&myni&""&reContent&"<br/>挠挠发送成功"
response.write"<br/><a href=""/saytkcom/nn/?uid="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">换个动作再挠</a>"
response.write"<br/><a href=""/bbs/myfriend.asp?saytk="&saytk&"&amp;sid="&sid&""">挠其他好友</a>"
%>
<!--#include file="../../bbs/fanhui.asp"-->
<%
call headsay()
%>

