📄 pollman.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>投票管理</title>
<SCRIPT language=JavaScript>
function showvote(pid)
{
window.open("pollitem.asp?pid="+pid,'votewin','toolbar=no,scrollbars=no,menubar=no,resizable=1,width=500,height=280');
}
</SCRIPT>
<link rel="stylesheet" type="text/css" href="poll.css">
</head>
<body background="bg.gif">
<%
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("poll.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs=server.createobject("adodb.recordset")
sql="SELECT title,ID from descrip order by ID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p>还 没 有 任 何 投 票</p>"
else%>
<table border=1 borderColorDark=#ffffec borderColorLight=#5e5e00 cellPadding=1 cellSpacing=0 width=100%>
<tr bgcolor=cccccc align=center><td>标题序号</td><td>调查标题</td><td>操作</td></tr>
<%
cc=1
while not rs.eof
if cc mod 2=1 then
Response.Write "<tr bgcolor=#E7E7E7 align=center>"
else
Response.Write "<tr BGCOLOR=#F4F4F4 align=center>"
end if
%>
<td><%=rs("ID")%></td><td><A href='javascript:showvote(<%=rs("ID")%>)'><%=rs("title")%></A></td>
<td><a href=polladd.asp?pid=<%=rs("ID")%>><img src=note.gif border=0>调查修编</a> <img src=del.gif><a href=polldel.asp?pid=<%=rs("ID")%>>删除</a> <img src=clear.gif><a href=pollclea.asp?pid=<%=rs("ID")%>>计数清空</a></td>
<%
cc=cc+1
rs.movenext
wend
Response.Write "</table>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%><p align=center><A HREF=polladd.asp>调查申请</A> <A HREF=main.asp> <img border="0" src="gohome.gif">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -