2.asp

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

<%
'点穴
function dian(fn1,from1,to1)
if fn1="" then
     Response.Write "<script language=javascript>{alert('说个点穴的原因好吗，格式 \点穴 骂人，捣乱?');}</script>" 
      Response.End
exit function
end if
if to1=from1 or to1="大家" then
     Response.Write "<script language=javascript>{alert('晕，也不看看是谁，就乱点啊?');}</script>" 
      Response.End
exit function
end if
	if session("mypai")<>"六扇门" and session("mykind")<>"掌门" and session("mykind")<>"副掌门" and session("mykind")<>"左护法" and session("mykind")<>"右护法"  then
	     Response.Write "<script language=javascript>{alert('你什么身份啊，也想点穴?');}</script>" 
      Response.End
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)
	if rs("门派")="六扇门" then
     Response.Write "<script language=javascript>{alert('不能对官府的人点穴的!');}</script>" 
      set rs=nothing
      set conn=nothing
      Response.End
exit function
end if
       if session("mypai")="六扇门" then
	call boot(to1)
	dian="六扇门的<bgsound src=gj.wav loop=1>["& from1 & "]一脚板把捣乱的" & to1 & "蹿出了聊天室!<font color=red>[原因]：</font>"&fn1
set rs=nothing
set conn=nothing
exit function
end if   
if session("mypai")<>"六扇门" then
if (Hour(time())*3600+Minute(time())*60+Second(time()))-session("dian")>300 or session("dian")="" or (Hour(time())*3600+Minute(time())*60+Second(time()))-session("dian")<0 then 
session("dian")=Hour(time())*3600+Minute(time())*60+Second(time()) 
else
     Response.Write "<script language=javascript>{alert('你这样点穴不手软吗，5分钟点一次的!');}</script>" 
      Response.End
exit function
end if
end if
	sql="SELECT * FROM 用户 WHERE 姓名='" & from1 & "'"
	Set Rs=conn.Execute(sql)
	dxshu=rs("ljldxman")
	nei=rs("内力")
        pai=rs("门派")
	shenfen=rs("身份")
	if (shenfen="左护法" or shenfen="右护法") and dxshu>3 then 
	     Response.Write "<script language=javascript>{alert('护法每天最多点穴3次?');}</script>" 
      Response.End
	exit function
    end if
	if shenfen="副掌门" and dxshu>5 then 
     Response.Write "<script language=javascript>{alert('副掌门每天最多点穴5次!');}</script>" 
      Response.End
	exit function
    end if
	if shenfen="掌门" and dxshu>10 and rs("门派")<>"六扇门" then 
     Response.Write "<script language=javascript>{alert('掌门每天最多点穴10次!');}</script>" 
      Response.End
	exit function
    end if
     if rs("内力")<200000 then
     Response.Write "<script language=javascript>{alert('没有20万的内力不能点人!');}</script>" 
      Response.End
      exit function
      end if
sql="select * from 卡片拥有 where  卡片名称='E缘坐牢卡' and 数值>0 and 拥有者='"&to1&"'"
set rs=conn.execute(sql)
if not (rs.eof or rs.bof) then
idmb=rs("id")
 sql="update 卡片拥有 set 数值=数值-1 where  id="&idmb
  conn.execute sql
   dian="[江湖]对[<a href=javascript:parent.sw('["&from1&"]'); target=f2>" & from1 & "</a>]说：真遗憾，"&to1&"身上的E缘坐牢卡生效，白白浪费了200000的内力，还被送到大牢待10分钟！"
		   sql="update 用户 set 内力=内力-200000, 状态='牢',登录=now()+1/144 where 姓名='" & from1 & "'"
			conn.execute sql
			call boot(from1)     
		    exit function  
else
                   sql="select * from 用户 where 姓名='" & to1 & "'"
			Set rs=conn.execute(sql)
			 if (nei>rs("内力") or pai="六扇门") and rs("门派")<>"六扇门"  then
					call boot(to1)
					dian="【"&from1&"】<bgsound src=dianxue.wav loop=1>使用一指蝉，耗费了200000的内力把" & to1 & "点出了聊天室！<font color=009900>【原因：" & fn1 & "】</font>"
		sql="update 用户 set ljldxman=ljldxman+1,内力=内力-200000 where 姓名='" & from1 & "'"
                conn.execute sql
		else
		dian="[<a href=javascript:parent.sw('["&from1&"]'); target=f2>"&from1 & "</a>]对[<a href=javascript:parent.sw('["&to1&"]'); target=f2>" & to1 & "</a>]使用了一指蝉耗费了200000的内力，但力不从心，只感到自己的手一阵发麻"
sql="update 用户 set 内力=内力-200000 where 姓名='" & from1 & "'"
                conn.execute sql
	end if
	end if
set rs=nothing
set conn=nothing
end function
%>