<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/function.asp"-->
<!-- #include file="inc/wenda_reset.asp" -->
<!-- #include file="session.asp" -->
<%
dim id,ansid,Content,f_user
if(request.QueryString("id")<>"") then
	id=Clng(request.QueryString("id"))	
else
	id=0
end if
if(request.QueryString("ansid")<>"") then
	ansid=Clng(request.QueryString("ansid"))	
else
	ansid=0
end if
if(id>0) then
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select UserId from t_wenda where id="&id,conn,3,1
	if not rs.eof then
		f_user=rs(0)
	end if
	rs.close
	set rs=nothing
	if(f_user=checkusername) then
		conn.execute("update t_reply set IsAnswer=1 where id="&ansid)
		conn.execute("update t_wenda set Status=1 where id="&id)		
	end if
end if
'SetShowHtm(id)
response.Redirect(request.ServerVariables("HTTP_REFERER"))
call connclose()
%>
