📄 refreshhtmlsave.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 SP2 Free
'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 RefreshHtmlSave
KSCls.Execute()
Set KSCls = Nothing
Class RefreshHtmlSave
Private KSCMS,KSRObj
Private RefreshFlag
Private ReturnInfo,FsoHtmlList
Private StartRefreshTime
Private ChannelID
Private Types
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
Set KSRObj=New Refresh
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSRObj=Nothing
Set KSCMS=Nothing
End Sub
Public Sub Execute()
With Response
.Buffer = True
Server.ScriptTimeout = 999
.Expires = -1
.ExpiresAbsolute = Now() - 1
.Expires = 0
.CacheControl = "no-cache"
Types = Request("Types") 'Content 生成内容页操作 Folder 生成栏目操作
RefreshFlag = Request("RefreshFlag") '取得是按何种类型刷新,如New只发布最新的指定篇数文章
ChannelID = Request("ChannelID") '按频道处理
If KSCMS.GetChannelConfig(ChannelID,"FsoHtmlTF")=0 Then Call KSCMS.AlertHistory("科汛系统提醒您：\n\n1、此频道没有启用生成静态HTML功能\n\n2、请到系统设置->模块信息设置启用生成静态Html功能",-1):Exit Sub
'刷新时间
StartRefreshTime = Request("StartRefreshTime")
If StartRefreshTime = "" Then StartRefreshTime = Timer()
Select Case ChannelID
Case "1"
Select Case Types
Case "Content" '刷新文章内容
Call RefreshContentArticle
Case "Folder" '刷新文章栏目
Call RefreshFolderArticle
End Select
Case "2"
Select Case Types
Case "Content" '刷新图片内容
Call RefreshContentPicture
Case "Folder" '刷新图片目录
Call RefreshFolderPicture
End Select
Case "3"
Select Case Types
Case "Content" '刷新下载内容
Call RefreshContentDownLoad
Case "Folder" '刷新下载目录
Call RefreshFolderDownLoad
End Select
Case "4"
Select Case Types
Case "Content" '刷新Flash内容
Call RefreshContentFlash
Case "Folder" '刷新Flash目录
Call RefreshFolderFlash
End Select
End Select
End With
End Sub
Sub Main()
With Response
.Write ("<html>")
.Write ("<head>")
.Write ("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">")
.Write ("<title>系统信息</title>")
.Write ("</head>")
.Write ("<link rel=""stylesheet"" href=""../Inc/Admin_Style.css"">")
.Write ("<body oncontextmenu=""return false;"" scroll=no>")
If RefreshFlag<>"ID" Then
.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""sortbutton"">"
.Write " <tr>"
.Write " <td height=""23"" align=""center""><strong>系统发布管理</strong>"
.Write "</td>"
.Write "</tr>"
.Write "</table>"
.Write "<br><br><br><table id=""BarShowArea"" width=""400"" border=""0"" align=""center"" cellspacing=""1"" cellpadding=""1"">"
.Write "<tr> "
.Write "<td bgcolor=000000>"
.Write " <table width=""400"" border=""0"" cellspacing=""0"" cellpadding=""1"">"
.Write "<tr> "
.Write "<td bgcolor=ffffff height=9><img src=""../images/bar9.gif"" width=0 height=16 id=img2 name=img2 align=absmiddle></td></tr></table>"
.Write "</td></tr></table>"
.Write "<table width=""550"" border=""0"" align=""center"" cellspacing=""1"" cellpadding=""1""><tr> "
.Write "<td align=center> <span id=txt2 name=txt2 style=""font-size:9pt"">0</span><span id=txt4 style=""font-size:9pt"">%</span></td></tr> "
.Write "<tr><td align=center><span id=txt3 name=txt3 style=""font-size:9pt"">0</span></td></tr>"
.Write "</table>"
.Write ("<table width=""80%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
.Write (" <tr>")
.Write (" <td height=""50"">")
.Write (" <div align=""center""> ")
.Write (ReturnInfo)
.Write (" </div></td>")
.Write (" </tr>")
.Write ("</table>")
End If
.Write ("<table width=""70%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
.Write (" <tr>")
.Write (" <td height=""50"">")
.Write (FsoHtmlList)
.Write (" </td>")
.Write (" </tr>")
.Write ("</table>")
.Write ("</body>")
.Write ("</html>")
.Flush
End With
End Sub
'================================================================================================================================
' 以下为本模块相应处理的函数 '================================================================================================================================
'生成文章内容页的处理过程
Sub RefreshContentArticle()
Dim AlreadyRefreshByID, NowNum, RefreshSql, RefreshRS, TotalNum,ArticleID
Dim StartDate, EndDate, FolderID, RefreshTotalNum, TotalRS
AlreadyRefreshByID = Request.QueryString("AlreadyRefreshByID")
RefreshTotalNum = Request.QueryString("RefreshTotalNum")
NowNum = Request.QueryString("NowNum") '正在刷新第几篇文章
With Response
If NowNum = "" Then NowNum = 0
Select Case RefreshFlag
Case "ID"
ArticleID=KSCMS.G("ArticleID")
If ArticleID<>"" Then
RefreshSql = "Select top 1 * from KS_Article where NewsID='" & ArticleID & "' And Verific=1 and DelTF=0 Order By ID Desc"
Else
RefreshSql = ""
End If
RefreshTotalNum=1
Case "New"
TotalNum = Request("TotalNum")
If TotalNum = "" Then TotalNum = 50
RefreshTotalNum = TotalNum
If CInt(NowNum) < CInt(RefreshTotalNum) Then
If AlreadyRefreshByID = "" Then
RefreshSql = "Select top 1 * from KS_Article where Verific=1 and DelTF=0 Order By ID Desc"
Else
RefreshSql = "Select top 1 * from KS_Article where ID<" & AlreadyRefreshByID & " And Verific=1 and DelTF=0 Order By ID Desc"
End If
Else
RefreshSql = ""
End If
Case "Date"
StartDate = Request("StartDate")
EndDate = DateAdd("d", 1, Request("EndDate"))
'判断数据库类型
If CInt(Application("DataBaseType")) = 1 Then 'Sql
If AlreadyRefreshByID = "" Then
RefreshSql = "Select top 1 * from KS_Article where Verific=1 and DelTF=0 And AddDate>= '" & StartDate & "' And AddDate <='" & EndDate & "' Order By ID Desc"
Else
RefreshSql = "Select top 1 * from KS_Article where ID<" & AlreadyRefreshByID & " And Verific=1 and DelTF=0 And AddDate >= '" & StartDate & "' And AddDate <='" & EndDate & "' Order By ID Desc"
End If
If RefreshTotalNum = "" Then
Set TotalRS = Server.CreateObject("Adodb.RecordSet")
TotalRS.Open "Select count(*) from KS_Article where Verific=1 and DelTF=0 And AddDate >= '" & StartDate & "' And AddDate <= '" & EndDate & "'", Conn, 1, 1
RefreshTotalNum = TotalRS(0)
TotalRS.Close
Set TotalRS = Nothing
End If
Else 'Access
If AlreadyRefreshByID = "" Then
RefreshSql = "Select top 1 * from KS_Article where Verific=1 and DelTF=0 And AddDate>= #" & StartDate & "# And AddDate <=#" & EndDate & "# Order By ID Desc"
Else
RefreshSql = "Select top 1 * from KS_Article where ID<" & AlreadyRefreshByID & " And Verific=1 and DelTF=0 And AddDate >= #" & StartDate & "# And AddDate <=#" & EndDate & "# Order By ID Desc"
End If
If RefreshTotalNum = "" Then
Set TotalRS = Server.CreateObject("Adodb.RecordSet")
TotalRS.Open "Select count(*) from KS_Article where Verific=1 and DelTF=0 And AddDate >= #" & StartDate & "# And AddDate <=#" & EndDate & "#", Conn, 1, 1
RefreshTotalNum = TotalRS(0)
TotalRS.Close
Set TotalRS = Nothing
End If
End If
Case "All"
If AlreadyRefreshByID = "" Then
RefreshSql = "Select top 1 * from KS_Article where Verific=1 and DelTF=0 Order By ID Desc"
Else
RefreshSql = "Select top 1 * from KS_Article where ID<" & AlreadyRefreshByID & " And Verific=1 and DelTF=0 Order By ID Desc"
End If
If RefreshTotalNum = "" Then
Set TotalRS = Server.CreateObject("Adodb.RecordSet")
TotalRS.Open "Select count(*) from KS_Article where Verific=1 and DelTF=0", Conn, 1, 1
RefreshTotalNum = TotalRS(0)
TotalRS.Close:Set TotalRS = Nothing
End If
Case "AllNoFrefresh"
If AlreadyRefreshByID = "" Then
RefreshSql = "Select top 1 * from KS_Article where RefreshTF=0 And Verific=1 and DelTF=0 Order By ID Desc"
Else
RefreshSql = "Select top 1 * from KS_Article where RefreshTF=0 And ID<" & AlreadyRefreshByID & " And Verific=1 and DelTF=0 Order By ID Desc"
End If
If RefreshTotalNum = "" Then
Set TotalRS = Server.CreateObject("Adodb.RecordSet")
TotalRS.Open "Select count(*) from KS_Article where RefreshTF=0 And Verific=1 and DelTF=0", Conn, 1, 1
RefreshTotalNum = TotalRS(0)
TotalRS.Close
Set TotalRS = Nothing
End If
Case "Folder"
FolderID = Trim(Request("FolderID"))
If RefreshTotalNum = "" And FolderID <> "" Then
Set TotalRS = Server.CreateObject("Adodb.RecordSet")
TotalRS.Open "Select count(*) from KS_Article where Verific=1 and DelTF=0 And Tid IN (" & FolderID & ")", Conn, 1, 1
RefreshTotalNum = TotalRS(0)
TotalRS.Close:Set TotalRS = Nothing
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -