list.asp

来自「asp的新闻网站」· ASP 代码 · 共 85 行

ASP
85 行
字号 
<%Response.Buffer=true%>
<%
'修改：潘树文
'时间：
	'模板设计：秦怀平(jincao@yeah.net)
	'开发时间：2000.12
%>
<!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Qinhp NetModel Generator">
<meta name="Author" content="QinHuaiPing(秦怀平)">
<link rel="stylesheet" href="../script/style.css" type="text/css">
</head>

<body bgcolor="#FFFFE0">
<!--#include file="../include/rollPage.asp" -->

<%
set rs=server.CreateObject("adodb.recordset")
%>
<form method=POST action=<% =request.servervariables("path_info")%> name=list>
<p align=center><b><font size=4 color=#0000FF><u>调查列表</u></font></b></p>
<div align=center><center>
	<table style="border: 1 solid #0000FF" width=100%>
<%if request("deleteSubmit")<>"" then
	selectDelete = CStr(killStr(request("selectDelete")))
	'删除所选
	If selectDelete <> "" Then
		selectDeleteArr = Split(selectDelete, ",")
		selectDeleteNumber = UBound(selectDeleteArr)
		For i = 0 To selectDeleteNumber
			conn.execute "delete from news2_survey where left(surveyid,8)='"&left(trim(selectDeleteArr(i)),8)&"'"
		next
	end if
end if
sql="select * from news2_survey where right(surveyid,2)='00' and menuid='"&request("menuid")&"' order by surveyid desc"
rs.Open sql, conn, 3, 1
If Not rs.EOF Then
	rs.PageSize = 13
	rs.AbsolutePage = getPageNo(rs)
%>
<hr color=#FF0000>

<form method=POST action=<% =request.servervariables("path_info")%>>
	<div align=center>
		<center>
		<table border=1 cellpadding=0 cellspacing=0>
			<tr>
				<td width=48 align=center><b>选择</b></td>
				<td align=center><b>编号</b></td>
				<td align=center><b>主题</b></td>
				<td align=center><b>投票</b></td>
				
				<td align=center><b>活动</b></td>
			<td width=54 align=center><b>编辑</b></td>
		</tr>
		<%For i = 1 To rs.PageSize
			If rs.EOF Then Exit For%>
			<tr>
				<td align=center><input type=checkbox name=selectDelete value=<%=rs("surveyid")%>></td>
				<td align=center><%=rs("surveyid")%>　</td>
				<td align=center><%=rs("surveytitle")%>　</td>
				<td align=center><%=rs("votenum")%>　</td>
				
				<td align=center><%if rs("visible")="1" then Response.Write "<font color=red><b>是</b></font>" else Response.Write "否"%>　</td>
				<td width=54 align=center><a href=update.asp?id=<%=rs("surveyid")%>>修改</a></td>
			</tr>
			<%rs.MoveNext
			if rs.eof then exit for
		next%>
		<tr><td nowrap colspan=7 align=center><input type=submit value=删除所选 name=deleteSubmit onclick="if (confirm('您真的要该记录数据以及相关数据？')){return true;} else{return false;}" language=JScript></td>
		</tr>
	</table></form><%call listPage(rs)%><%end if%>
	</center>
</div>

</body>
</html>

list.asp - 源码说明

本页面展示了「asp的新闻网站」中的 list.asp 源码文件，采用 ASP 编程语言编写，共 85 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?