📄 admin_refreshclasss.asp

📁 新闻发布系统
💻 ASP
字号:
<!--#include file = "include.asp"-->
<!--#include file = "admin_CheckMana.asp"-->
<!--#include file = "inc/function.asp"-->
<!--#include file = "inc/ReplaceMake.asp"-->
<!--#include file = "inc/Child.asp"-->
<!--#include file = "inc/CrClass.asp"-->
<!--#include file = "inc/Special.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("makeclass")=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_RefreshClass.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")
action=trim(request("action"))
Classcn=trim(request("DClass"))
classno=trim(request("classno"))
sql=""
if classno="" then
   classno=1
else
   classno=cint(classno)
end if
if action="make" then
   if request("DClass")="" then
   Response.write"<script>alert(""请选择栏目！"");location.href=""Admin_Refreshclass.asp"";</script>"
   Response.end
   end if
   childtemp=getchild(cint(Classcn))
   sql="Select * from NewsClass Where Classcn in ("&childtemp&") order by ID Desc"
if sql<>"" then
   rs.open sql,conn,1,1
   Ntotal=rs.recordcount
   if not rs.eof then
   	  rs.move classno-1
      if (not rs.eof) and not( rs.bof) then
         tempid=rs("id")
         if rs("Child")=0 then
         Call CrsmClass(tempid)
         end if
         Call CrBgClass(tempid)
        classno=classno+1
         response.write("<meta http-equiv=""refresh"" content=""0;url=admin_refreshClasss.asp?DClass="&Classcn&"&classno="&classno&"&action="&action&""">")
    	 depict="共有<font color=red><b>"&Ntotal&"</b></font>个类别刷新<br><br>正在第<font color=red><b>"&classno-1&"</b></font>个类别"
    	 result="正在刷新栏目......"
    	 depict=depict+"按确定键返回！<br><br><input type=""submit"" value="" 确 定 "" class=Anbutc>"
      else
	     result="刷新完成！"
	     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
end if

if request("make")="all" then
  sql="Select * from NewsClass order by ID Desc"
if sql<>"" then
   rs.open sql,conn,1,1
   Classcn1=trim(request("DClass1"))
   classno1=trim(request("classno1"))
   if classno1="" then
   classno1=1
else
   classno1=cint(classno1)
end if
   Ntotal=rs.recordcount
   if not rs.eof then
   	  rs.move classno1-1
      if (not rs.eof) and not( rs.bof) then
         tempid=rs("id")
         if rs("Child")=0 then
          Call CrsmClass(tempid)
         end if
         Call CrBgClass(tempid)
        classno1=classno1+1
         response.write("<meta http-equiv=""refresh"" content=""0;url=admin_refreshClasss.asp?DClass1="&Classcn1&"&classno1="&classno1&"&make=all"">")
    	 depict="共有<font color=red><b>"&Ntotal&"</b></font>个类别刷新<br><br>正在第<font color=red><b>"&classno1-1&"</b></font>个类别"
    	 result="正在刷新栏目......"
    	 depict=depict+"按确定键返回！<br><br><input type=""submit"" value="" 确 定 "" class=Anbutc>"
      else
	     result="刷新完成！"
	     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  
end if
      Call Warn
%>
⌨️ 快捷键说明

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