<%'============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2008-3-22 13:28 ' ADD:wap.nowtx.cn ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %> <%Call Head() dim name,title,text,lianxi,num,num1 IF myid=0 then name=request("name") num=request("num") num1=request("num1") if num<>num1 then Call Error("

验证码错误,请返回重试！") end if uid=0 else name=myni uid=myid end if title=request("title") text=request("text") lianxi=request("lianxi") name=forbbs(name) title=forbbs(title) text=forbbs(text) lianxi=forbbs(lianxi) agent=request.serverVariables("HTTP_USER_AGENT") if name="" then response.redirect "guestadd.asp?sid="&sid&"" if title="" then response.redirect "guestadd.asp?sid="&sid&"" if text="" then response.redirect "guestadd.asp?sid="&sid&"" set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from [gbook]",conn,1,2 dim errr errr=0 if rs.recordcount>0 then if rs("name")=name and rs("text")=text then errr=1 end if if errr=1 then eer="请不要重复留言，
正在返回留言首页！
" if errr<>1 then rs.addnew rs("name")=name rs("uid")=uid rs("title")=title rs("text")=text rs("YD_time")=now() if lianxi<>"" then rs("lianxi")=lianxi rs("agent")=agent rs.update end if rs.close set rs=Nothing conn.close set conn=nothing response.write"" response.write"

" if eer="" then response.write"发表成功，正在返回！
" else response.write eer end if response.write"----------
" response.write"留言首页
" response.write"返回首页
" response.write"

" %>