setvote.asp

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

ASP
67
字号
<!--#include file="conn.asp"-->
<!--#include file="seeadmin.asp"-->
<%

call gadmin
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/new.css" rel="stylesheet" type="text/css">
<title>投票管理</title>
<style type="text/css">
<!--
body {
	background-color: #CCCCFF;
}
.style1 {
	font-size: 12pt;
	font-weight: bold;
	color: #FF0000;
}
.style2 {color: #FF0000}
-->
</style></head>
<body>
<table width="700" border="0" align="center" bordercolor="#FFCC00">
<tr><td height="30" align="center" bgcolor="#FFCCCC"><span class="style1">
投票管理</span></td>
</tr></table><%
strsql="select * from vote order by id desc"
set rs=conn.execute(strsql)
do while not rs.eof 
%>
<%
rsid=rs("id")
%>
<table width="700" border="0" align="center" bordercolor="#FFCC00">
      <tr><td bgcolor="#FFCCCC"><table><tr>
        <td width="207">&nbsp;<img src="../images/dian.gif" border="0">&nbsp;<%=rs("votename")%>
		<% if rs("isnow")=true then %>&nbsp;&nbsp;&nbsp;<span class="style2">是当前投票</span>
		<%end if %> </td>
        <td width="475" align="right"><a style=cursor:hand onclick="javascript:open('addvote.asp','','width=400,height=200')">添加投票</a>|<a href="setv.asp?menu=delt&id=<%=rsid%>">删除投票</a>|<a href="setv.asp?menu=szt&id=<%=rsid%>">设置为当前投票</a>
		
        
</td>
      </tr></table></td></tr> <tr><td bgcolor="#FFCC66"><table width="694"><%
	  
	  strlfen="select * from vote1 where sid="&rsid
	  set rs1=conn.execute(strlfen)
	  do while not rs1.eof
	  %>
     <td height="20"><%=rs1("votemoname")%>[<%=rs1("howvote")%>]</td>
            <% rs1.movenext
	loop
	%> </table></td> </tr>
	
</table>
<%
rs.movenext
loop
%>


</body>
</html>

⌨️ 快捷键说明

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