📄 admsgd.asp
字号:
<%if session("loc")=0 then response.redirect "admin.asp"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>DaDaYu</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Window-target content=_top>
<META content= name=AUTHOR>
<META content="大大鱼工作室，E天工作室，网站设计，徐州信息网，徐州114信息网，徐州房产" name=KEYWORDS>
<META content="home page" name=CATEGORY>
<META content=all name=ROBOTS>
<LINK href="../images/style.css" type=text/css rel=stylesheet>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<body leftmargin="0" topmargin="0">
<table border="0" width="100%" height="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center"><table width="500" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr align="center" bgcolor="#CCCCCC">
<td height="50" bgcolor="#CCCCCC">:. DaDaYu.com .:</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="500" align="right" height="30">
<p align="center"><font color="#FF0000">信息管理=====删除个别信息</font></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="100">
<form method="POST" action="admsgdd.asp">
<div align="center">
<table border="0" width="95%">
<tr>
<%set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("../data.asp") &";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*21-21
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="29%"><%response.write rs(4)%></td>
<td width="9%"><%response.write rs(7)%></td>
<td width="2%"><input type="checkbox" name="de" value="<%response.write rs(0)%>"></td>
</tr>
<%if i=20 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>
</div>
</form>
<p align="right">
<%if page=1 then %>
上一页
<%else%>
<a href="admsgd.asp?page=<%=page-1%>">上一页</a>
<%end if%>
<%if i=20 and not rs.eof then %>
<a href="admsgd.asp?page=<%=page+1%>">下一页</a>
<%else%>
下一页
<%end if%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="500" align="right" height="30">
<p align="center"><a href="adsel.asp"><font color="#FF0000">返回管理首页</font></a></td>
</tr><%rs.close
com.close%>
<tr align="center" bgcolor="#CCCCCC">
<td height="50"><p align="center"><font color="#000000"><FONT face="Arial">Copyright ©
2003-2010 </FONT> <FONT face="Arial">DaDaYu.com</FONT> <FONT face=Arial>
Inc. All rights reserved. </FONT> <b><br>
</b></font></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -