replying.asp

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

<%
username=session("hxf_u_nickname")
mypai=session("mypai")
if Application("hxf_c_ask")="" then
response.write "对不起呀!大侠，你来慢了一步了!"
response.write "<script LANGUAGE='JavaScript'>if(window!=window.top){top.location.href=location.href;}window.close();</script>"
response.end
end if
if username="" then response.redirect "../error.asp?id=440"
if mypai="六扇门" then response.redirect "../error.asp?id=476"
reply=trim(Request.form("reply"))
reply=server.HTMLEncode(reply)
if trim(Request.form("reply"))="" then Response.Redirect "../error.asp?id=478"
if reply=Application("hxf_c_reply") then
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
 sql="SELECT 银两 FROM 用户 WHERE 姓名='" & username & "'"
 rs.open sql,conn,1,3
 rs("银两")=rs("银两")+50000
 rs.Update
 rs.close
 conn.close
	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)="<b>【答题】<font color=balck>" & Application("hxf_c_ask") & "？</font>正确答案是：<font color=red>[ " & Application("hxf_c_reply") & " ] </font>〖"& username &"〗因此获得了50000两银子的奖励!</b>"
	Application("hxf_c_sd")=sd
	Application("hxf_c_ask")=""
	Application("hxf_c_reply")=""
else
response.redirect "../error.asp?id=479"
response.end
end if
%>
<script LANGUAGE="JavaScript">
if(window!=window.top){top.location.href=location.href;}
window.close();
</script>