www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > obvious.asp
<%@language="VBScript"%> <!--#include file="title.asp"--> <!--#include file="sub.asp"--> <% Dim id,erryes,url id=Request.QueryString("id") if IsNumeric(id) then id=Clng(id) else id=0 end if url=Request.ServerVariables("HTTP_REFERER") contents=contents &"<title>天山之玉-"& caption &"</title>"&_ "</head>"&_ "<body>" if Cookies_gbmad_user="" then contents=contents &"<script language=""JavaScript"">alert(""出错:你还没登陆或者已经掉线,请重新登陆。"");window.close();</script>" else if validate<>creatvalidate(gb+imprison,ip) then contents=contents &"<script language=""JavaScript"">alert(""出错:验证Cookies信息出错,请重新登陆。引起该错误的原因可能是因为你手动修改了Cookies。"");window.close();</script>" else if imprison="2" or imprison="4" or imprison="6" or imprison="7" then contents=contents &"<script language=""JavaScript"">alert(""出错:你因为违反社区条例,被禁止使用道具。具体可以查看异动报告。"");window.close();</script>" else if Instr(url,"topictool.asp")>0 then if id>0 then rs.Open "Select pwd From UserInfo Where user='"& Cookies_gbmad_user &"'",conn_user,1,1 if Not rs.Eof then if rs("pwd")<>pwd then contents=contents &"<script language=""JavaScript"">alert(""出错:密码验证错误,请重新登陆。引起该错误的原因可能是因为你手动修改了Cookies。"");window.close();</script>" erryes="yes" end if else contents=contents &"<script language=""JavaScript"">alert(""出错:不存在的用户,请重新登陆。引起该错误的原因可能是因为你手动修改了Cookies。"");window.close();</script>" erryes="yes" end if rs.Close if erryes<>"yes" then rs.Open "tools Where user='"& Cookies_gbmad_user &"' and toolname='天山之玉'",conn,1,3 if rs.Eof then contents=contents &"<script language=""JavaScript"">alert(""出错:你没有天山之玉,请到道具超市购买。"");window.close();</script>" erryes="yes" else if rs("amount")=1 then rs.Delete else rs("amount")=rs("amount")-1 rs.Update end if end if rs.Close if erryes<>"yes" then rs.Open "Select topictype From topic Where id="& id,conn,1,3 if Not rs.Eof then if IsNull(rs("topictype")) then rs("topictype")=2 else rs("topictype")=2 end if rs.Update contents=contents &"<script language=""JavaScript"">alert(""提示:帖子已经被天山之玉点缀的格外耀眼。"");window.close();</script>" end if rs.Close end if end if else contents=contents &"<script language=""JavaScript"">alert(""出错:非法调用或者程序出错。\n请确定你是通过正常方式进行操作,如果依旧出错,请联系管理员报告错误。"");window.close();</script>" end if else contents=contents &"<script language=""JavaScript"">alert(""出错:非法使用道具。\n请确定你是通过正常方式进行操作,如果依旧出错,请联系管理员报告错误。"");window.close();</script>" end if end if end if end if %> <!--#include file="bottom.asp"-->