vote.asp

来自「这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链」· ASP 代码 · 共 59 行

ASP
59
字号
<!--#include file="conn.asp"-->
<html>
<head><title>投票</title>
<link href="css/new.css" rel="stylesheet" type="text/css">
	<style type="text/css">
<!--
body {
	background-color: #CCCCFF;
}
-->
</style></head><body><table cellSpacing="0" cellPadding="0" align="center" width="150" border="1">
		<form  name="eid"  action="setv.asp?menu=tvot" method="post">
		<%
		strsql="select * from vote where isnow=true"
		set rs=conn.execute(strsql)
		votetitle=rs("votename")
		dan=rs("ismore")
		id=rs("id")
		rs.close
		set rs=nothing
		%>
		<tr bgcolor="#FFCCCC">
			<td width="12" height="20">&nbsp;</td>
			<td colSpan="2"><%=votetitle%>:</td>
		</tr>
		<%
		str1="select * from vote1 where sid="&id
		set rs1=conn.execute(str1)
		do while not rs1.eof
		iid=rs1("id") 
		%>
		<% if dan=true then %>
				<tr bgcolor="#FFCC66">
					
					<td width="15">
				  <input type="CheckBox" name="vote" value="<%=iid%>"></td>
					<td width="115"><%=rs1("votemoname")%></td>
				</tr>
				<% else %>
				<tr bgcolor="#FFCC66">
					
					<td width="15">
				  <input type="radio" name="vote" value="<%=iid%>"></td>
					<td width="115"><%=rs1("votemoname")%></td>
				</tr>
				<% end if %>
			<%
			rs1.movenext
			loop
			rs1.close
			set rs1=nothing
			%>
				
		<tr bgcolor="#FFCC66">
			<td width="12" height="20">&nbsp;</td>
		  <td height="20" colspan="2" align="middle"><input type="submit" value="ͶƱ">&nbsp;<a style=cursor:hand onclick="javascript:open('lookvote.asp','','width=400,height=400')"><IMG src="images/button_44.gif" border="0"></a></td>
		</tr></form>
</table></body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?