?? votemanage.asp
字號:
<%@language=vbscript codepage=936 %>
<!--#include file="Admin.asp"-->
<!--#include file="Conndb.asp"-->
<%
dim sql,rs,Action,ID
Action=Trim(Request("Action"))
ID=Trim(Request("VoteID"))
if Action="Set" and ID<>"" then
conn.execute "Update Vote set IsSelected=False where IsSelected=True"
conn.execute "Update Vote set IsSelected=True Where ID=" & ID
response.Write "<script language='JavaScript' type='text/JavaScript'>alert('設置成功!');</script>"
end if
sql="select * from Vote order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<html>
<head>
<title>調查管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_Style.css" rel="stylesheet" type="text/css">
</head>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="862" align="center" valign="top">
<br>
<br>
<b> </b><br>
<p align="center"><strong>調 查 管 理<br>
<br>
<form method="POST" action="VoteManage.asp">
<p align="center"><strong>管理選項:</strong><a href="VoteAdd.asp">添加新調查</a></p>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="2" Class="border">
<tr bgcolor="#C0C0C0" class="title">
<td width="37" height="25" align="center">選擇</td>
<td width="37" align="center">ID</td>
<td width="328" align="center">主題</td>
<td width="88" align="center">操作</td>
</tr>
<%
if not (rs.bof and rs.eof) then
do while not rs.eof
%>
<tr bgcolor="#E3E3E3" class="tdbg">
<td width="37" height="22" align="center">
<input type="radio" value=<%=rs("ID")%><%if rs("IsSelected")=true then%> checked<%end if%> name="VoteID"></td>
<td width="37" height="22" align="center"><%=rs("ID")%></td>
<td height="22"> <%=rs("Title")%></td>
<td width="88" height="22" align="center">演示不開放操作按鈕,請聯系QQ 412771253</td>
</tr>
<%
rs.movenext
loop
%>
<tr class="tdbg">
<td colspan=4 align=center><input name="Action" type="hidden" id="Action" value="Set">
<input type="submit" value="將選定的調查設為最新調查" name="submit">
</td>
</tr>
<% end if%>
</table>
</form> </strong></p>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -