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"-->