lg.asp

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

<%
Response.Buffer=true
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "no-cache" 
Response.Expires=0
username=session("hxf_u_nickname")
if username="" then Response.Redirect "../error.asp?id=440"
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=s & ":" & f & ":" & m
sj2=n & "-" & y & "-" & r & " " & sj
if DateDiff("s",Session("hxf_u_lasttime"),sj2)<10 then
 Response.Write "<script language=JavaScript>{alert('请等待10秒');}</script>"
 Response.End 
end if
Session("hxf_u_lasttime")=sj2
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="SELECT * FROM 用户 WHERE 姓名='" & username & "'"
set rs=conn.Execute (sql)
if rs("保护")=true then
mess=username&"练功完毕，取消了练功保护，恢复了原来的状态"
sql="update 用户 set 保护=false where 姓名='"&username&"'"
conn.Execute sql
else
if rs("内力")>2000000 or rs("体力")>2000000 then
mess=username&"你的武功已经高不可测了，不用再去练功了，还是去帮帮新手吧,不过可以尝试用保护卡哦"
else
mess=username&"为了专心练功，启动了练功保护，所有攻击将对其无效，但也不能攻击别人"
sql="update 用户 set 保护=true where 姓名='"&username&"'"
conn.Execute sql
end if
end if
rs.close
set rs=nothing                                                                 
conn.close                                                                 
set conn=nothing
    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"&cstr(chatroomsn)
      sd(178)="660099"
      sd(179)="对"
	  sd(180)="<font color=red>【练功】"& mess &"！</font>"
	Application("hxf_c_sd")=sd
    Application.UnLock 
%>
<script language=vbscript>   
MsgBox "<%=mess%>！" 
window.close
</script>