www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > koala.asp

    <%@language="VBScript"%>
<!--#include file="title.asp"-->
<!--#include file="sub.asp"-->
<%
Dim id,erryes,url,koala
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 gbmaduser="" 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 userpwd From gbmaduser Where gbmaduser='"& gbmaduser &"'",conn,1,1
if Not rs.Eof then
if rs("userpwd")<>userpwd 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 gbmaduser='"& gbmaduser &"' 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 overtime From topic Where id="& id,conn,1,3
if Not rs.Eof then
if Not IsNull(rs("overtime")) then
if Datediff("d",Now(),rs("overtime"))>2 then
rs("overtime")=Dateadd("d",-2,rs("overtime"))
else
rs("overtime")=Null
koala="yes"
end if
rs.Update
if koala="yes" then
contents=contents &"<script language=""JavaScript"">alert(""提示:帖子已经被乱抱树熊给抱下来了。"");window.close();</script>"
else
contents=contents &"<script language=""JavaScript"">alert(""提示:帖子已经被乱抱树熊给抱住了,但还能置顶到 "& rs("overtime") &" 才会掉下来。"");window.close();</script>"
end if
else
contents=contents &"<script language=""JavaScript"">alert(""提示:帖子已经被乱抱树熊给抱下来了。"");window.close();</script>"
end if
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"-->