📄 admin_reviewall.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 http://bbs.foosun.net)
'=========================================================
'获取绝对路径开始
Copyright="\n\n Copyrights Foosun Computer System studios"
Domain=Request.ServerVariables("SERVER_NAME")
soFilePath=Request.ServerVariables("PATH_INFO")
soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
totoln=len(soFilePath)
soFilePath=lcase(left(soFilePath,totoln-1))
soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
sowinpath=Domain&soFilePath
'获取绝对路径结束
page=request.querystring("page")
if page<=1 or page="" then page=1
Set rs1=Server.CreateObject("Adodb.Recordset")
sql1="Select * from news order by NewsID desc "
rs1.open sql1,conn,1,1
rs1.pagesize=18
for i=1 to rs1.pagesize*(page-1)
if not rs1.eof then
rs1.movenext
end if
next
%>
<body bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#97C893">
<form method="post" action="">
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align="center" valign="middle">
</td>
<td width="73%" height="25" colspan="2" valign="top">
<select name="SearchType">
<option value="Title">标题</option>
<option value="Content">内容</option>
</select> <input type="text" name="KeyWord"> <input type="hidden" name=action value="Search">
<input name="submit" type="submit" value="搜索" class=Anbut1>
</td>
</tr>
</form>
<tr valign="middle" align="center">
<td height="2" colspan="3" bgcolor="#F7FFF4">
<form method=post action=admin_NewsSave.asp?result=Del>
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="left"><b><font color="#000000"></font></b></div></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#97C893">
<%
if rs1.eof and rs1.bof then
%>
<tr bgcolor="#F7FFF4">
<td colspan="2" align="center"><font color=red>暂时没有信息</font></td>
</tr>
<%
response.end
end if
for i=1 to rs1.pagesize
if rs1.eof then exit for
%>
<tr bgcolor="#F7FFF4">
<td width="68%" height=26 bgcolor="#F7FFF4"><a href=http://<%=sowinpath%><%=rs1("lpath")&rs1("fileName")&".html"%> target=_blank><%=rs1("title")%></a></td>
<td width="18%" height=26 >
<div align="center"><a href="admin_ReviewManage.asp?FileName=<%=rs1("FileName")%>"><img src="pic/review.gif" alt="评论管理" width="73" height="18" border="0"></a></div></td>
<td width="14%" height=26 >
<div align="center"><font color="#CC6600">[<a href="admin_NewsModify.asp?NewsID=<%=rs1("NewsID")%>&action=Modify">修改新闻？</a>]</font></div></td>
</tr>
<%
rs1.movenext
next
%>
<tr bgcolor="#F7FFF4">
<td height=20 colspan=4>
<%
for i=1 to rs1.PageCount
response.write("<a href=?Page="&i&"><b>["&i&"]</a> </b>")
next
rs1.close
set rs1=nothing
%>
</td>
</tr>
</table>
<!--#include file = name.asp-->
</form></td>
</tr>
</table>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -