📄 admsgd.asp.bak
字号:
<! *************************************************************
程序名称：DaDaYu信息发布系统 V1.0
程序版权：DaDaYu (www.2vg.net)
QQ: 569222
*************************************************************** >
<%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="交友, 征友, 速配, 约会, 聊天, 征婚, 婚介, 爱情, 友情, 友谊, 朋友, 伙伴, 情人, 伴侣, 同性, 异性, 女人, 男士, 女士, 男孩, 女孩, 帅哥, 美女, 单身, 独身, 性感, 浪漫, 激情, 手机交友, 手机, 短信, 彩信, 铃声, 图片, 照片, 靓照, 贴图, 语音, 视频, 搜索, 文章, 商城, 黄龙, 非常视觉, 欣欣然, 长春, 59163, 59163.com, 农安, 农安信息港" 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">非常视觉信息发布系统
V1.0</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">2vg.net</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 + -