refreshall.asp

来自「很好的企业网站管理系统!可以适应各种不同的小型企业!」· ASP 代码 · 共 64 行

ASP

64 行

<html>

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

<body>
<!--#include file="mdb_path_info.asp"-->
<!--#include file="config.asp"-->
<%
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('info_makesort.asp?MaxPerPage="&MaxPerPage1&"&tid="&TI(""&i&"")&"&page=1',onDownloadDone)</script>"
     response.write"<b>刷新完成</b><br>"
     next
     response.write("<script>window.open(""RefreshListall1.asp?type=all&ts="&ts1&""","""",""width=200,height=100,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no"")</script>")
           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('RefreshListjs.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>

refreshall.asp - 源码说明

本页面展示了「很好的企业网站管理系统!可以适应各种不同的小型企业!」中的 refreshall.asp 源码文件，采用 ASP 编程语言编写，共 64 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与企业网站相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?