<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!-- #include file="inc/Session.asp" -->
<!-- #include file="inc/checkrole.asp" -->
<!-- #include file="../wd/inc/wenda_reset.asp" -->
<%
dim askid,Content,f_user,flag
if(request.QueryString("askid")<>"") then
	askid=Clng(request.QueryString("askid"))	
else
	askid=0
end if
if(request.QueryString("replyid")<>"") then
	replyid=Clng(request.QueryString("replyid"))	
else
	replyid=0
end if
if(request.QueryString("flag")<>"") then
	flag=Clng(request.QueryString("flag"))	
else
	flag=0
end if
if(askid>0) then
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select UserId from t_wenda where id="&askid,conn,3,1
	if not rs.eof then
		f_user=rs(0)
	end if
	rs.close
	set rs=nothing
	conn.execute("update t_reply set IsAnswer="&flag&" where id="&replyid)
	conn.execute("update t_wenda set Status="&flag&" where id="&askid)
	SetShowHtm(askid)
	response.Write("<script>location.href='"&request.ServerVariables("HTTP_REFERER")&"';</script>")
	response.End()
end if
call connclose()
%>