vote.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

<%
set rs4=server.createobject("adodb.recordset")
sql4="select top 1 * from [vote_class] where class=0 order by id desc"
rs4.open sql4,conn,1,1
if rs4.eof and rs4.bof then
			  		response.write "暂无调查!"
				else
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="4">
	<tr>
		<td height="20" bgcolor="#EFEFEF" align="center"><%=rs4("title")%></td>
	</tr>
</table>
<table width="100%" height="125" border="0" align="center" cellpadding="0" cellspacing="0">
	<form name="form" method="post" action="save.asp?info=vote&cndb=site&id=<%=rs4("id")%>">
		<tr>
			<td valign="top"><%
			  set rs3=server.createobject("adodb.recordset")
			  sql3="select * from [vote] where vote_title="&rs4("id")
			  rs3.open sql3,conn,1,1
			  if rs3.eof and rs3.bof then
			  		response.write "还没有投票项目!"
				else
				i=1
				do while not rs3.eof%>
			<table width="100%" border="0" cellspacing="0" cellpadding="3" align="center">
				<tr>
					<td width="16%" align="left"><%if rs4("choice")=1 then%>
					<input name="choice" type="radio" value="<%=rs3("id")%>"> <%end if%>
					<%if rs4("choice")=0 then%>
					<input name="choice" type="checkbox" id="choice" value="<%=rs3("id")%>">
					<%end if%> </td>
					<td width="84%" align="left"><%=rs3("vote_name")%> </td>
				</tr>
			</table>
			<%rs3.movenext
				  loop
				  rs3.close
				  set rs3=nothing
				  end if%>
			<table width="100%" border="0" cellpadding="0" cellspacing="0">
				<tr>
					<td align="center">
					<input name="ids2" type="hidden" id="ids2" value="<%=rs4("id")%>">
					<input type="submit" value="提 交" name="B3" class="stbtm">&nbsp;&nbsp;&nbsp;
					<input type="button" value="查 看" class="stbtm" onclick="window.open('voteshow.asp?info=site&id=<%=rs4("id")%>','','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=560,height=390');">
					</td>
				</tr>
			</table>
			</td>
		</tr>
	</form>
</table>
<%end if
rs4.close
set rs4=nothing%>