📄 opinion.asp
字号:
<!-- #include virtual="/kjasp/func/DB.fun" -->
<%
SQL = "Select * From Title Order By Seq"
Set rs = GetMdbRecordset("Opinion.mdb", SQL)
%>
<HTML>
<BODY Background="../B01.jpg">
<H2>“ASP 网页制作教程”问卷调查:<HR></H2>
<BLOCKQUOTE>
<FORM Action=OpSave.asp Method=GET>
<%
While Not rs.EOF
%>
<FONT Color=Blue><%=rs("Seq")%>. <%=rs("Title")%></FONT>
<BLOCKQUOTE>
<INPUT Type=Radio Name=Seq<%=rs("Seq")%> Value="Op1Count" Checked>
<%=rs("Op1")%>
<INPUT Type=Radio Name=Seq<%=rs("Seq")%> Value="Op2Count">
<%=rs("Op2")%>
<INPUT Type=Radio Name=Seq<%=rs("Seq")%> Value="Op3Count">
<%=rs("Op3")%>
<INPUT Type=Radio Name=Seq<%=rs("Seq")%> Value="Op4Count">
<%=rs("Op4")%>
<INPUT Type=Radio Name=Seq<%=rs("Seq")%> Value="Op5Count">
<%=rs("Op5")%>
</BLOCKQUOTE><P>
<%
rs.MoveNext
Wend
%>
<INPUT Type=Submit Value=" 送出问卷调查 ">
</FORM>
<FORM Action=OpShow.asp Method=GET>
<INPUT Type=Submit Value=" 浏览问卷统计 ">
</FORM>
</BLOCKQUOTE>
<HR>
<% If Request.Cookies("Filled") = "Yes" Then %>
<FONT Color=Red>您已经填过问卷了</FONT>
<% End If %>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -