listmoney.asp

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

<%
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>=8"
	    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>向聊天室的每个人发了50万两</font><img src=readonly/251.gif>解决灾情！"
        mess="<font color=#ff0000><font color=#000000>六扇门的</font>[" & youname & "]:"& diaox &""& yy &"</font>"
end select
for i=0 to x
sql="update 用户 set 银两=银两+500000 where 姓名='" & online(i) & "'"
conn.Execute sql
next
sql="update 用户 set 领钱=now() where 姓名='"&youname&"'"
conn.execute sql
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
Response.Redirect "f2.asp"
%>
</body>
</html>