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"> </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"> </td>
<td height="20" colspan="2" align="middle"><input type="submit" value="ͶƱ"> <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 + -
显示快捷键?