📄 display.asp
字号:
<html>
<meta HTTP-EQUIV="REFRESH" CONTENT="60">
<head><title>Displaying Votes</title>
<body>
<%
set myconn=server.createobject("ADODB.Connection")
set rs=server.createobject("ADODB.Recordset")
myconn.open "DSN=vote"
set myconn1=server.createobject("ADODB.Connection")
set rs1=server.createobject("ADODB.Recordset")
myconn1.open "DSN=vote"
rs1.open "select count(*) from Voters where status=2",myconn1,adopendynamic
rs.open "select * from Contest order by post",myconn,adopendynamic
post1="President"
post2="Secretary"
post3="Treasurer"
flag1=0
flag2=0
flag3=0
do while not rs.eof
pname = rs.fields(0)
votes = rs.fields(1)
post = rs.fields(2)
response.write "<b>"
if((post = post1) and (flag1=0)) then
response.write "<br>"&post1
flag1=1
end if
if((post = post2) and (flag2=0)) then
response.write "<br>"&post2
flag2=1
end if
if((post = post3) and (flag3=0)) then
response.write "<br>"&post3
flag3=1
end if
response.write "</b><br>"
response.write "                 "
response.write pname
response.write " got "
response.write votes
response.write " votes."
rs.movenext
loop
response.write "<br><br><b>Invalid Votes:   </b>"
response.write rs1.fields(0)
rs1.close
myconn1.close
rs.close
myconn.close
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -