admin_vote.asp

来自「实现一个投票系统」· ASP 代码 · 共 48 行

ASP

48 行

<!-- #include file="notacc.asp"--><html>
<head>
<title>管理投票</title>
<link href="css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<!-- #include file="conn.asp"-->
<br>
<table border="1" width="80%" cellpadding="2" cellspacing="0" bordercolordark="#f7f7f7" bordercolorlight="#cccccc" class="css">
<tr>
<td bgcolor="#efefef" height="30" colspan="4">查看已有的投票</td>
</tr>
<tr>
<td width="9%" bgcolor="#f7f7f7"><div align="center">图例</div></td>
<td width="41%" bgcolor="#f7f7f7">投票名称</td>
<td width="16%" bgcolor="#f7f7f7"><div align="center">操作</div></td>
<td width="34%" bgcolor="#f7f7f7"><div align="center">调用代码</div></td>
</tr>
<%
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select id,title from V_title",conn,1,1
if not rs.eof then
do while not rs.eof
%>
<tr>
<td><div align="center"><img src="isvote.gif" border="0"></div></td>
<td><a href="admin_item.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td>
<td>
  <div align="center"><a href="admin_editvote.asp?id=<%=rs("id")%>">修改</a>
      <a href="#" onclick="if (confirm('您真的要删除该投票吗？\n\n注意：该操作不可恢复'))location.href='admin_delvote.asp?id=<%=rs("id")%>'">删除</a>
  </div></td>
<td><textarea name="transfer" cols="30" rows="2" wrap="VIRTUAL" class="inputt"><script language='javascript' src='vote.asp?id=<%=rs("id")%>'></script>
</textarea></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
</table>

<br><br><br>
<!-- #include file="eof.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

admin_vote.asp

admin_vote.asp - 源码说明

⌨️ 快捷键说明