📄 index.asp
字号:
<!--#include file = "conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网络投票系统</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<%
dim sid,subject
Set rs = server.createobject("adodb.recordset")
rs.open "select * from subject where process = 'true'",conn,1,1
%>
<p align="center" style="line-height: 200%; margin-top: 20; margin-bottom: 20">
<font size="7">网络投票系统</font>
<hr>
<p></p>
<div align="center">
<%If rs.EOF or rs.BOF Then%>
<table border="0" width="50%" id="table1" cellspacing="1" cellpadding="3" class="tableborder">
<tr>
<td align = center><font size = 3>当前没有投票主题</font></td>
</tr>
</table>
<%Else
sid = rs("id")
subject = rs("subject")
%>
<table border="0" width="50%" id="table1" cellspacing="1" cellpadding="3" class="tableborder">
<tr>
<td><font size = 3><% = subject%></font></td>
</tr>
<tr>
<td align="center" class="tablebody1" nowrap>
<p style="line-height: 100%">
<form action=vote.asp?sid=<%=sid%> method=post name=formResearch>
<%
Dim rsq,i
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select * from Title where sid="&sid,conn,1,1
If not (rs.eof and rs.bof) Then
Do while not rs.Eof
Response.Write "<div align=left>"
Response.Write "<table border=0 cellspacing=1 cellpadding=3>"
Response.Write "<tr>"
Response.Write "<td nowrap><b>"&rs("title")&"</b></td>"
Response.Write "</tr>"
Set rsq=Server.CreateObject("ADODB.RecordSet")
rsq.open "select * from Question where tid="&rs("id"),conn,1,1
If not (rsq.eof and rsq.bof) Then
i=1
Do While not rsq.Eof
If rsq.recordcount<=8 Then
Response.Write "<tr>"
End If
If rs("mode") = 1 Then
Response.Write "<td nowrap width=""50%""><input type=radio name="""&rs("id")&""" value="""&rsq("id")&""">"&rsq("question")&"</td>"
ElseIf rs("mode") = 2 Then
Response.Write "<td nowrap width=""50%""><input type=checkbox name="""&rs("id")&""" value="""&rsq("id")&""">"&rsq("question")&"</td>"
End If
If i mod 2 =0 Then
Response.Write "</tr><tr>"
End If
If rsq.recordcount<=8 Then
Response.Write "</tr>"
End If
i=i+1
rsq.MoveNext
Loop
Else
Response.Write "<tr><td align=center><font color=red>没有任何投票项！</font></td></tr>"
End If
rsq.close
Set rsq=nothing
Response.Write "</table>"
Response.Write "</div>"
rs.MoveNext
Loop
Else
Response.Write "<tr><td align=center><font color=red>没有任何投票！</font></td></tr>"
End If
rs.close
Set rs=nothing
%>
<table border=0 width=200 cellspacing=1 cellpadding=3>
<tr>
<td align=center><input type=submit name=submit value=投票> <input type=submit name=submit value=查看结果></td>
</tr>
<tr>
<td align=center nowrap>Powered By : 网上投票 2005<br>CopyRight 2004-2006</td>
</tr>
</table>
</form>
<%
conn.close
Set conn=nothing
%>
</table>
<%End If%>
</div>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -