📄 admin_newscheck.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)
'=========================================================
if EnoughPopedom("check")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
select case Request("action")
case "pass"
call Pass()
case "dell"
call dell()
end select
Sub Pass()
Newsid=request.querystring("Newsid")
set rso = server.createobject("adodb.recordset")
sqlo = "select * from News where Newsid="&Newsid
rso.open sqlo,conn,1,3
rso("check")=false
rso.update
rso.close
Response.write"<script>alert(""审核成功\n\n前台需要重新生成静态文件！ "");location.href=""Admin_NewsCheck.asp"";</script>"
Response.end
end Sub
Sub dell()
Newsid=request("Newsid")
set rs21=server.createobject("adodb.recordset")
sql21="select * from News where Newsid="&Newsid
rs21.open sql21,conn,3,3
rs21.delete
rs21.update
rs21.close
Response.write"<script>alert(""审核成功\n\n请在审核后生成Html文件\n\n前台才能显示 "");location.href=""Admin_NewsCheck.asp"";</script>"
Response.end
end Sub
set rs1=server.createobject("adodb.recordset")
sql="select * from news where Check=true order by newsid desc"
rs1.open sql,conn,1,3
%>
<head>
<title>www.cooin.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=css/css.css rel=stylesheet>
</head>
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯图文信息系统
'当前版本：2003.8.0
'=========================================================
'Copyright (C) 2002-2003 cooin.com. All rights reserved.
'网站: http://www.cooin.com
'程序制作：轻风云(QQ:655071) skeen@cooin.com,skeen@263.net,skeen@sohu.com
'论坛支持：风讯论坛(http://www.cooin.com/bbs)
'=========================================================
%>
<body bgcolor=#FFFFFF leftmargin=0 topmargin="0">
<TABLE width="66" height="27" border=0 align="center" cellPadding=0 cellSpacing=1 bgcolor="#84BE7E">
<TBODY>
<TR>
<TD width="149" > <TABLE cellSpacing=0
cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="502" height="18"><table width="543" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#F7FFF4">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><strong><font color="#990000">新闻审核</font></strong><font color="#990000"> (通过验证后需要生成html文件前台才能显示)</font></div></td>
</tr>
</table>
<%
strpage=request.querystring("page")
if len(strpage)=0 then
strpage="1"
end if
if rs1.eof then
rs1.close
set rs1=nothing
conn.close
set conn=nothing
response.Write"没有新闻需要审核。"
response.end
end if
rs1.pagesize=800
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="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
</table>
<table width="99%" height="29" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#84BE7E">
<tr bgcolor="#F7FFF4">
<td width="70%" height="27">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><a href=news.asp?newsid=<%=rs1("newsid")%> target=_blank><%=rs1("title")%></a></td>
</tr>
</table></td>
<td width="16%">
<div align="center"><a href="admin_newscheck.asp?action=pass&Newsid=<%=rs1("newsid")%>">通过</a></div></td>
<td width="14%">
<div align="center"><a href="admin_newscheck.asp?action=dell&Newsid=<%=rs1("newsid")%>">删除</a></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
</table>
<%
rs1.MoveNext
next
%>
<font color="#FF0000">
<%
response.write" 共" & select_count &"</b>条新闻需要审核。"
%>
<!--#include file = name.asp-->
</font></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE> </table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -