qssno.asp

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

<%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 "你拒绝了雇用!"
window.close()
</script>
<%
qssno=""&session("hxf_u_nickname")&"拒绝了"&Application("qss_f")&"的雇用，道:本大爷有更大的买卖要做,你这点钱爷还没放在眼里!"
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>【拒绝雇用】"& qssno &"</font></b>"
Application("hxf_c_sd")=sd
Application("qss_t")=""
Application("qss_f")=""
Application("qss_s")=""
Application("qss_j")=0
Application.UnLock
end if
%>