?? 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 + -