📄 admin-poll.asp.bak
字号:
<%@ Language=VBScript %>
<%
'如果没有登录，则进入到登录界面
if session("loginSuccessful") <> "yes" then Response.Redirect ("login.asp")
'如果管理员注销登录
if Request.QueryString("act") = "logout" then
session("loginSuccessful") = ""
Response.Redirect ("login.asp")
end if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="poll.css" type="text/css">
</head>
<body>
<%
dim SQL, rs, cn, id
id = Request.QueryString("id")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & server.MapPath ("../fpdb/poll.mdb")
if Request.QueryString("sub") = "addnew" then addnew()
if Request.QueryString("sub") = "edit" then edit()
if Request.QueryString("sub") = "edit_add" then edit_add()
SQL = "SELECT * FROM title ORDER BY id ASC"
set rs = cn.Execute(SQL)
%>
<%if session("adminRights") = 1 then%>
<div align="center">
<table border="1" class="nortxtv8" cellpadding="3" cellspacing="0" width="600" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td colspan="2" bgcolor="#ADD8E6">
<a href="admin-poll.asp?sub=addnew"><img src="adm_img/new.gif" name="new" border="0" alt="Add new poll" WIDTH="61" HEIGHT="16" align="absmiddle"></a>
<a href="admin-users.asp"><img src="adm_img/users.gif" name="new" border="0" alt="Edit users" WIDTH="36" HEIGHT="16" align="absmiddle"></a>
<a href="?act=logout"><img src="adm_img/logout.gif" name="new" border="0" alt="Logout" WIDTH="36" HEIGHT="16" align="absmiddle"></a>
</td>
</tr>
<tr>
<%
if not rs.eof then
do
%>
<tr>
<td><%="主题编号: <font color=""#FF0000""><b>" & rs("id") & "</b></font> - " & rs("title")%></td>
<td width="125" align="center">
<%if rs("active") then %>
<a href="admin-update.asp?sub=inact&id=<%=rs("id")%>"><img src="adm_img/active.gif" align="absmiddle" name="active" border="0" alt="The poll is active - set to inactive" WIDTH="36" HEIGHT="16"></a>
<%else%>
<a href="admin-update.asp?sub=act&id=<%=rs("id")%>"><img src="adm_img/inact.gif" align="absmiddle" name="inact" border="0" alt="The poll is inactive - set to active" WIDTH="36" HEIGHT="16"></a>
<%end if%>
<a href="admin-poll.asp?sub=edit&id=<%=rs("id")%>"><img src="adm_img/edit.gif" align="absmiddle" name="edit" border="0" alt="Edit poll" WIDTH="36" HEIGHT="16"></a>
<a href="admin-update.asp?sub=del&id=<%=rs("id")%>"><img src="adm_img/delete.gif" align="absmiddle" name="delete" border="0" alt="Delete poll" WIDTH="36" HEIGHT="16"></a></td>
</tr>
<%
rs.movenext
loop until rs.eof
else
%>
<td>There are no polls</a>
<%end if%>
</tr>
</table>
</div>
<%
elseif session("adminRights") = 2 then
addnew()
end if
%>
<%sub addnew()%>
<div align="center">
<table border="1" class="nortxtv8" cellpadding="3" cellspacing="0" width="600" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td colspan="2" bgcolor="#ADD8E6"><b>添加投票主题</b> <a href="?act=logout"><img src="adm_img/logout.gif" name="new" border="0" alt="Logout" WIDTH="36" HEIGHT="16" align="absmiddle"></a></td>
</tr>
<form name="formPoll" method="post" action="admin-update.asp?sub=new">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="nortxtv8">
<tr>
<td width="100">投票主题</td>
<td><input type="text" name="title" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">选项 1</td>
<td><input type="text" name="a1" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">选项 2</td>
<td><input type="text" name="a2" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">选项 3</td>
<td><input type="text" name="a3" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">选项 4</td>
<td><input type="text" name="a4" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">选项 5</td>
<td><input type="text" name="a5" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">选项 6</td>
<td><input type="text" name="a6" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">选项 7</td>
<td><input type="text" name="a7" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">选项 8</td>
<td><input type="text" name="a8" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">选项 9</td>
<td><input type="text" name="a9" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">选项 10</td>
<td><input type="text" name="a10" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">开始日期</td>
<td><input type="text" name="d_s" size="20" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">结束日期</td>
<td><input type="text" name="d_e" size="20" class="nortxtv8"></td>
</tr>
<tr>
<td width="100"> </td>
<td><input type="image" border="0" name="Submit" src="adm_img/submit.gif" width="40" height="16"></td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</div>
<%end sub%>
<%
sub edit()
dim an_no, show
dim e_start, e_end
show = 1
an_no = 1
SQL = "SELECT * FROM title, vote WHERE id=" & id & " AND id=poll_id"
set rs = cn.Execute(SQL)
'如果数据库中没有选项
if rs.eof then
SQL = "SELECT * FROM title WHERE id=" & id
set rs = cn.Execute(SQL)
show = 0
end if
e_start = rs("expiration_start")
e_end = rs("expiration_end")
%>
<div align="center">
<table border="1" class="nortxtv8" cellpadding="3" cellspacing="0" width="600" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td colspan="2" bgcolor="#ADD8E6"><b>编辑投票</b> <a href="?act=logout"><img src="adm_img/logout.gif" name="new" border="0" alt="Logout" WIDTH="36" HEIGHT="16" align="absmiddle"></a></td>
</tr>
<form name="formPoll" method="post" action="admin-update.asp?sub=edit&id=<%=id%>">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="nortxtv8">
<tr>
<td width="100">投票主题</td>
<td><input type="text" name="title" size="40" class="nortxtv8" value="<%=rs("title")%>"> 投票编号: <font color="#FF0000"><b><%=rs("id")%></b></font>
总投票数: <b><%=rs("votes")%></b></td>
</tr>
<%
if not show = 0 then
do
%>
<tr>
<td width="100">选项 <%=an_no%></td>
<td>
<input type="hidden" name="h<%=an_no%>" size="40" class="nortxtv8" value="<%=rs("answer_id")%>">
<input type="text" name="a<%=an_no%>" size="40" class="nortxtv8" value="<%=rs("answer")%>"> 选项编号: <font color="#FF0000"><b><%=rs("answer_id")%></b></font>
投票数: <b><%=rs("no_votes")%></b>
<a href="admin-update.asp?sub=del_answ&answ_id=<%=rs("answer_id")%>&id=<%=rs("id")%>">
<img src="adm_img/delete.gif" align="absmiddle" name="delete" border="0" alt="Delete poll" WIDTH="36" HEIGHT="16">
</a></td>
</td>
</tr>
<%
an_no = an_no + 1
rs.movenext
loop until rs.eof
end if
%>
<tr>
<td width="100">开始日期</td>
<td><input type="text" name="d_s" size="20" class="nortxtv8" value="<%=e_start%>"></td>
</tr>
<tr>
<td width="100">结束日期</td>
<td><input type="text" name="d_e" size="20" class="nortxtv8" value="<%=e_end%>"></td>
</tr>
<tr>
<td width="100"> </td>
<td>
<input type="hidden" name="no_answers" size="40" class="nortxtv8" value="<%=an_no - 1%>">
<input type="image" border="0" name="Submit" src="adm_img/submit.gif" width="40" height="16" alt="Update database">
<a href="admin-poll.asp?sub=edit_add&id=<%=id%>"><img border="0" name="add" src="adm_img/add_answ.gif" width="50" height="16" alt="Add one answer"></a>
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</div>
<%
end sub
%>
<%
sub edit_add()
dim an_no, show
show = 1
an_no = 1
SQL = "SELECT * FROM title, vote WHERE id=" & id & " AND id=poll_id"
set rs = cn.Execute(SQL)
'if there is no answers in the database
if rs.eof then
SQL = "SELECT * FROM title WHERE id=" & id
set rs = cn.Execute(SQL)
show = 0
end if
e_start = rs("expiration_start")
e_end = rs("expiration_end")
%>
<div align="center">
<table border="1" class="nortxtv8" cellpadding="3" cellspacing="0" width="600" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td colspan="2" bgcolor="#ADD8E6"><b>编辑</b> <a href="?act=logout"><img src="adm_img/logout.gif" name="new" border="0" alt="Logout" WIDTH="36" HEIGHT="16" align="absmiddle"></a></td>
</tr>
<form name="formPoll" method="post" action="admin-update.asp?sub=edit_add&id=<%=id%>">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="nortxtv8">
<tr>
<td width="100">投票主题</td>
<td><b><%=rs("title")%></b> :投票主题编号 <font color="#FF0000"><b><%=rs("id")%></b></font>
总投票数: <b><%=rs("votes")%></b></td>
</tr>
<%
if not show = 0 then
do
%>
<tr>
<td width="100">选项 <%=an_no%></td>
<td><b><%=rs("answer")%></b> 选项编号: <font color="#FF0000"><b><%=rs("answer_id")%></b></font>
投票数: <b><%=rs("no_votes")%></b>
</td>
</tr>
<%
an_no = an_no + 1
rs.movenext
loop until rs.eof
end if
%>
<tr>
<td width="100">新建选项</td>
<td>
<input type="text" name="add_one" size="40" class="nortxtv8">
</td>
</tr>
<tr>
<td width="100"> </td>
<td>
<input type="hidden" name="no_answers" size="40" class="nortxtv8" value="<%=an_no - 1%>">
<input type="image" border="0" name="Submit" src="adm_img/submit.gif" width="40" height="16" alt="Update database">
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</div>
<%
end sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -