📄 refreshcommonpagesave.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../../SysCls/KS_RefreshCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2企业SQL版
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New RefreshCommonPageSave
KSCls.Execute()
Set KSCls = Nothing
Class RefreshCommonPageSave
Private KSCMS
Private KSRObj
Private ReturnInfo
Private Sub Class_Initialize()
Set KSRObj=New Refresh
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSRObj=Nothing
Set KSCMS=Nothing
End Sub
Sub Execute()
'On Error Resume Next
Dim RefreshFlag, RefreshSql, FolderID, NewsNo, RefreshRS, NewsTotalNum, StartRefreshTime
'刷新时间
StartRefreshTime = Request("StartRefreshTime")
If StartRefreshTime = "" Then StartRefreshTime = Timer()
RefreshFlag = Request.QueryString("RefreshFlag")
RefreshSql = Trim(Request("RefreshSql"))
NewsNo = Request("NewsNo")
If NewsNo = "" Then NewsNo = 0
If RefreshSql = "" Then
If RefreshFlag = "Folder" Then
FolderID = Request("PageID")
FolderID=Left(Folderid,Len(FolderID)-1)
RefreshSql = "Select * From KS_Template Where TemplateType=9993 And TemplateID IN (" & FolderID & ")"
ElseIf RefreshFlag = "All" Then
RefreshSql = "Select * From KS_Template Where TemplateType=9993"
Else
RefreshSql = ""
End If
End If
If RefreshSql <> "" Then
Set RefreshRS = Server.CreateObject("ADODB.RecordSet")
RefreshRS.Open RefreshSql, Conn, 1, 1
NewsTotalNum = RefreshRS.RecordCount
If RefreshRS.EOF Then
ReturnInfo = "没有要刷新的通用页面 <br><input name=""button1"" type=""button"" onclick=""javascript:location='RefreshCommonPage.asp';"" class=""buttonstyle"" value="" 返 回 "">"
Set RefreshRS = Nothing
Call Main
Else
RefreshRS.Move NewsNo
If Not RefreshRS.EOF Then
Call KSRObj.RefreshCommonPage(RefreshRS) '调用通用页面刷新函数
NewsNo = NewsNo + 1
Response.Write ("<meta http-equiv=""refresh"" content=""0;url='RefreshCommonPageSave.asp?StartRefreshTime=" & Server.URLEncode(StartRefreshTime) & "&NewsNo=" & NewsNo & "&RefreshSql=" & Server.URLEncode(RefreshSql) & "&RefreshFlag=" & RefreshFlag & "'"">")
ReturnInfo = "总共需要刷新 <font color=red><b>" & NewsTotalNum & "</b></font> 个通用页面<br><br>正在刷新第 <font color=red><b>" & NewsNo - 1 & "</b></font> 个通用页面,请稍候... <font color=red><b>在此过程中请勿刷新此页面！！！</b></font><br>"
Else
ReturnInfo = "刷新通用页面结束！总费时:<font color=red>" & Left((Timer() - StartRefreshTime), 4) & "</font> 秒<br><br>总共刷新了 <font color=red><b>" & NewsTotalNum & "</b></font> 个通用页面 <br><br><input name=""button1"" type=""button"" onclick=""javascript:location='RefreshCommonPage.asp';"" class=""buttonstyle"" value="" 返 回 "">"
End If
Set RefreshRS = Nothing
Call Main
End If
Set RefreshRS = Nothing
Else
ReturnInfo = "对不起，您没有选择要发布的通用页面 <font color=""red""><a href=""RefreshCommonPage.asp"">返回</a></font>"
Call Main
End If
End Sub
Sub Main()
Response.Write ("<html>")
Response.Write ("<head>")
Response.Write ("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">")
Response.Write ("<title>系统信息</title>")
Response.Write ("</head>")
Response.Write ("<link rel=""stylesheet"" href=""../Inc/Admin_Style.css"">")
Response.Write ("<body oncontextmenu=""return false;"">")
Response.Write ("<table width=""80%"" height=""50%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
Response.Write (" <tr>")
Response.Write (" <td height=""50"">")
Response.Write (" <div align=""center""> ")
Response.Write (ReturnInfo)
Response.Write (" </div></td>")
Response.Write (" </tr>")
Response.Write ("</table>")
Response.Write ("</body>")
Response.Write ("</html>")
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -