📄 opshow.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>
<%
While Not rs.EOF
Total = rs("Op1Count") + rs("Op2Count") + rs("Op3Count") + rs("Op4Count") + rs("Op5Count")
If Total > 0 Then
Per01 = rs("Op1Count") / Total
Per02 = rs("Op2Count") / Total
Per03 = rs("Op3Count") / Total
Per04 = rs("Op4Count") / Total
Per05 = rs("Op5Count") / Total
End If
%>
<FONT Color=Blue><%=rs("Seq")%>. <%=rs("Title")%></FONT>
<BLOCKQUOTE><TABLE Border = 0>
<TR><TD><%=rs("Op1")%>:</TD><TD><IMG SRC=100.gif Height=16 Width=<%=per01*400%>
Align=TextTop>(<%=FormatNumber(per01*100, 2, True)%>%)</TD></TR>
<TR><TD><%=rs("Op2")%>:</TD><TD><IMG SRC=100.gif Height=16 Width=<%=per02*400%>
Align=TextTop>(<%=FormatNumber(per02*100, 2, True)%>%)</TD></TR>
<TR><TD><%=rs("Op3")%>:</TD><TD><IMG SRC=100.gif Height=16 Width=<%=per03*400%>
Align=TextTop>(<%=FormatNumber(per03*100, 2, True)%>%)</TD></TR>
<TR><TD><%=rs("Op4")%>:</TD><TD><IMG SRC=100.gif Height=16 Width=<%=per04*400%>
Align=TextTop>(<%=FormatNumber(per04*100, 2, True)%>%)</TD></TR>
<TR><TD><%=rs("Op5")%>:</TD><TD><IMG SRC=100.gif Height=16 Width=<%=per05*400%>
Align=TextTop>(<%=FormatNumber(per05*100, 2, True)%>%)</TD></TR>
</TABLE></BLOCKQUOTE><P>
<%
rs.MoveNext
Wend
%>
</BLOCKQUOTE>
总问卷数:<%=Total%>
<HR>
<% If Request.Cookies("Filled") = "Yes" Then %>
<FONT Color=Red>您已经填过问卷了</FONT>
<% End If %>
<FORM><INPUT Type=Button Value="返回上一页" OnClick="history.back();"></FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -