MakeAll.asp 共享世纪内容管理系统 2.1 build 080704 全站开源版 - ASP源码程序

www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/MakeAll.asp
    <html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>刷新文件</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>

<body>
<!--#include file="mdb_path_info.asp"-->
<!--#include file="config.asp"-->
<!--#include file="top.asp"-->
<%
'==========================================
'
'  晓宇听幽新闻文章管理系统 2004
'
'  主页地址：http://www.xoYu.com
'
'==========================================
'程序名称：晓宇听幽新闻文章管理系统
'英文名称：xoYu News 2004 Professional
'程序创建时间：2003-7-10
'程序完成时间：2003-9-11
'最后修改时间：2003-10-10
'==========================================
tid=request("tid")
set rs=server.CreateObject("ADODB.RecordSet")
set rs1=server.CreateObject("ADODB.RecordSet")
if flash="1" then
  rs.open "select * from infotype where id="&tid,conn,1,1
  if not rs.eof then
      ts=rs("ts")
 TI=split(rs("ts"), ",")
      end if
           for i = 0 to ubound(TI)-1
           rs1.open "select * from infotype where id="&TI(""&i&""),conn,1,1
           id1=rs1("id")
           ts1=rs1("ts")
           last1=rs1("last")
           MaxPerPage1=rs1("MaxPerPage")
           rs1.close
     response.write"<b>刷新文章栏目(ID"&id1&")的Html页过程中....</b><br><span id=showImport"&i&"></span><IE:Download ID=""oDownload"&i&""" STYLE=""behavior:url(#default#download)"" />"
     response.write"<script>function onDownloadDone(downDate"&i&"){showImport"&i&".innerHTML=downDate"&i&"}oDownload"&i&".startDownload('makeList.asp?MaxPerPage="&MaxPerPage1&"&tid="&TI(""&i&"")&"&page=1',onDownloadDone)</script>"
     response.write"<b>刷新完成</b><br>"
     next
           rs.close
end if
if flashjs="1" then
  rs.open "select * from infotype where id="&tid,conn,1,1
  if not rs.eof then
      ts=rs("ts")
 TI=split(rs("ts"), ",")
      end if    
     for k = 0 to ubound(TI)-1
           rs1.open "select * from infotype where id="&TI(""&k&""),conn,1,1
           id2=rs1("id")
           ts2=rs1("ts")
           last2=rs1("last")
           MaxPerPage2=rs1("MaxPerPage")
           rs1.close
     response.write"<b>刷新文章栏目(ID"&id2&")的JS文件过程中....</b><br><span id=showImport"&k&"></span><IE:Download ID=""oDownloadx"&k&""" STYLE=""behavior:url(#default#download)"" />"
     response.write"<script>function onDownloadDone(downDate"&k&"){showImport"&k&".innerHTML=downDate"&k&"}oDownloadx"&k&".startDownload('flashListjs.asp?tid="&TI(""&k&"")&"',onDownloadDone)</script>"
     response.write"<b>刷新完成</b><br>"
     next
     rs.close
end if 
      set rs=nothing
      set rs1=nothing
      conn.close
      set conn=nothing
response.write("<script>alert('成功:全部分类刷新完成,请继续添加文章!');location.href='html_add.asp?id="&request("tid")&"'</script>") 
response.end
%>
</body>

</html>