📄 adminvote.asp
字号:
<!--#include file="articleconn.asp"-->
<%
if Session("admin")<>"imoviejads" then
response.redirect "login.asp"
end if
%>
<html><!--#include file="../checkpost.asp"-->
<head>
<title>调查系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Author" content="coolasp@china.com">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="images/film_side_bg.gif" bgcolor="#D6EF7E" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<div align="center">
<p><u><font size="+2" color="#000000">电影调查</font></u></p>
<%
Set tempRs = Server.CreateObject("ADODB.Recordset")
tempRs.Open "SELECT id,note FROM vote Order BY id",conn,1,1
%>
<table width="80%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td width="10%" class="text1" bgcolor="#990000" background="../images/film_side_bg.gif">
<div align="center">
序号
</div>
</td>
<td width="80%" class="text1" bgcolor="#990000" background="../images/film_side_bg.gif">
<div align="center">
内 容
</div>
</td>
<td width="10%" class="text1" bgcolor="#990000" background="../images/film_side_bg.gif">
<div align="center">
^_^
</div>
</td>
</tr>
<% if tempRs.BOF and tempRs.EOF Then
%>
<tr>
<td class="text1"><font color="#000000" size="2"> </font></td>
<td class="text1"><font color="#000000" size="2">还没有调查项目!</font></td>
<td class="text1"><font color="#000000" size="2"> </font></td>
</tr>
<% Else
i = 1
do while not tempRs.eof
%>
<tr>
<td class="text1">
<div align="center">
<font color="#000000" size="2">
<%=i%>
</font>
</div>
</td>
<td class="text1"><font color="#000000" size="2"><%=tempRs("note")%></font></td>
<td class="text1">
<div align="center">
<a href="delvote.asp?id=<%=tempRs("id")%>"><font color="#000000" size="2">删除</font></a>
</div>
</td>
</tr>
<% i=i+1
tempRs.MoveNext
Loop
End if%>
<tr>
<td class="text1" colspan="3">
<hr width="100%" noshade size="1">
</td>
<%set rsvote=server.createobject("adodb.recordset")
sql="select * from talk where id=23"
rsvote.open sql,conn,1,3%>
</tr>
<form method="post" action="talk.asp">
<tr>
<td class="text1">
<div align="center">
<font size="2">调查名称：</font>
</div>
</td>
<td class="text1" colspan="2"><font color="#000000" size="2"><input type="text" name="talk1" size="50" maxlength="50" value="<%=rsvote("talk")%>"></font><font color="#000000" size="2"> </font><font color="#000000" size="2"><input type="submit" name="vote" value="提交"></font></td>
</tr>
</form>
<% rsvote.close
set rsvote=nothing
%>
<tr>
<td class="text1" colspan="3" bgcolor="#99CCFF" background="../images/film_side_bg.gif"><font color="#000000" size="2">增加项目</font></td>
</tr>
<tr>
<td class="text1" colspan="3">
<form method="post" action="addvote.asp">
<p><font color="#000000" size="2"> 内容： <input type="text" name="note" size="50" maxlength="50"></font></p>
<p><font color="#000000" size="2"> <input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></font></p>
<p><font color="#000000" size="2"> </font></p>
</form>
</td>
</tr>
</table>
<%
tempRs.close
Set tempRs = Nothing
conn.close
set conn=nothing
%>
<hr width="80%" noshade size="1">
<p class="text1"> </p>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -