📄 admin_editall.asp
字号:
<!--#include file = include.asp-->
<!--#include file = admin_Checkmana.asp-->
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://BBS.COOIN.COM)
'=========================================================
%>
<head>
<title>www.cooin.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=css/css.css rel=stylesheet>
</head>
<body>
<form name="form1" method="post" action="admin_editalls.asp">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#AFCAE4">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><font color="#FF0000">编辑所有新闻</font><font color="0"><strong></strong></font></b></div></td>
</tr>
</table>
</td>
</tr>
</table>
<%
strpage=request.querystring("page")
if len(strpage)=0 then
strpage="1"
end if
set rs1=server.createobject("adodb.recordset")
sql="select * from news where Check=false order by newsid desc"
rs1.open sql,conn,1,3
if rs1.eof then
rs1.close
set rs1=nothing
conn.close
set conn=nothing
response.Write"没有新闻记录。"
response.end
end if
rs1.pagesize=15
rs1.absolutepage=cint(strpage)
select_count=rs1.recordcount
select_pagecount=rs1.pagecount
for i=1 to rs1.pagesize
if rs1.eof then
exit for
end if
%>
<table width="98%" height="27" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#7ED3A7">
<tr bgcolor="#F7FFF4">
<td width="3%">
<input name="DelId" type="checkbox" id="DelId" value="<%=rs1("NewsId")%>">
</td>
<td width="47%">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><a href=../<%=rs1("lpath")&rs1("fileName")&".html"%> target=_blank><%=rs1("title")%></a></td>
</tr>
</table>
</td>
<td width="23%">
<div align="left">[<font color="#006600">专题：</font><font color="#FF0000"><%=rs1("speicalcn")%></font>]
</div></td>
<td width="10%">
<div align="center"><a href="admin_NewstoJS.asp?FileName=<%=rs1("FileName")%>"><img src="pic/js.gif" width="73" height="18" border="0"></a></div></td>
<td width="17%">
<div align="center"><a href="admin_NewsModify.asp?NewsID=<%=rs1("NewsID")%>&action=Modify"><img src="pic/xiu.gif" width="73" height="18" border="0"></a></div></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="2"></td>
</tr>
</table>
<%
rs1.MoveNext
next
%>
<%
response.write" 共<b>"& select_pagecount &"</b>页<b>" & select_count &"</b>条记录，本页是第<b>"& strpage &"</b>页。"
if int(strpage)>1 then
response.Write" <a href=admin_editall.asp?page=1>第一页</a> "
response.Write" <a href=admin_editall.asp?page="&cstr(cint(strpage)-1)&">上一页</a> "
end if
if int(strpage)<select_pagecount then
response.Write" <a href=admin_editall.asp?page="&cstr(cint(strpage)+1)&">下一页</a>"
response.Write" <a href=admin_editall.asp?page="& select_pagecount &">最后一页</a> "
end if
response.Write"<br>"
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="right">
<input type="checkbox" name="chkall" onclick="CheckAll(this.form)">
选中所有
<input name="submit" type=submit onclick="return Del()" value=删除>
</div></td>
</tr>
<tr>
<td>
</td>
</tr>
</table>
</form>
</body>
</htm>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -