📄 index2.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>鹰潭休闲旅游综合资讯</title>
<style>
<!--
td { font-size: 9pt }
A:link {text-decoration: none; color:#0000FF}
A:visited {text-decoration: none; color: #0000FF}
A:active {text-decoration: none; color: #FF0000}
A:hover {text-decoration: underline; color: FF0000}
-->
</style>
</head>
<body topmargin="10" leftmargin="0" bgcolor="#FFFFE6">
<div align="center">
<center>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><iframe src=../../manage/top.htm noresize scrolling=no frameborder=0 width=778 height=50 hspace="0" vspace="0" marginheight="0"></iframe>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<table border="0" width="760" cellspacing="0" cellpadding="0">
<tr>
<td width="756"><br>
<form method="POST" action="delete2.asp">
<p align="center">＝＝＝＝<font color="#FF0000">全部信息</font>＝＝＝＝ ＝＝＝＝<a href="index3.asp">已过期信息</a>＝＝＝＝ ＝＝＝＝<a href="deleteall.asp">删除全部过期信息</a>＝＝＝＝＝</p>
<div align="center" style="width: 754; height: 104">
<table border="0" width="87%" height="46">
<tr>
<td width="11%" bgcolor="#FFBF80" height="18">
<p align="center">类 别</p>
</td>
<td width="38%" bgcolor="#FFBF80" height="18"> 信 息 主 题</td>
<td width="16%" bgcolor="#FFBF80" height="18"> 发 布 时 间</td>
<td width="17%" bgcolor="#FFBF80" height="18"> 过 期 时 间</td>
<td width="11%" bgcolor="#FFBF80" height="18"> 地 点</td>
<td width="7%" bgcolor="#FFBF80" height="18"> 删 除</td>
</tr>
<%dim w(6)
w(1)="宾馆"
w(2)="旅游"
w(3)="餐饮"
w(4)="娱乐"
w(5)="其它"
%>
<%set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("../erdfg.mdb") &";Driver={Microsoft Access Driver (*.mdb)}"
set rs=com.execute("select*from msg ORDER BY id DESC")
page=request("page")
newpage=0
if page="" then page=1
do while newpage<page*31-31
newpage=newpage+1
rs.movenext
loop
do while not rs.eof
i=i+1%>
<tr>
<td width="11%" bgcolor="#FFF5EC" height="20">
<p align="center"><%response.write "[" & w(rs(3)) & "]"%></p>
</td>
<td width="38%" bgcolor="#FFF5EC" height="20"><a href="../show.asp?n=<%response.write rs(0)%>" target="_black"> <%response.write rs(1)%></a></td>
<td width="16%" bgcolor="#FFF5EC" height="20"> <%response.write rs(4)%></td>
<td width="17%" bgcolor="#FFF5EC" height="20"> <%response.write rs(5)%></td>
<td width="11%" bgcolor="#FFF5EC" height="20"> <%response.write rs(7)%></td>
<td width="7%" bgcolor="#FFF5EC" height="20"> <input type="checkbox" name="de" value="<%response.write rs(0)%>"></td>
</tr>
<%if i=30 then exit do
rs.movenext
loop%>
</table>
<p><input type="submit" value=" 删 除 " name="B1" style="font-size: 9pt; background-color: #FFFFE6; border-style: solid">
<input type="reset" value=" 重 选 " name="B2" style="font-size: 9pt; background-color: #FFFFE6; border-style: solid"></p>
<p>
</div>
</form>
<p align="right"><%if page=1 then %>上一页<%else%><a href="index2.asp?page=<%=page-1%>">上一页</a>
<%end if%> <%if i=30 and not rs.eof then %><a href="index2.asp?page=<%=page+1%>">下一页</a><%else%>下一页<%end if%>
<a href="../index.asp"><<<<<返回主页</a> </td>
</tr>
<tr>
<td width="758"></td>
</tr>
</table>
</div>
<div align="center">
<center>
<table border="0" width="760" cellspacing="1" cellpadding="0">
<tr>
<td width="754" bgcolor="#000000" height="1"></td>
</tr>
<tr>
<td bgcolor="#FFCC99" align="center"></td>
</tr>
<tr>
<td width="754" bgcolor="#000000" height="1"></td>
</tr>
<tr>
<td height="21" align="center"><%rs.close
com.close%></td>
</tr>
</table>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -