lisjy.asp

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

<%
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=11 and 身份='掌门'"
	    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>100万</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 经验=经验+1000000 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
%>