fakuan.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 40 行

<%'罚款 
function fakuan(fn1,from1,to1)
fn1=abs(fn1)  
username=session("hxf_u_nickname")
grade=session("hxf_u_grade")
mykind=session("mykind")
mypai=session("mypai")
if username=""  then  Response.Redirect "../error.asp?id=440"
if to1="大家" or to1=from1 or mykind <> "掌门" and mykind <> "副掌门" then 
	Response.Write "<script language=JavaScript>{alert('〖"&from1&"〗看看自己的身份和罚款的对象好吗?');}</script>"
	exit function
	end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="SELECT 门派,身份,银两 FROM 用户 WHERE 姓名='" & to1 & "'" 
Set Rs=conn.Execute(sql) 
topai=rs("门派")
tokind=rs("身份")
if mypai<>topai or tokind="掌门" or tokind="副掌门" or fn1<10000 or fn1>1000000 then 
Response.Write "<script language=JavaScript>{alert('你的门派管理范围也太大了吧，门派罚款只能对自己的门派弟子使用,还的注意的是不能对掌门和副掌门进行罚款哦,罚款的最小金额为1万,最大金额为1百万两银子!');}</script>"
Response.End
	exit function
	end if
if rs("银两")>=fn1 then 
sql="update 用户 set 银两=银两-" & fn1 & " where 姓名='" & to1 & "'" 
Set Rs=conn.Execute(sql)
sql="update 门派 set 帮派基金=帮派基金+" & fn1 & " where 门派='" & mypai & "'" 
Set Rs=conn.Execute(sql) 
fakuan="<font color=#000000><b>〖" & mypai & "〗</font><font color=red>的" & from1 & "认为</font></b>" & to1 & "<font color=red><b>确实不是什么好人，决定罚款</b></font>" & fn1 & "<font color=red><b>两白银，本人的门派库金增加"& fn1 &"两</b></font>" 
else 
fakuan="<font color=#000000><b>〖" & mypai & "〗</font><font color=red>的" & from1 & "</font></b><font color=#000000><b>，我看你就放过</font></b><font color=red>" & to1 & "</font><font color=#000000><b>吧，别人身上总共都没有" & fn1&"两银子</b></font>" 
end if 
set rs=nothing
conn.Close 
set conn=nothing  
end function
%>