www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > setgb.asp
<%@Language="VBScript"%>
<!--#include file="title.asp"-->
<%
Dim tempadmin,matter,cause,minusgb,addsgb,handler,url
tempadmin=Session("tempadmin")
url=Request.ServerVariables("HTTP_REFERER")
contents=contents &"<title>"& gbname &"异动－"& caption &"</title>"&_
"</head>"&_
"<body>"&_
""&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
if bbsadmin>2 or tempadmin="yes" then
matter=Request.Form("matter")
cause=Request.Form("cause")
handler=Request.Form("username")
minusgb=Request.Form("minusgb")
if IsNumeric(minusgb) then
minusgb=Abs(Clng(minusgb))
else
minusgb=0
end if
addsgb=Request.Form("addsgb")
if IsNumeric(addsgb) then
addsgb=Abs(Clng(addsgb))
else
addsgb=0
end if
if minusgb>0 then matter=matter &" 并扣除"& gbname &"："& minusgb
if addsgb>0 then matter=matter &" 并给予"& gbname &"："& addsgb
if matter<>"" and cause<>"" and handler<>"" then
rs.Open "Select gb From gbmaduser Where gbmaduser='"& handler &"'",conn,1,3
if Not rs.Eof then
if minusgb>0 then rs("gb")=rs("gb")-minusgb
if addsgb>0 then rs("gb")=rs("gb")+addsgb
rs.Update
end if
rs.Close
rs.Open "report Where id=0",conn,1,3
rs.AddNew
rs("gbmaduser")=handler
rs("handler")=gbmaduser
rs("posttime")=Now()
rs("matter")=matter
rs("cause")=cause
rs.Update
rs.Close
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"" colspan=""3"">"& gbname &"异动</td></tr>"&_
"<tr class=""tds""><td>异动报告设置完成，并给予 "& handler &" "& gbname &"："& addsgb-minusgb &"。"
if Instr(url,"user.asp")>0 then contents=contents &"<br><a href="""& url &""">返回用户管理</a>。"
contents=contents &"</td></tr>"
Session.Contents.Remove "tempadmin"
elseif matter<>"" and handler<>"" then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你没有填写"& gbname &"异动的原因，<a href=""JavaScript:history.back();"">返回重新输入后再试</a>。<br><br></td></tr>"
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>非法调用或者程序出错。<br>请确定你是通过正常方式进行操作，如果依旧出错，请<a href=""reporting.asp"">联系管理员报告错误</a>。<br><a href=""JavaScript:history.back();"">返回刚才的页面</a>。<br><br></td></tr>"
end if
else
call connclose
Response.Redirect "login.asp"
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->