vote.asp

投票系统.rar 投票系统完整源码

<!--#include file="config.asp"-->
<%
Dim sid
sid=Request.QueryString("sid")
If sid="" Then
	Response.Write "document.write('<div align=center><font color=red>参数错误！！</font></div>');"
	Response.End
End If
If not IsNumeric(sid) Then
	Response.Write "document.write('<div align=center><font color=red>参数错误！！</font></div>');"
	Response.End
End If
Dim yrs
Set yrs=Server.CreateObject("ADODB.RecordSet")
yrs.open "Select * from XH_Subject where id="&sid,conn,1,1
If (yrs.eof and yrs.bof) Then
	Response.Write "document.write('<div align=center><font color=red>参数错误！！</font></div>');"
	Response.End
End If
yrs.close
Set yrs=nothing		

Dim rsq,i
Response.Write "document.write('<form action="&systemurl&"view.asp?sid="&sid&" method=post name=formResearch target=_blank>');"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select * from XH_Title where sid="&sid,conn,1,1
If not (rs.eof and rs.bof) Then
	Do while not rs.Eof
		Response.Write "document.write('<div align=left>');"
		Response.Write "document.write('<table border=0 cellspacing=1 cellpadding=3>');"
		Response.Write "document.write('<tr>');"
		Response.Write "document.write('<td nowrap><b>"&rs("title")&"</b></td>');"
		Response.Write "document.write('</tr>');"
		Set rsq=Server.CreateObject("ADODB.RecordSet")
		rsq.open "select * from XH_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 "document.write('<tr>');"
				End If
				If rs("ms")=1 Then
					If rsq.recordcount<=8 Then
						Response.Write "document.write('<td nowrap width=""50%""><input type=radio name=squestion value="""&rsq("id")&""">"&rsq("question")&"</td>');"
					Else
						Response.Write "document.write('<td nowrap width=""50%""><input type=radio name=squestion value="""&rsq("id")&""">"&rsq("question")&"</td>');"
						If i mod 2 =0 Then
							Response.Write "document.write('</tr><tr>');"
						End If
					End If	
				ElseIf rs("ms")=2 Then
					If rsq.recordcount<=8 Then	
						Response.Write "document.write('<td nowrap width=""50%""><input type=checkbox name=dquestion value="""&rsq("id")&""">"&rsq("question")&"</td>');"
					Else
						Response.Write "document.write('<td nowrap width=""50%""><input type=checkbox name=dquestion value="""&rsq("id")&""">"&rsq("question")&"</td>');"
						If i mod 2=0 Then
							Response.Write "document.write('</tr><tr>');"
						End If
					End If			
				End If
				If rsq.recordcount<=8 Then	
					Response.Write "document.write('</tr>');"
				End If
				i=i+1
				rsq.MoveNext
			Loop
		Else
			Response.Write "document.write('<tr><td align=center><font color=red>没有任何投票项！</font></td></tr>');"	
		End If
		rsq.close
		Set rsq=nothing
		
		Response.Write "document.write('</table>');"
		Response.Write "document.write('</div>');"
		rs.MoveNext
	Loop
Else
	Response.Write "document.write('<tr><td align=center><font color=red>没有任何投票！</font></td></tr>');"	
End If
rs.close
Set rs=nothing
Response.Write "document.write('<table border=0 width=200 cellspacing=1 cellpadding=3>');"
Response.Write "document.write('<tr>');"
Response.Write "document.write('<td align=center><input type=submit name=submit value=投票>&nbsp; <input type=submit name=submit value=查看结果></td>');"
Response.Write "document.write('</tr>');"
Response.Write "document.write('<tr>');"
Response.Write "document.write('<td align=center nowrap>Powered By : XHOnline Vote 2.3 元旦版<br>CopyRight 2004-2006 &copy; <a href="&weburl&" taget=_blank>"&webname&"</a></td>');"
Response.Write "document.write('</tr>');"
Response.Write "document.write('</table>');"
Response.Write "document.write('</form>');"

conn.close
Set conn=nothing
%>