ling.asp

网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理 公文 车辆 通知 档案 值班 人事 审批 仓库 主界面 软件下载 个

<%
'掌门令
function ling(fn1,from1,to1)
fn1=trim(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 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 姓名='" & from1 & "'"
	Set Rs=conn.Execute(sql)

       jin=rs("经验")
	if jin < 500 then
		ling="〖系统〗对[<a href=javascript:parent.sw('["&from1&"]'); target=f2>" & from1 & "</a>]说：你的经验不够，发一次掌门令需要500经验"
	else
      ling="<table bgcolor=#669900 width=40% align=center border=0 cellspacing=0 cellpadding='0'><tr><td bgcolor=#FFFFFF align=center height='16'><font color='#FFFFFF' size='2'><b><font size='2' color='#9D64C4'><b><font color='#F8330A' face='Wingdings' size='5'>[</font></b></font> <font color='#FF0000' size='5'>掌 门 令</font><font color='#000000' size='5'><font face='Wingdings' color='#F8330A' size='2'></font></font><font color='#FFFFFF' size='5'><b><font color='#9D64C4'><b><font color='#F8330A' face='Wingdings'>[</font></b></font></b></font></b></font></td><tr><td height='17'><div align='center'><font size='2' color='#9D64C4'><b><font color='#FFFFFF'size='2'>"&mypai&mykind&from1&"令：门下弟子听令，"&fn1&"</font></b></font></div></td></tr></table>"
       'sql="update 用户 set 经验=经验-500 where 姓名='"&from1&"'"
       'set rs=conn.execute(sql)
       'ling="〖系统〗对[<a href=javascript:parent.sw('["&from1&"]'); target=f2>" & from1 & "</a>]说：你的金币不够，发一次掌门令需要500经验"
	end if
	rs.close
	set rs=nothing

end function
%>