listnei.asp

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

<%
Response.Buffer=true
youname=Session("hxf_u_nickname")
        Set conn=Server.CreateObject("ADODB.CONNECTION")
        Set rs=Server.CreateObject("ADODB.RecordSet")
        connstr=Application("hg_connstr")
        conn.open connstr
	    sql="SELECT * FROM 用户 WHERE 姓名='" & youname & "' and 门派='六扇门' and grade>=10"
	    Set Rs=conn.Execute(sql)
	if rs.eof or rs.bof then
rs.close
set rs=nothing                                                                 
conn.close                                                                 
set conn=nothing
%>
<script language=vbscript>   
MsgBox "你不是六扇门的人或者等级不够！"   
window.close 
</script>
<%
end if
useronlinename=Application("hxf_c_useronlinename")
onliners=Application("hxf_c_chatrs")
online=Split(Trim(useronlinename)," ",-1)
x=UBound(online)
yy="<bgsound src=readonly/zt.mid loop=1>"
        randomize timer
        r=int(rnd*1)
        s=int(rnd*100000)
        select case r
        case 0
        diaox="<font color=#000000>路过此地向聊天室的所有人传授了</font><font color=#ff0000><b>1000</b></font><font color=#000000>的内力！</font>"
        mess="<font color=#ff0000><font color=#000000>六扇门的</font>[" & youname & "]:"& diaox &""& yy &"</font>"
end select
for i=0 to x
sql="update 用户 set 内力=内力+1000 where 姓名='" & online(i) & "'"
conn.Execute sql
next
rs.close
set rs=nothing                                                                 
conn.close                                                                 
set conn=nothing
%>
<script language=vbscript>   
MsgBox "发内力完毕！"   
window.close 
</script> 
<%
Application.Lock
sd=Application("hxf_c_sd")
line=int(Application("hxf_c_line"))
Application("hxf_c_line")=line+1
for i=1 to 171
  sd(i)=sd(i+9)
next
sd(172)=line
sd(173)=1
sd(174)=0
sd(175)="消息"
sd(176)="大家"
sd(177)="660099"
sd(178)="660099"
sd(179)="对"
sd(180)=mess
Application("hxf_c_sd")=sd
Application.UnLock
%>