📄 list.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>现有投票主题</title>
<link rel=stylesheet type=text/css href=css.asa>
</head>
<body bgcolor="#ECF5FF">
<!--#include file="head.asp"-->
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="73%" id="AutoNumber1" height="76">
<tr>
<td width="100%" height="38">
<p align="center"><b><font size="3">现有投票主题</font></b></td>
</tr>
<tr>
<td width="100%" height="38">
<div align="center">
<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#99CCFF" width="100%" id="AutoNumber2">
<tr>
<td width="2%" height="17" background="dh.gif" bgcolor="#FCB072">
<p align="center"><font size="2"><b>ID</b></font></td>
<td width="12%" height="17" background="dh.gif" bgcolor="#FCB072">
<p align="center"><font size="2"><b>投 票 说 明</b></font></td>
<td width="6%" height="17" background="dh.gif" bgcolor="#FCB072">
<p align="center"><font size="2"><b>多选</b></font></td>
<td width="6%" height="17" background="dh.gif" bgcolor="#FCB072">
<p align="center"><font size="2"><b>活动</b></font></td>
<td height="17" colspan="3" background="dh.gif" bgcolor="#FCB072">
<p align="center"><b>操 作</b></td>
</tr>
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
cmd=Cint(Request.QueryString("cmd"))
id=Request.QueryString("ID")
IF cmd=1 THEN
sql="Update 调查 Set 活动=Not(活动) Where ID="&id
ELSEIF cmd=2 THEN
sql="Delete From 调查 Where ID="&id
sql1="Delete From 结果 Where 所属="&id
END IF
IF sql<>"" THEN conn.execute sql
IF sql1<>"" THEN conn.execute sql1
Set rs=conn.execute("Select * From 调查 Order By ID")
IF rs.eof THEN
Response.write "<tr><td colspan=7 bgcolor=#FEE2CB>当前还没有任何投票项目</td><tr>"
ELSE
While NOT rs.eof
%>
<tr>
<td width="2%" height="1" bgcolor="#FFFFFF">
<p align="center"><%=rs(0)%></td>
<td width="12%" height="1" bgcolor="#FFFFFF">
<%=rs(1)%></td>
<td width="6%" height="1" bgcolor="#FFFFFF">
<p align="center"><%=rs(2)%></td>
<td width="6%" height="1" bgcolor="#FFFFFF">
<p align="center"><%=rs(3)%></td>
<td width="23%" height="1" bgcolor="#FFFFFF">
<p align="center">【<a href="list.asp?cmd=1&ID=<%=rs(0)%>"><font color="#000000">设为<% IF rs(3) THEN Response.write "不" %>活动</font></a>】</td>
<td width="19%" height="1" bgcolor="#FFFFFF">
<p align="center">【<a href="list.asp?cmd=2&ID=<%=rs(0)%>"><font color="#000000">删除</font></a>】</td>
<td width="32%" height="1" bgcolor="#FFFFFF">
<p align="center">
【<a href="#" onclick="javascript:window.open('view.asp?ID=<%=rs(0)%>','','width=420,height=350,scrollbars=yes')"><font color="#000000">详细信息</font></a>】</p>
</td>
</tr>
<%
rs.MoveNext
Wend
END IF
rs.close
Set rs=nothing
conn.close
Set conn=nothing
%>
</table>
</div>
</td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -