www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > explore.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 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 "reply Where id="& id,conn,1,1
if Not rs.Eof then
contents=contents &"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"&_
"<tr><td width=""5"" height=""15""><img border=""0"" src="""& theme &"01.gif""></td><td background="""& theme &"02.gif""> </td><td width=""14"" height=""15""><img border=""0"" src="""& theme &"03.gif""></td></tr>"&_
"</table>"&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"&_
"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">被 "& rs("deler") &" 删除的回复</td></tr>"&_
"<tr class=""tds""><td>"& unhtmlcode(rs("content"))
if rs("aboutlink")<>"" then contents=contents &"<br>相关链接：<a href="""& rs("aboutlink") &""" target=""_blank"">"& rs("aboutlink") &"</a>"
if rs("imglink")<>"" then contents=contents &"<br><img src="""& rs("imglink") &""" border=""0"">"
contents=contents &"<br>"& unhtmlcode(rs("remark")) &"</td></tr>"
if rs("anonymity")<>"" then
contents=contents &"<tr class=""tds""><td>---神秘人物"& rs("anonymity") &" <a href=""topictool.asp?reply="& rs("id") &""" onClick=""return shows(this.href+'&title="& rs("anonymity") &"');"" title=""使用 显影水晶 查看 神秘人物"& rs("anonymity") &"""><img src="""& theme &"develop.gif"" border=""0""></a> <font class=""del"">回复时间："& rs("posttime") &"</font></td></tr>"
else
contents=contents &"<tr class=""tds""><td>---"& rs("gbmaduser") &" <a href=""sendmessage.asp?username="& rs("gbmaduser") &""" onClick=""return shows(this.href);"" title=""发送密信给 "& rs("gbmaduser") &""">发送密信</a> <a href=""userinfo.asp?username="& rs("gbmaduser") &""" onClick=""return showb(this.href);"" title=""查看用户 "& rs("gbmaduser") &" 的详细信息"">作者信息</a> <font class=""del"">回复时间："& rs("posttime") &"</font></td></tr>"
end if
contents=contents &"</table>"&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"&_
"<tr><td width=""5"" height=""15""><img border=""0"" src="""& theme &"02.gif""></td><td background="""& theme &"02.gif""> </td><td width=""14"" height=""15""><img border=""0"" src="""& theme &"02.gif""></td></tr>"&_
"</table>"
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"-->