<!--#include file="../../dbconn.asp"-->
<!--#include file="../../manage/checkuserflag.asp"-->
<%call CheckUserFlag("02")
survey_id=request("S_id")
Q_id=request("Q_id")
update_sort=request.form("update_sort")
weizhi=request("weizhi")
%>
<script language="javascript">
      
  function checkform(){
      /*if (document.form1.newsort.value=="0"){
          alert("栏目不能为空!请选择栏目!");
          document.form1.newsort.focus();
          return false;
          }*/
      
      if (document.add_poll.title.value ==""){
          alert("调查主题不能为空!请填写!");
          document.add_poll.title.focus();
          return false;
          }
          
      /*if (document.form1.content___Config.value==""){
          alert("新闻内容不能为空!请填写!");
          document.form1.content.focus();
          return false;
          }   */    
          
  }           
          
</script>
<%Response.Buffer=True
Response.CacheControl="no-cache"   
Response.Expires=0%>
<html>
<head>
<title>盛维在线调查系统v9.0免费版-&gt问卷调查系统后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="盛维在线调查系统v9.0免费版" name=description>
<link rel="stylesheet" href="../../inc/manage.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<!--#include file="../../ad-manage/fckeditor.asp"-->
<%Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "/fckeditor_2.6.2/"

dim ObjDCW

if update_sort="edit_poll" then
	Set ObjDCW = Server.CreateObject("dc_data100_v1_0.C_A_Config")
	ObjDCW.survey_poll_edit_save DataPathFile,survey_id,Q_id,weizhi '保存编辑的问题
else
	add_survey_q(Q_id)
end if

function add_survey_q(Q_id)

OpenDB DataPathFile

sql = "Select * From Question where Q_ID=" & Q_id
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, DBConn, 1,1
If Not rs.EOF Then
	Q_Title=rs("Q_Title")
	Q_Title_exp=rs("Q_Title_exp")
	Q_Sort=rs("Q_Sort")
	Q_Select=rs("Q_Select")
	'response.write "Q_Select=" & Q_Select & "<BR>"
	Q_Pailie=rs("Q_Pailie")
	Q_Num1=rs("Q_Num1")
	Q_Num2=rs("Q_Num2")
	Q_Small=rs("Q_Small")
	Q_Max=rs("Q_Max")
	Q_Order=rs("Q_Order")
	Q_Page=rs("Q_Page")
	rs.close
	set rs=nothing
end if
'response.end
%>
<form name="add_poll" action="" method="post" onSubmit="return checkform();">  
  <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#5C99DC">
    <!--<tr> 
      <td  colspan="2" background="../../images/s3wcn_bt.gif"><font face=webdings color="#0000CC">8</font>
              <img src="/pixel.gif" width="200" height="1"><span style="FONT-SIZE: 14px"><b><font color="#0000CC">编 辑 问 卷　　编辑调查问题及选项</font></b></span></td>
    </tr>-->
    <tr bgcolor="#FFFFFF"> 
      <td class="Info_Title" width="18%" align="center">问题标题：</td>
      <td class="Info_Title" width="82%"> 
        <input name="title" type="text" value="<%=Q_Title%>" size="100" maxlength="100">
<%

'oFCKeditor.ToolbarSet = "Basic"
'oFCKeditor.Width = "100%"
'oFCKeditor.Height = "130"

'oFCKeditor.Value = ""
'oFCKeditor.Create "title"
%>      </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td align="center">补充说明：</td>
      <td><%
'oFCKeditor.ToolbarSet = "Default"'Basic
'oFCKeditor.Width = "100%"
'oFCKeditor.Height = "150"

'oFCKeditor.Value = Q_Title_exp
'oFCKeditor.Create "content"
%>  <label>
        <textarea name="content" id="content" cols="100" rows="3"><%=Q_Title_exp%></textarea>
      </label></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td align="center">选项类型：</td>
      <td><input name="survey_sort" type="radio" value="1" onClick="L00.style.display='inline';L0.style.display='inline';L1.style.display='inline';L2.style.display='none';L3.style.display='none';L4.style.display='none';L5.style.display='none';L6.style.display='none';L7.style.display='none';L8.style.display='none';L9.style.display='none';L10.style.display='none';L11.style.display='none';" <%if Q_Sort=1 then response.write "checked"%>>
单选
          <input type="radio" name="survey_sort" value="2" onClick="L00.style.display='inline';L0.style.display='inline';L1.style.display='none';L2.style.display='inline';L3.style.display='none';L4.style.display='none';L5.style.display='none';L6.style.display='none';L7.style.display='none';L8.style.display='none';L9.style.display='none';L10.style.display='none';L11.style.display='none';" <%if Q_Sort=2 then response.write "checked"%>>
单选＋文字说明
        <input type="radio" name="survey_sort" value="3" onClick="L00.style.display='inline';L0.style.display='inline';L1.style.display='none';L2.style.display='none';L3.style.display='inline';L4.style.display='none';L5.style.display='none';L6.style.display='none';L7.style.display='none';L8.style.display='none';L9.style.display='none';L10.style.display='none';L11.style.display='none';" <%if Q_Sort=3 then response.write "checked"%>>
多选
<input type="radio" name="survey_sort" value="4" onClick="L00.style.display='inline';L0.style.display='inline';L1.style.display='none';L2.style.display='none';L3.style.display='none';L4.style.display='inline';L5.style.display='none';L6.style.display='none';L7.style.display='none';L8.style.display='none';L9.style.display='none';L10.style.display='none';L11.style.display='none';" <%if Q_Sort=4 then response.write "checked"%>>
多选＋文字说明
<input type="radio" name="survey_sort" value="5" onClick="L00.style.display='inline';L0.style.display='inline';L1.style.display='none';L2.style.display='none';L3.style.display='none';L4.style.display='none';L5.style.display='inline';L6.style.display='none';L7.style.display='none';L8.style.display='none';L9.style.display='none';L10.style.display='none';L11.style.display='none';" <%if Q_Sort=5 then response.write "checked"%>>
单选矩阵
<input type="radio" name="survey_sort" value="6" onClick="L00.style.display='inline';L0.style.display='inline';L1.style.display='none';L2.style.display='none';L3.style.display='none';L4.style.display='none';L5.style.display='none';L6.style.display='inline';L7.style.display='none';L8.style.display='none';L9.style.display='none';L10.style.display='none';L11.style.display='none';" <%if Q_Sort=6 then response.write "checked"%>>
多选矩阵
<br>
<input type="radio" name="survey_sort" value="7" onClick="L00.style.display='inline';L0.style.display='none';L1.style.display='none';L2.style.display='none';L3.style.display='none';L4.style.display='none';L5.style.display='none';L6.style.display='none';L7.style.display='inline';L8.style.display='none';L9.style.display='none';L10.style.display='none';L11.style.display='none';" <%if Q_Sort=7 then response.write "checked"%>>
多行文字说明型
<input type="radio" name="survey_sort" value="8" onClick="L00.style.display='inline';L0.style.display='none';L1.style.display='none';L2.style.display='none';L3.style.display='none';L4.style.display='none';L5.style.display='none';L6.style.display='none';L7.style.display='none';L8.style.display='inline';L9.style.display='none';L10.style.display='none';L11.style.display='none';" <%if Q_Sort=8 then response.write "checked"%>>
数值输入型

<input type="radio" name="survey_sort" value="9" onClick="L00.style.display='inline';L0.style.display='none';L1.style.display='none';L2.style.display='none';L3.style.display='none';L4.style.display='none';L5.style.display='none';L6.style.display='none';L7.style.display='none';L8.style.display='none';L9.style.display='inline';L10.style.display='none';L11.style.display='none';" <%if Q_Sort=9 then response.write "checked"%>>
列举型
<input type="radio" name="survey_sort" value="10" onClick="L00.style.display='inline';L0.style.display='inline';L1.style.display='none';L2.style.display='none';L3.style.display='none';L4.style.display='none';L5.style.display='none';L6.style.display='none';L7.style.display='none';L8.style.display='none';L9.style.display='none';L10.style.display='inline';L11.style.display='none';" <%if Q_Sort=10 then response.write "checked"%>>
排序型
<input type="radio" name="survey_sort" value="11" onClick="L00.style.display='inline';L0.style.display='none';L1.style.display='none';L2.style.display='none';L3.style.display='none';L4.style.display='none';L5.style.display='none';L6.style.display='none';L7.style.display='none';L8.style.display='none';L9.style.display='none';L10.style.display='none';L11.style.display='inline';" <%if Q_Sort=11 then response.write "checked"%>>
单行文本输入型
<input type="radio" name="survey_sort" value="12" onClick="L00.style.display='none';L0.style.display='none';L1.style.display='none';L2.style.display='none';L3.style.display='none';L4.style.display='none';L5.style.display='none';L6.style.display='none';L7.style.display='none';L8.style.display='none';L9.style.display='none';L10.style.display='none';L11.style.display='none';" <%if Q_Sort=12 then response.write "checked"%>>
信息提示栏
</td>
    </tr>
<%'select case Q_Sort
		'case 1%>
    <tr bgcolor="#FFFFFF" id="L1" 
    <%if Q_Sort=1 then
		response.write "style=""display:inline;"""
	else
		response.write "style=""display:none;"""
	end if
	%>>
      <td align="center">单选项：</td>
      <td>
        <p>每行回车表示一个选项<br>
          如需要设置逻辑跳转题，参见<a href="../../help/tiaozhuan-exp.asp" target="_blank"><font color="#ff3300">设置说明</font></a>。<br>
<%sql = "Select A_Answer,A_Score,Q_ID_Str From Answer where Q_ID=" & Q_id & " order by A_ID asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, DBConn, 1,1
If Not rs.EOF Then
	rscount=rs.recordcount
	A_Answer_str=""
	A_Score_str=""
	for i=1 to rscount step 1
		Q_ID_Str=trim(rs("Q_ID_Str"))
		if Q_ID_Str<>"" then
			A_Answer_str=A_Answer_str & chr(13) & rs("A_Answer") & "［选择该项，则跳过第" & rs("Q_ID_Str") & "题］"
		else
			A_Answer_str=A_Answer_str & chr(13) & rs("A_Answer")
		end if
		A_Score_str=A_Score_str & "," & rs("A_Score")
		rs.movenext
	next
	A_Score_str=mid(A_Score_str,2,len(A_Score_str)-1)
	rs.close
	set rs=nothing
end if%>
          <textarea name="N1" cols="100" rows="10" id="N1"><%=A_Answer_str%></textarea><br>
          对应的分数
          <input name="Score1" type="text" id="Score1" value="<%=A_Score_str%>" size="25"> 分数之间请用半角的","分隔。例：如果有5个选项，可设置成 1,2,0,0,3
        </p>      </td>
    </tr>
<%'case 2%>
    <tr bgcolor="#FFFFFF" id="L2" <%if Q_Sort=2 then
		response.write "style=""display:inline;"""
	else
		response.write "style=""display:none;"""
	end if
	%>>
      <td align="center">单选项：</td>
      <td><p>每行回车表示一个选项<br>
<%sql = "Select A_Answer From Answer where Q_ID=" & Q_id & " order by A_ID asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, DBConn, 1,1
If Not rs.EOF Then
	rscount=rs.recordcount
	A_Answer_str=""
	for i=1 to rscount step 1
		A_Answer_str=A_Answer_str & chr(13) & rs("A_Answer")
		rs.movenext
	next
	rs.close
	set rs=nothing
end if%>
          <textarea name="N2" cols="100" rows="10" id="N2"><%=A_Answer_str%></textarea>
          <br>
      其它项 输入框字符宽度：
        <input name="N2_K" type="text" id="N2_K" value="<%=Q_Num1%>" size="5">
      </p>      </td>
    </tr>
<%'case 3%>  
    <tr bgcolor="#FFFFFF" id="L3" <%if Q_Sort=3 then
		response.write "style=""display:inline;"""
	else
		response.write "style=""display:none;"""
	end if
	%>>
      <td align="center">多选项：</td>
      <td>每行回车表示一个选项<br>
<%sql = "Select A_Answer,A_Score From Answer where Q_ID=" & Q_id & " order by A_ID asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, DBConn, 1,1
If Not rs.EOF Then
	rscount=rs.recordcount
	A_Answer_str=""
	A_Score_str=""
	for i=1 to rscount step 1
		A_Answer_str=A_Answer_str & chr(13) & rs("A_Answer")
		A_Score_str=A_Score_str & "," & rs("A_Score")
		rs.movenext
	next
	A_Score_str=mid(A_Score_str,2,len(A_Score_str)-1)
	rs.close
	set rs=nothing
end if%>
        <textarea name="N3" cols="100" rows="10" id="N3"><%=A_Answer_str%></textarea>
        <br>
          对应的分数
          <input name="Score3" type="text" id="Score3" value="<%=A_Score_str%>" size="25"> 分数之间请用半角的","分隔。例：如果有5个选项，可设置成 1,2,0,0,3
<br>
最小需选
<input name="N3_S" type="text" id="N3_S" value="<%=Q_Small%>" size="4">
项　最多可选
<input name="N3_M" type="text" id="N3_M" value="<%=Q_Max%>" size="4">
项</td>
    </tr>
<%'case 4%> 
    <tr bgcolor="#FFFFFF" id="L4" <%if Q_Sort=4 then
		response.write "style=""display:inline;"""
	else
		response.write "style=""display:none;"""
	end if
	%>>
      <td align="center">多选项：</td>
      <td>每行回车表示一个选项<br>
<%sql = "Select A_Answer From Answer where Q_ID=" & Q_id & " order by A_ID asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, DBConn, 1,1
If Not rs.EOF Then
	rscount=rs.recordcount
	A_Answer_str=""
	for i=1 to rscount step 1
		A_Answer_str=A_Answer_str & chr(13) & rs("A_Answer")
		rs.movenext
	next
	rs.close
	set rs=nothing
end if%>
        <textarea name="N4" cols="100" rows="10" id="N4"><%=A_Answer_str%></textarea>
        <br>
其它项 输入框字符宽度：
<input name="N4_K" type="text" id="N4_K" value="<%=Q_Num1%>" size="5">
<br>
最小需选
<input name="N4_S" type="text" id="N4_S" value="<%=Q_Small%>" size="4">
项　最多可选
<input name="N4_M" type="text" id="N4_M" value="<%=Q_Max%>" size="4">
项</td>
    </tr>
    <%'case 5%> 
    <tr bgcolor="#FFFFFF" id="L5" <%if Q_Sort=5 then
		response.write "style=""display:inline;"""
	else
		response.write "style=""display:none;"""
	end if
	%>>
      <td align="center">单选子题目及选项：</td>
      <td>
<%sql = "Select Q_B_title From Question_baby where Q_ID=" & Q_id & " order by Q_B_ID asc"
Set rs_b = Server.CreateObject("ADODB.Recordset")
rs_b.Open sql, DBConn, 1,1
If Not rs_b.EOF Then
	rscount=rs_b.recordcount
	Q_B_title_str=""
	for i=1 to rscount step 1
		Q_B_title_str=Q_B_title_str & chr(13) & rs_b("Q_B_title")
		rs_b.movenext
	next
	rs_b.close
	set rs_b=nothing
end if%>
      <p>
        单选子题目（每行回车表示一个子题目）<br>
        <textarea name="Q5" cols="100" rows="7" id="Q5"><%=Q_B_title_str%></textarea>
      </p>
<%sql = "Select A_Answer,A_Score From Answer where Q_ID=" & Q_id & " order by A_ID asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, DBConn, 1,1
If Not rs.EOF Then
	rscount=rs.recordcount
	A_Answer_str=""
	A_Score_str=""
	for i=1 to rscount step 1
		A_Answer_str=A_Answer_str & chr(13) & rs("A_Answer")
		A_Score_str=A_Score_str & "," & rs("A_Score")
		rs.movenext
	next
	A_Score_str=mid(A_Score_str,2,len(A_Score_str)-1)
	rs.close
	set rs=nothing
end if%>
      <p> 单选选项（每行回车表示一个选项）<br>
          <textarea name="N5" cols="100" rows="7" id="N5"><%=A_Answer_str%></textarea>
      <br>
          对应的分数
          <input name="Score5" type="text" id="Score5" value="<%=A_Score_str%>" size="25"> 分数之间请用半角的","分隔。例：如果有5个选项，可设置成 1,2,0,0,3
      </p>      </td>
    </tr>
    <%'case 6%> 
    <tr bgcolor="#FFFFFF" id="L6" <%if Q_Sort=6 then
		response.write "style=""display:inline;"""
	else
		response.write "style=""display:none;"""
	end if
	%>>
      <td align="center">多选子题目及选项：</td>
      <td>
<%sql = "Select Q_B_title From Question_baby where Q_ID=" & Q_id & " order by Q_B_ID asc"
Set rs_b = Server.CreateObject("ADODB.Recordset")
rs_b.Open sql, DBConn, 1,1
If Not rs_b.EOF Then
	rscount=rs_b.recordcount
	Q_B_title_str=""
	for i=1 to rscount step 1
		Q_B_title_str=Q_B_title_str & chr(13) & rs_b("Q_B_title")
		rs_b.movenext
	next
	rs_b.close
	set rs_b=nothing
end if%>
      <p>多选子题目（每行回车表示一个子题目）<br>
            <textarea name="Q6" cols="100" rows="7" id="Q6"><%=Q_B_title_str%></textarea>
      </p>
<%sql = "Select A_Answer,A_Score From Answer where Q_ID=" & Q_id & " order by A_ID asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, DBConn, 1,1
If Not rs.EOF Then
	rscount=rs.recordcount
	A_Answer_str=""
	A_Score_str=""
	for i=1 to rscount step 1
		A_Answer_str=A_Answer_str & chr(13) & rs("A_Answer")
		A_Score_str=A_Score_str & "," & rs("A_Score")
		rs.movenext
	next
	A_Score_str=mid(A_Score_str,2,len(A_Score_str)-1)
	rs.close
	set rs=nothing
end if%>
      <p> 多选选项（每行回车表示一个选项）<br>
            <textarea name="N6" cols="100" rows="7" id="N6"><%=A_Answer_str%></textarea>
        <br>
          对应的分数
          <input name="Score6" type="text" id="Score6" value="<%=A_Score_str%>" size="25"> 分数之间请用半角的","分隔。例：如果有5个选项，可设置成 1,2,0,0,3
          <br>
        最小需选
          <input name="N6_S" type="text" id="textfield9" value="<%=Q_Small%>" size="4">
项　最多可选
          <input name="N6_M" type="text" id="N6_M" value="<%=Q_Max%>" size="4">
项</p></td>
    </tr>
    <%'case 7%> 
    <tr bgcolor="#FFFFFF" id="L7" <%if Q_Sort=7 then
		response.write "style=""display:inline;"""
	else
		response.write "style=""display:none;"""
	end if
	%>>
      <td align="center">文本区域选项设置：</td>
      <td>输入框字符宽度：
        <input name="N7_K" type="text" id="N7_K" value="<%=Q_Num1%>" size="6">
　行数(高度)：
<input name="N7_H" type="text" id="N7_H" value="<%=Q_Num2%>" size="6"></td>
    </tr>
    <%'case 8%> 
    <tr bgcolor="#FFFFFF" id="L8" <%if Q_Sort=8 then
		response.write "style=""display:inline;"""
	else
		response.write "style=""display:none;"""
	end if
	%>>
      <td align="center">数值范围：</td>
      <td>最小值
        <input name="N8_S" type="text" id="N8_S" value="<%=Q_Small%>" size="12">　
        最大值
        <label>
        <input name="N8_M" type="text" id="N8_M" value="<%=Q_Max%>" size="12">
      </label></td>
    </tr>
    <%'case 9%> 
    <tr bgcolor="#FFFFFF" id="L9" <%if Q_Sort=9 then
		response.write "style=""display:inline;"""
	else
		response.write "style=""display:none;"""
	end if
	%>>
      <td align="center">列举设置：</td>
      <td>列举数量
        <input name="N9_Numb" type="text" id="N9_Numb" value="<%=Q_Max%>" size="4">
        　      最小列举
        <input name="N9_S" type="text" id="N9_S" value="<%=Q_Small%>" size="4">
        项</td>
    </tr>
    <%'case 10%> 
    <tr bgcolor="#FFFFFF" id="L10" <%if Q_Sort=10 then
		response.write "style=""display:inline;"""
	else
		response.write "style=""display:none;"""
	end if
	%>>
      <td align="center">排序选项：</td>
      <td>选项（每行回车表示一个选项）<br>
<%sql = "Select Q_B_title From Question_baby where Q_ID=" & Q_id & " order by Q_B_ID asc"
Set rs_b = Server.CreateObject("ADODB.Recordset")
rs_b.Open sql, DBConn, 1,1
If Not rs_b.EOF Then
	rscount=rs_b.recordcount
	Q_B_title_str=""
	for i=1 to rscount step 1
		Q_B_title_str=Q_B_title_str & chr(13) & rs_b("Q_B_title")
		rs_b.movenext
	next
	rs_b.close
	set rs_b=nothing
end if%>
        <textarea name="Q10" cols="100" rows="10" id="Q10"><%=Q_B_title_str%></textarea>
        <br></td>
    </tr>
    <%'case 11%> 
    <tr bgcolor="#FFFFFF" id="L11" <%if Q_Sort=11 then
		response.write "style=""display:inline;"""
	else
		response.write "style=""display:none;"""
	end if
	%>>
      <td align="center">单行文本选项设置：</td>
      <td>输入框字符宽度：
        <input name="N11_K" type="text" id="N11_K" value="<%=Q_Num1%>" size="6">
        <br>
        验证：
        <INPUT name="N11_L" type="radio" value="1" <%if Q_Num2=1 then response.write "checked"%>>
邮编
  <INPUT type="radio" value="2" name="N11_L" <%if Q_Num2=2 then response.write "checked"%>>
手机号
<INPUT type="radio" value="3" name="N11_L" <%if Q_Num2=3 then response.write "checked"%>>
Email
<INPUT type="radio" value="4" name="N11_L" <%if Q_Num2=4 then response.write "checked"%>>
网址
<INPUT type="radio" value="5" name="N11_L" <%if Q_Num2=5 then response.write "checked"%>>
中文
<INPUT type="radio" value="6" name="N11_L" <%if Q_Num2=6 then response.write "checked"%>>
英文
<INPUT type="radio" value="7" name="N11_L" <%if Q_Num2=7 then response.write "checked"%>>
身份证号
<INPUT type="radio" value="8" name="N11_L" <%if Q_Num2=8 then response.write "checked"%>>
日期
<INPUT name="N11_L" type="radio" value="0" <%if Q_Num2=0 then response.write "checked"%>>
不验证
<br>
最少字符数
<INPUT id="N11_S" maxLength="3" size="2" value="<%=Q_Small%>" name="N11_S">
最多字符数
<INPUT id="N11_M" maxLength="3" size="2" value="<%=Q_Max%>" name="N11_M"></td>
    </tr>
<%'end select
%>
    <tr bgcolor="#FFFFFF" id="L0" <%if Q_Sort=1 or Q_Sort=2 or Q_Sort=3 or Q_Sort=4 or Q_Sort=5 or Q_Sort=6 or Q_Sort=10 then
		response.write "style=""display:inline;"""
	else
		response.write "style=""display:none;"""
	end if
	%>>
      <td align="center">选项排列：</td>
      <td><label>
        <input name="pailie" type="radio" id="radio13" value="|" <%if Q_Pailie="|" then response.write "checked"%>>
        </label>
纵向排列　
<input name="pailie" type="radio" id="radio14" value="-" <%if Q_Pailie="-" then response.write "checked"%>>
横向排列</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td align="center">其它设置：</td>
      <td>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="140" id="L00" <%if Q_Sort=12 then
		response.write "style=""display:none;"""
	else
		response.write "style=""display:inline;"""
	end if
	%>><label>
        <input name="bida" type="radio" id="bida" value="1" <%if Q_Select=true then response.write "checked"%>>
        必答
        <input name="bida" type="radio" id="bida2" value="0" <%if Q_Select=false then response.write "checked"%>>
        非必答</label></td>
            <td><label>题目放在第
        <%if weizhi=2 then
			response.write 1%>
            <input name="Page" type="hidden" id="Page" value="1" size="4">
		<%else%>
        	<input name="Page" type="text" id="Page" value="<%=Q_Page%>" size="4">
        <%end if%>
      页的第<input name="Order" type="text" id="Order" value="<%=Q_Order%>" size="4">
      条</label></td>
          </tr>
        </table>
      </td>
    </tr>
    
    <tr  bgcolor="#FFFFFF"> 
      <td colspan="2" align="center"> <input name="update_sort" type="hidden" id="update_sort" value="edit_poll">
      <input name="S_id" type="hidden" id="S_id" value="<%=survey_id%>">
      <input name="Q_id" type="hidden" id="Q_id" value="<%=Q_id%>">
      <input name="weizhi" type="hidden" id="weizhi" value="<%=weizhi%>">
      <!--<input name="survey_sort" type="hidden" id="survey_sort" value="<%=Q_Sort%>">-->
      <input type="submit" name="Submit2" value="保 存" style="WIDTH: 85px; HEIGHT: 24px;"></td>
    </tr>
  </table>
</form>
 <%closeDB
end function

'-------------------------

%>