📄 admsgd.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>xinhs.com</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>
</center>
</div>
<div align="center">
<center>
<table border="0" width="760" cellspacing="0" cellpadding="0">
<tr>
<td width="756">
<form method="POST" action="admsgdd.asp">
<p><font color="#FF3300"><strong>网站供求信息管理----删除个别信息</strong></font></p>
<div align="center">
<table border="0" width="75%">
<tr>
<%set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("../xinhs.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="60%"><a href="../show.asp?n=<%response.write rs(0)%>" target="_black"><%response.write rs(1)%></a></td>
<td width="25%"><%response.write rs(4)%></td>
<td width="10%"><%response.write rs(7)%></td>
<td width="5%"><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="admsgd.asp?page=<%=page-1%>">上一页</a>
<%end if%>
<%if i=30 and not rs.eof then %>
<a href="admsgd.asp?page=<%=page+1%>">下一页</a>
<%else%>
下一页
<%end if%>
<a href="adsel.asp"><<返回</a> </td>
</tr>
<center>
<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 + -