<%@language="VBscript"%>
<%Response.Expires=0%>
<!--#include file="../../config.asp" -->
<html>
<head>
<title>在线问卷调查系统__设置问卷可编辑状态</title>
<META NAME="robots" CONTENT="none">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../../inc/manage.css" type="text/css">

</head>
<body bgcolor="#FFFFFF" leftMargin=0 marginwidth="0" topmargin=0>
<!--#include file="../../manage/checkuserflag.asp"-->
<%call CheckUserFlag("02")%>
<!--#include file="menu_edit.asp"-->
<%
productid=Request.form("productid") '问卷ID号字符串
s=request("s")
set ObjSurvey = Server.CreateObject("dc_data100_v1_0.C_A_Config") 
abc=ObjSurvey.survey_edit_set(WebPath,DataPathFile,productid,s)
if abc<>1 then
	response.write "系统错误！"
	response.end
end if
%>
<form action="survey_list.asp" method=post name="frm_back">
<input type="hidden" name="me_page" value=<%=request.Cookies("back_page")%>>
<input type="hidden" name="keyword" value=<%=request.Cookies("back_keyword")%>>
<input type="hidden" name="catalogid" value=<%=request.Cookies("back_catalogid")%>>
<input type="hidden" name="type_id" value=<%=request.Cookies("back_type_id")%>>
</form>
<script language="javascript">
     alert('操作成功！');
	 document.frm_back.submit(); 
</script>
</body>
</html>