qssok.asp

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

<%Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache"
username=session("hxf_u_nickname")
if username="" then Response.Redirect "../error.asp?id=440"
if Application("qss_t")<>session("hxf_u_nickname") then%>
<script language=vbscript>
MsgBox "人家没有请你啊!"
window.close()
</script>
<%Response.End
else%>
<script language=vbscript>
MsgBox "你接受了雇用，你要杀的目标是[<%=Application("qss_s")%>],佣金<%=Application("qss_j")%>,成功追杀后你将得到这笔钱"
window.close()
</script>
<%
qssok=""&session("hxf_u_nickname")&"接受"& Application("qss_f") &"的雇用，即将被杀目标****,佣金"&Application("qss_j")&",成功追杀后"&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 杀手"
set rs=conn.execute(sql)
sql="insert into 杀手(雇用人,雇用日期,被杀者,雇用杀手,报酬,完成) values ('"& Application("qss_f") &"',now(),'"& Application("qss_s") &"','"&session("hxf_u_nickname")&"',"& Application("qss_j") &",'未成功')"
conn.execute(sql)
conn.close
set conn=nothing
Application.Lock
sd=Application("hxf_c_sd"&x)
line=int(Application("hxf_c_line"&x))+1
Application("hxf_c_line"&x)=line
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)="<b><font color=red>【接受雇用】"& qssok &"</font></b>"
Application("hxf_c_sd")=sd
Application("qss_t")=""
Application("qss_f")=""
Application("qss_j")=0
Application("qss_s")=""
Application.UnLock
end if
%>