<%call head()
call saycardd("提交报告")
Server.ScriptTimeout=999
ltlyuan=untouwide(request("ltlyuan"))

if session("zh")="wap" then
       Session("returnuppath")=Request.ServerVariables("PATH_INFO") & "?ltlyuan="&ltlyuan&""
        response.redirect "/BBS/UseLogin.asp?sid="&sid&"&amp;saytk="&saytk&""
    End if
reids=Session("useid")
 ids="1"

if Session("ltftzls")=ltlyuan  then
     response.write "不能在短时间内提交大部分相同内容的报告！"
     response.write "<br/><a href='/bbs/yxxe/tjbg.asp?sid=" & sid & "'>返回重写</a>"
     response.write "<br/><a href='/bbs/index.asp?sid=" & sid & "'>社区首页</a>"
call head1()
     response.end
    End if

  if ltlyuan="" then
     response.write "字段不能为空白！！"
     response.write "<br/><a href='/bbs/yxxe/tjbg.asp?sid=" & sid & "'>返回重写</a>"
     response.write "<br/><a href='/bbs/index.asp?sid=" & sid & "'>社区首页</a>"
call head1()
     response.end
  End if
        Session("ltftzls")=ltlyuan
		Session.Timeout=10
  sql="insert into guestbook(ids,reids,niayo) values ("
  sql=sql & sqlstr(ids) & ","
  sql=sql & sqlstr(reids) & ","
  sql=sql & sqlstr(ltlyuan) & ")"
  Application.Lock
  liao.execute(sql)
  Application.Unlock
  response.write"提交报告成功!!谢谢你的建议意见.. 客服会在24小时内给予你答复<br/>"
  response.write "--------------<br/><a href='/bbs/yxxe/index.asp?sid=" & sid & "'>返回江湖首页</a><br/><a href='/bbs/index.asp?sid=" & sid & "'>返回社区首页</a>"
call head1()
function sqlstr(data)
   sqlstr="'" & Replace(data,"'","'") & "'"
  End function
Function untouwide(str)
	str=replace(str,"<","＜")
	str=replace(str,">","＞")
	str=replace(str,"$","＄")
	str=replace(str,"'","＊")
        str=replace(str,"六合","６合")
        str=replace(str,"做爱","**")
untouWide=str
end function
%>

