📄 votecon.asp
字号:
<!--#include file="inc/db.inc"-->
<%
myopt=request.form("myopt")
if myopt<>"" then
sql="update classvote set "&myopt&"="&myopt&"+1 where id=1"
conn.execute(sql)
end if
%>
<%
set rs=Server.CreateObject ("ADODB.RECORDSET")
SQL="select * from classvote where id=1"
rs.open sql,conn,1,1
opt1=rs("myopt1")
opt2=rs("myopt2")
opt3=rs("myopt3")
opt4=rs("myopt4")
allopt=clng(opt1)+clng(opt2)+clng(opt3)+clng(opt4)
k1=CDbl(opt1/allopt)
k2=CDbl(opt2/allopt)
k3=CDbl(opt3/allopt)
k4=CDbl(opt4/allopt)
%>
<title>投票结果</title>
<LINK href="jscs/css.CSS" type=text/css rel=stylesheet>
<BODY>
<CENTER>
<H2>班级投票结果</H2></CENTER>
<HR>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD vAlign=top align=left><BR><FONT color=#0000ff>网页美工有所不足（<%=opt1%>）</FONT><BR><IMG height=11 src="images/votebar.gif" width=<%=k1*600%>
border=0> <%=FormatPercent(k1)%>
<P><FONT color=#0000ff>版面安排不太合理（<%=opt2%>）</FONT><BR><IMG height=11
src="images/votebar.gif" width=<%=k2*600%> border=0> <%=FormatPercent(k2)%>
<P><FONT color=#0000ff>网页内容有所欠缺（<%=opt3%>）</FONT><BR><IMG height=11
src="images/votebar.gif" width=<%=k3*600%> border=0> <%=FormatPercent(k3)%>
<P><FONT color=#0000ff>马马虎虎算得过去（<%=opt4%>）</FONT><BR><IMG height=11
src="images/votebar.gif" width=<%=k4*600%> border=0> <%=FormatPercent(k4)%>
<P>
<DIV align=left><FONT
color=#ff0000>总 计：<%=FormatNumber(allopt,0)%></FONT></DIV></TD></TR></TBODY></TABLE>
<HR>
</BODY>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -