jiangli.asp

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

<%'奖励 
function jiangli(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 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 姓名='" & from1 & "'" 
Set Rs=conn.Execute(sql) 
if rs.eof or rs.bof then 
jiangli="" 
else
if mykind <> "掌门" and mykind <> "副掌门" then 
jiangli=from1 & ",您不可以使用奖励功能，只有<font color=#000000><b>门派里的掌门，副掌门</b></font>才可以使用本功能" 
else
sql="SELECT * FROM 用户 WHERE 姓名='" & to1 & "'" 
Set Rs=conn.Execute(sql) 
topai=rs("门派")
tokind=rs("身份")
if mypai<>topai then 
jiangli=from1& ",你的门派管理范围也太大了吧，门派奖励只能对自己的门派弟子使用!"
else
if tokind="掌门" or tokind="副掌门" then
jiangli=from1 &",对方是门派中有头有脸的人物，你应该把机会留给别人吧!（掌门，副掌门你不能被使用门派奖励）"
else
if fn1>10000000   then 
jiangli=from1 & "想奖励" & to1 & "大洋" & fn1 & "两，但由于数目超过江湖规定，；奖励失败！江湖规定奖励最大限制为1000万！" 
else 
if rs("银两")>=fn1 then 
rs=conn.execute(sql) 
sql="update 用户 set 银两=银两+" & fn1 & " where 姓名='" & to1 & "'" 
Set Rs=conn.Execute(sql)
sql="update 门派 set 帮派基金=帮派基金-" & fn1 & " where 门派='" & mypai & "'" 
Set Rs=conn.Execute(sql) 
jiangli="<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 
jiangli="<font color=#000000><b>〖" & mypai & "〗</font><font color=red>的" & from1 & "</font></b><font color=#000000><b>，你们</font></b><font color=red>" & mypai & "</font><font color=#000000><b>没有" & fn1&"两银子吧！</b></font>" 
end if 
end if
end if
end if
end if
end if
set rs=nothing
conn.Close 
set conn=nothing  
end function
%>