questiontype.asp

东旭网络问卷调查系统 v2.4 很好用的大家试试看

<%
Response.ContentType="text/html"
Response.Charset="utf-8"
dim Qtype:Qtype=request.QueryString("Qtype")
dim Survey_id:Survey_id=request.QueryString("Survey_id")
select case Qtype
     case "1","2": call type1()
	 case "3","4": call type2()
	 case "5": call type3()
end select
%>
<script language="javascript" src="../Js/QuestAdd.js"></script>

<%sub type1()%>
<form name="form1" action="QuestionSave.asp?action=addnew" method="post" onSubmit="return SubQuestion();">
<input type="hidden" value=<%=Survey_id%> name="Survey_id">
<input type="hidden" value=<%=Qtype%> name="Question_type">
<input type="hidden" value="" name="Question_answer">
<input type="hidden" value="" name="Question_result">
问题：<input name="Question_content" type="text" size="40">
<br/><br/>
备选项：
<ul type="1" id="ulAnswer">
<li><input type="text" name="Answer"></li>
<li><input type="text" name="Answer"></li>
<li><input type="text" name="Answer"></li>
<li><input type="text" name="Answer"></li>
</ul>
<div id="button">
<input type="button" name="MoreAnswer1" value="增加选项" onClick="MoreAnswer();">
<input type="button" name="LessAnswer1" value="减少选项" onClick="LessAnswer();">
<input type="submit" value="添加题目">
</div>
</form>
<%end sub%>

<%sub type2()%>
<form name="form1" action="QuestionSave.asp?action=addnew" method="post" onSubmit="return SubQuestion();">
<input type="hidden" value=<%=Survey_id%> name="Survey_id">
<input type="hidden" value=<%=Qtype%> name="Question_type">
<input type="hidden" value="" name="Question_answer">
<input type="hidden" value="" name="Question_result">
问题：<input name="Question_content" type="text" size="40">
<br/><br/>
备选项：
<ul type="1" id="ulAnswer">
<li><input type="text" name="Answer"></li>
<li><input type="text" name="Answer"></li>
<li><input type="text" name="Answer"></li>
<li><input type="text" name="Answer"><input type="text" name="Answer_2" readonly="true" value="用户在此框输入自定义文本"></li>
</ul>
<div id="button">
<input type="button" name="MoreAnswer1" value="增加选项" onClick="MoreAnswer_2();">
<input type="button" name="LessAnswer1" value="减少选项" onClick="LessAnswer_2();">
<input type="submit" value="添加题目">
</div>
</form>
<%end sub%>

<%sub type3()%>
<form name="form1" action="QuestionSave.asp?action=addnew" method="post" onSubmit="return SubQuestion();">
<input type="hidden" value=<%=Survey_id%> name="Survey_id">
<input type="hidden" value=<%=Qtype%> name="Question_type">
<input type="hidden" value="" name="Question_answer">
<input type="hidden" value="" name="Question_result">
问题：<br/><input name="Question_content" type="text" size="40">
<br/><br/>
回答框：<br/>
<textarea rows="3" readonly="readonly"></textarea>
<br/><br/>
<div id="button">
<input type="submit" value="添加题目">
</div>
</form>
<%end sub%>