显示记录的摘要并将记录中的数据显示与问卷中的代码及讲解

（）：表示解释说明

一.显示记录的摘要

<table width="800"height="500" border="0" align="center" >

 <th>&nbsp;</th>

 <tr>

   <td>序号</td>

   <td>答题时间</td>

   <td>用户IP号</td>

   <td>详情</td>

 </tr>

<% do while not rs.eof%>

 <tr>

   <td><%=rs("ID")%></td>

   <td><%=rs("date")%></td>

   <td><%=rs("ip")%></td>

   <td><ahref="Untitled-3.asp?ID=<%=rs("ID")%>">查看</a></td>

 </tr>

（此处的“%=”等于response.write）

（此处的“?ID=<%=rs("ID")”中后者ID为点击的“查看”所对应的ID，并将其赋值给前者ID，并传入记录输出页面，以提供相应的ID来输出其记录）

 

二.将记录中的数据显示于问卷中

<!--#includefile="conn.asp"-->

<%id=Cint(Request.QueryString("ID"))

（将显示记录页面传入的文本类型的ID用Cint转换为数值，并赋值给id）

Set rs=conn.Execute("Select * Fromanswer where num="&id ) %>

（执行SQL语句，将ID=id的记录赋值给rs）

1.您是大几的学生：<br/>

（如果是单选按钮，则用"checked='checked'"来选择选项）

<input name="q1"type="radio" value="grade1" <% Ifrs("qid")="q1" and rs("ans")="1" ThenResponse.write "checked='checked'" %> />大一<br/>

<input name="q1"type="radio" value="grade2" <% Ifrs("qid")="q1" and rs("ans")="2" ThenResponse.write "checked='checked'" %> />大二<br/>

<input name="q1"type="radio" value="grade3" <% Ifrs("qid")="q1" and rs("ans")="3" ThenResponse.write "checked='checked'" %> />大三<br/>

<input name="q1"type="radio" value="grade4" <% Ifrs("qid")="q1" and rs("ans")="4" ThenResponse.write "checked='checked'" %> />大四<br/>

<input name="q1"type="radio" value="yjs" <% Ifrs("qid")="q1" and rs("ans")="5" ThenResponse.write "checked='checked'" %> />研究生<br/>

<% rs.movenext%>

（rs.movenext来使记录指针向下移，使记录依次输出）

<br/>

2.您生活费的主要来源是：（多选）<br/>

（如果是多选按钮，则用Instr(rs("ans"),"1")来选定“1”是否在ans中，因为ans是以文本形式存储，例如ans="1,2,3"，用"checked='checked'"来选择选项）

<input name="q2"type="checkbox" value="f" <% Ifrs("qid")="q2" and Instr(rs("ans"),"1")Then Response.write "checked='checked'" %>/>父母<br/>

<input name="q2"type="checkbox" value="x" <% Ifrs("qid")="q2" and Instr(rs("ans"),"2")Then Response.write "checked='checked'" %>/>校内勤工俭学<br/>

<input name="q2"type="checkbox" value="j" <% Ifrs("qid")="q2" and Instr(rs("ans"),"3")Then Response.write "checked='checked'" %>/>奖学金、助学金<br/>

<input name="q2"type="checkbox" value="xw" <% Ifrs("qid")="q2" and Instr(rs("ans"),"4")Then Response.write "checked='checked'" %>/>校外兼职<br/>

<input name="q2"type="checkbox" value="qt" <% Ifrs("qid")="q2" and Instr(rs("ans"),"5")Then Response.write "checked='checked'" %>/>其他<br/>

<br/>

<% rs.movenext%>

3.您对目前的生活费水平满意吗：<br/>

（如果是下拉框，则用 "selected='selected'"来选择选项）

<select name="q3">

<option value="h" <% Ifrs("qid")="q3" and rs("ans")="1" ThenResponse.write "selected='selected'" %> />很满意</option>

<option value="y" <% Ifrs("qid")="q3" and rs("ans")="2" ThenResponse.write "selected='selected'" %> />一般</option>

<option value="m" <% Ifrs("qid")="q3" and rs("ans")="3" ThenResponse.write "selected='selected'" %> />勉强可以</option>

<option value="b" <% Ifrs("qid")="q3" and rs("ans")="4" ThenResponse.write "selected='selected'" %> />不满意</option>

</select>

<br/>

<% rs.movenext%>

4.您的消费观是：（一句话概括）<br/>

（如果单单是文本，将ans的值赋值给value并输出）

<input name="q6"type="text" size="80" value="<% Ifrs("qid")="q6" Then Response.write(rs("ans"))%>"  />

<br/>

<br/>

<% rs.movenext%>

5.您认为培养合理的消费观对生活有什么好处：<br/>

（如果是文本域，则直接用response.write输出ans值）

<textarea name="q7"cols="60" rows="6"><% Ifrs("qid")="q7" Then Response.write(rs("ans"))%> </textarea>

 

（）：表示解释说明