📄 admin_refreshs.asp

📁 新闻发布系统
💻 ASP
字号:
<!--#include file = "include.asp"-->
<!--#include file = "admin_CheckMana.asp"-->
<!--#include file = "inc/function.asp"-->
<!--#include file = "inc/Htmls.asp"-->
<!--#include file = "char.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<%
'=========================================================
'产品目录：风讯产品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("makehtml")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
Sub Warn()
%>
<body>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<form method=post action=admin_Refresh.asp>
  <TABLE class=body cellSpacing=0 cellPadding=0 width=400 align=center background=pic/err_bg1.gif border=0>
    <TBODY>
      <TR> 
        <TD width=10 height=23><IMG height=23 src="pic/err1.gif" width=24 border=0></TD>
        <TD width=348 height=23>&nbsp;<b><%=result%>     </b></TD>
        <TD vAlign=baseline width=37 height=23 align=right>&nbsp;</TD>
        <TD width=5 height=23><IMG height=23 src="pic/err2.gif" width=5 border=0 name=errr1_c4></TD>
      </TR>
    </TBODY>
  </TABLE>
  <TABLE class=body cellSpacing=0 cellPadding=0 width=400 align=center border=0>
    <TBODY>
      <TR vAlign=bottom> 
        <TD background=pic/err_bg.gif height=120> <BLOCKQUOTE> 
            <DIV id=base> 
              &nbsp;   <%=depict%>  
            </DIV>
          </BLOCKQUOTE>
          </TD>
      </TR>
      <TR> 
        <TD height=2><IMG height=5 src="pic/err_bot.gif" width=400></TD>
      </TR>
    </TBODY>
  </TABLE>
  <p>&nbsp;</p>
</form>
</body>

<% end Sub 
set rs=Server.CreateObject("Adodb.recordset")
Daction=trim(request("action"))
Dday=trim(request("Dday"))
Dyear=trim(request("Dyear"))
Dmonth=trim(request("Dmonth"))
Dnewshu=trim(request("newshu"))
Newsno=trim(request("Newsno"))
Dclass=trim(request("Dclass"))
sql=""
if Newsno="" then
   Newsno=1
else
   Newsno=cint(Newsno)
end if
if Daction="date" then
   Ddate=Dyear&"-"&Dmonth&"-"&Dday
   sql="select Newsid from News where BiaotiNews=0 and date like '"&Ddate&"%'"
elseif Daction="new" then
   if Dnewshu="" or Dnewshu="0" then  Dnewshu="1"
   sql="select top "&Dnewshu&" Newsid from News where BiaotiNews=0 order by date desc,newsid desc"
elseif Daction="all" then
   sql="select Newsid from News where BiaotiNews=0 order by NewsID desc"
elseif Daction="class" then
   if request("DClass")="" then
   Response.write"<script>alert(""错误\n\n请选择栏目！或者添加新闻栏目"");location.href=""Admin_Refresh.asp"";</script>"
   Response.end
   end if
   childtemp=getchild(cint(Dclass))
   sql="Select Newsid from news Where ClassCN in ("&childtemp&") order by NewsID Desc"
end if
if sql<>"" then
   rs.open sql,conn,1,1
   Ntotal=rs.recordcount
   if not rs.eof then
   	  rs.move newsno-1
      if (not rs.eof) and not( rs.bof) then
         Call CRPage(rs("NewsID"))
         Newsno=Newsno+1
         response.write("<meta http-equiv=""refresh"" content=""0;url=admin_refreshs.asp?Newsno="&Newsno&"&action="&Daction&"&Dday="&Dday&"&Dyear="&Dyear&"&Dmonth="&Dmonth&"&newshu="&Dnewshu&"&Dclass="&Dclass&""">")
    	 depict="共有<font color=red><b>"&Ntotal&"</b></font>条新闻需要刷新<br><br>正在第<font color=red><b>"&Newsno-1&"</b></font>条新闻"
    	 result="正在刷新新闻......"
    	 depict=depict+"按确定键返回！<br><br><input type=""submit"" value="" 确 定 "" class=Anbutc>"
      else
	     result="刷新完成！"
      Call HotNews
      Call RecommendNews
	  Call LastNews
	  Call special
	  Call specialmore
	  Call marquee
         
	     depict="<b>首页调用、推荐、热点、滚动新闻更新完毕</b><br><br>按确定键返回！<br><br><input type=""submit"" value="" 确 定 "" class=Anbutc>"
      
      end if
   else
      result="暂时没有要刷新的新闻"
      depict=depict+"按确定键返回！<br><br><input type=""submit"" value="" 确 定 "" class=Anbutc>"
   end if
else
   result="参数无效"
   depict="按确定键返回！<br><br><input type=""submit"" value="" 确 定 "" class=Anbutc>"
end if
      Call Warn
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -