📄 1pollman.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>投票管理</title>
<link rel="stylesheet" type="text/css" href="poll.css">
<meta name="Microsoft Theme" content="ricepapr 011">
</head>
<body background="ricebk.jpg" bgcolor="#FFFFFF" text="#000000" link="#666633" vlink="#333366" alink="#990000">
<!--mstheme--><font face="宋体">
<%
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%>
<p align=center>
<div align="center">
<center>
<!--mstheme--></font>
<table border="1" width="404" height="51" bgcolor="#C0C0C0" cellpadding="2" bordercolorlight="#333366" bordercolordark="#000000">
<tr>
<td width="104" height="16" bgcolor="#C0C0C0">
<!--mstheme--><font face="宋体">
<p align="center"><font face="黑体" color="#000000">标题序号</font><!--mstheme--></font></td>
<td width="290" height="16" bgcolor="#C0C0C0" colspan="2">
<!--mstheme--><font face="宋体">
<p align="center"><font face="黑体" color="#000000">调查标题</font><!--mstheme--></font></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
%>
<tr>
<td><!--mstheme--><font face="宋体"><%=rs("ID")%><!--mstheme--></font></td><td><!--mstheme--><font face="宋体"><a href=pollitem.asp?pid=<%=rs("ID")%>&title=<%=rs("title")%>><u><%=rs("title")%></u></a><!--mstheme--></font></td>
<tr>
<td width="104" height="19" bgcolor="#FFFFFF"><!--mstheme--><font face="宋体"> <!--mstheme--></font></td>
<td width="290" height="19" bgcolor="#FFFFFF" colspan="2"><!--mstheme--><font face="宋体"> <!--mstheme--></font></td>
</tr>
</table>
<!--mstheme--><font face="宋体">
</center>
</div>
<p align="center"> </p>
<div align="center">
<center>
<!--mstheme--></font>
<table border="1" width="289" height="96" bgcolor="#C0C0C0" cellpadding="2" bordercolorlight="#333366" bordercolordark="#000000">
<tr>
<td width="174" height="85" rowspan="2"><!--mstheme--><font face="宋体"><a href="polladd.asp?pid=<%=rs("ID")%>"><img src=note.gif border=0>调查修编</a>
<p><img src=del.gif><a href=polldel.asp?pid=<%=rs("ID")%>>删除</a></p>
<p><img src=clear.gif><a href=pollclea.asp?pid=<%=rs("ID")%>>计数清空</a><!--mstheme--></font></td>
<%
cc=cc+1
rs.movenext
wend
Response.Write "</table>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<td> <!--mstheme--><font face="宋体"> <p align=center><A HREF=polladd.asp>调查申请</A>
<!--mstheme--></font>
<tr>
<td width="105" height="44"><!--mstheme--><font face="宋体"><A HREF=.>返回</A>
<!--mstheme--></font>
</td>
</tr>
</table>
<!--mstheme--><font face="宋体">
</center>
</div>
<!--mstheme--></font>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -