📄 recycle.asp
字号:
<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<%
'==========================================
'
'
'
'
'
'==========================================
'程序名称：渐飞商务信息更新程序
'程序作用：
'程序创建时间：18:58 2002-9-7
'程序完成时间：21:50 2002-8-7
'最后修改时间：21:50 2002-8-7
'==========================================
if request.form("operation")="DEL" then
num=request.form("ID").Count
for i=1 to num
conn.execute("delete from Recycle where NewsID="&request.form("ID")(i))
next
end if
page=request.querystring("page")
if page<=1 or page="" then page=1
set rs=server.createobject("adodb.recordset")
sql="select * from Recycle order by DelDate desc"
rs.open sql,conn,1,1
rs.pagesize=20
for i=1 to rs.pagesize*(page-1)
if not rs.eof then
rs.movenext
end if
next
%>
<body background="images/BLogo.gif">
<form method=post action="">
<table width="95%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5">
<tr bgcolor="#FFFFFF">
<td colspan="3" width="100%" height="25">
<!--#include file = topMenu.htm--></td>
</tr>
<tr bgcolor="#FFFFFF">
<td valign="middle" width="19%" background="images/BLogo.gif" height="25" align="center">
</td>
<td valign="top" colspan="2" background="images/BLogo.gif" height="25"> </td>
</tr>
<tr bgcolor="#FFFFFF" valign="middle" align="center">
<td height="2" colspan="3" background="images/BLogo.gif">
<table width="99%" border="0" cellspacing="1" cellpadding="0" bgcolor="#F5F5F5">
<%
if rs.eof and rs.bof then
%>
<tr bgcolor="#FFFFFF">
<td width="100%" align="center"><font color=red>暂时没有删除的商务信息</font></td>
</tr>
<%
response.end
end if
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<tr bgcolor="#FFFFFF">
<td height=20 width="61%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><%=rs("title")%></td>
<td height=20 width="22%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><%=rs("DelDate")%></td>
<td height=20 width="10%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><a href=Restore.asp?NewsID=<%=rs("NewsID")%> onclick="return reset1()">还原</a></td>
<td height=20 width="7%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><input type="checkbox" name=ID value=<%=rs("NewsId")%>></td>
</tr>
<%
rs.movenext
next
%>
<tr bgcolor="#FFFFFF">
<td height=20 width="100%" colspan=4 align=right onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<input type=hidden value=DEL name=operation>
<input type="checkbox" name="chkall" onclick="CheckAll(this.form)">选中所有
<input type=submit value=删除 onclick="return Del()">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height=20 width="100%" colspan=4 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<%
for i=1 to rs.PageCount
response.write("<a href=recycle.asp?Page="&i&"><b> "&i&" </a></b>")
next
rs.close
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -