📄 admin_vote.asp
字号:
<%Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<%
if request.cookies("adminok")="" then
response.redirect "shop_login.htm"
end if
%>
<!--#include file="v_conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>投票系统管理页</title>
<style type="text/css">
A{text-decoration:none;color:#000000}
A:hover {COLOR: #000000; TEXT-DECORATION: none}
body{ font-size: 75%; font-family:"Verdana", "Arial", "宋体"; }
td{font-size:9pt;}
INPUT{BACKGROUND: #ffffff; border:1 solid black;COLOR: #000000; FONT-SIZE: 9pt; FONT-STYLE: normal; FONT-VARIANT: normal; FONT-WEIGHT: normal; HEIGHT: 18px; LINE-HEIGHT: normal}
INPUT.exit{BACKGROUND: #ffffff; border:0 solid black;COLOR: #000000; FONT-SIZE: 9pt; FONT-STYLE: normal; FONT-VARIANT: normal; FONT-WEIGHT: normal; HEIGHT: 18px; LINE-HEIGHT: normal}
</style>
<script language="JavaScript">
function cdel(id){
var id;
if (confirm("你真的要删除这条选项吗？")){
document.location.href="del_vote.asp?id="+id+""
}
}
</script>
</head>
<body topmargin="20" leftmargin="7" bgcolor="#FFFFFF" >
<center>
<table border="1" cellspacing="2" width="100%" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr bgcolor="#006cd9">
<td width="100%" height="20" bgcolor="#8CAAE7">
<p align="center"><b>投票系统管理</b>
</td>
</tr>
</table>
<table border="1" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" width="100%" height="40">
<%
dim rs,tsql
dim rst
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from type",conn,3,3
%>
<tr>
<form name=pass method="post" action="admin_vote.asp">
<td width="82%">投票项目：
<input type="text" name="type" size="50" value="<%=rs("type")%>">
<input type="hidden" name=method value="chan">
</td>
<td colspan="2" align=center>
<input type="submit" name="Submit" value="修 改" class=exit>
</td>
</form>
<!----------------------修改项目---------------------------->
<%
if request("method")="chan" then
rs("type")=request("type")
rs.Update
rs.close%>
<script language="JavaScript">
alert("修改成功，点击确认返回管理主界面")
</script>
<%
end if
%>
</tr>
</table>
<table border="1" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" width="100%">
<%
MaxPerPage=rs("duo")
set rst=server.CreateObject("ADODB.RecordSet")
sql="select * from vote order by Id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<%
i=0
do while not rs.eof %>
<tr> <form name="exit" method="post" action="edit_vote.asp">
<td width="82%" height="30">
<input type="text" name="note" size="40" value="<%=rs("note")%>">
<input type="hidden" name="id" value="<%=rs("id")%>">
</td>
<td width="10%" align=center>
<input type="submit" name="Submit2" value="修 改" class=exit>
</td>
<td width="8%" align=center><a href="javascript:cdel('<%=rs("id")%>')">删
除</a></td>
</tr> </form>
<% i=i+1
if i=10 then exit do
rs.movenext
loop
rs.close
%>
</table>
<table border="1" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" width="100%" height="40">
<tr>
<form method="post" action="add_vote.asp">
<td width="82%"> 增加选项：
<input type="text" name="add" size="50">
</td>
<td colspan="2" align=center>
<input type="submit" name="Submit3" value="增 加" class=exit>
</td>
</form>
</tr>
</table>
<p>
<font color="red">* </font>本投票调查系统只限于10条选项<br><br><a href="admin_vote.asp"><font color="red">* </font>如果修改某个项目后发现还是原来的文字请按F5刷新或点击这里刷新本页</a></p>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -