📄 refreshspecialsave.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 RefreshSpecialSave
KSCls.Execute()
Set KSCls = Nothing
Class RefreshSpecialSave
Private KSCMS,KSRObj
Private RefreshFlag
Private ReturnInfo
Private StartRefreshTime
Private ChannelID
Private Types
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
Set KSRObj=New Refresh
End Sub
Function Execute()
Types = Request("Types") 'Index 生成专题首页操作 Special 生成专题页操作
RefreshFlag = Request("RefreshFlag") '取得是按何种类型刷新,如Folder发布指定的专题 All发布所有专题
'刷新时间
StartRefreshTime = Request("StartRefreshTime")
If StartRefreshTime = "" Then StartRefreshTime = Timer()
Select Case Types
Case "Special" '刷新专题页
Call RefreshSpecial
Case "Index" '刷新专题首页
Call RefreshSpecialIndex
Case "ChannelSpecial" '刷新频道专题列表页
Call RefreshChannelSpecial
End Select
End Function
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
'=============================================================================================
'以下为本模块相应处理的函数
'===============================================================================================
'生成专题首页的处理过程
Sub RefreshSpecialIndex()
Dim InstallDir, IndexFile, SaveFilePath
Dim SpecialDir, FileContent, Domain
Application(Cstr(KSCMS.SiteSN & "RefreshType")) = "SpecialIndex" '设置刷新类型，以便取得当前位置导航等
Application(Cstr(KSCMS.SiteSN & "RefreshFolderID")) = "0" '设置当前刷新目录ID 为"0" 以取得通用标签
Application.Contents.Remove ("CurrSpecialID") '清除当前专题ID
InstallDir = KSCMS.GetConfig("InstallDir")
SpecialDir = KSCMS.GetConfig("SpecialDir")
If Left(SpecialDir, 1) = "/" Or Left(SpecialDir, 1) = "\" Then SpecialDir = Right(SpecialDir, Len(SpecialDir) - 1)
IndexFile = KSCMS.GetConfig("FsoIndex")
SaveFilePath = InstallDir & SpecialDir
FileContent = KSRObj.LoadTemplate(4)
If FileContent = "" Then
ReturnInfo = "数据库中找不到专题首页模板"
Call Main
Response.End
Else
On Error Resume Next
FileContent = KSRObj.ReplaceGeneralLabelContent(FileContent) '替换通用标签 如{$GetWebmaster}
FileContent = KSRObj.ReplaceLableFlag(KSRObj.ReplaceAllLabel(FileContent)) '替换函数标签
FileContent = KSRObj.ReplaceRA(FileContent, "") '如果采用根相对路径,则替换绝对路径为根相对路径
If Err Then
ReturnInfo = Err.Description
Err.Clear
Call Main
Response.End
End If
Call KSCMS.CreateListFolder(SaveFilePath)
Call KSRObj.FSOSaveFile(KSRObj.Published() & FileContent, SaveFilePath & IndexFile)
If Err Then
ReturnInfo = Err.Description
Err.Clear
Call Main
Response.End
End If
Domain = KSCMS.GetDomain
ReturnInfo = "专题首页发布成功！总费时:<font color=red>" & Left((Timer() - StartRefreshTime), 4) & "</font>秒<br><br>"
ReturnInfo = ReturnInfo & "点击浏览: <a href=" & Domain & SpecialDir & IndexFile & " target=_blank>浏览专题首页</a><br><br>"
ReturnInfo = ReturnInfo & "<input name=""button1"" type=""button"" onclick=""javascript:location='RefreshSpecial.asp';"" class=""buttonstyle"" value="" 返 回 "">"
Call Main
End If
End Sub
'生成频道专题汇总页的处理过程
Sub RefreshChannelSpecial()
Dim FolderID, RefreshSql, RefreshTotalNum, RefreshRS, NewsTotalNum, NewsNo
RefreshSql = Trim(Request("RefreshSql"))
NewsNo = Request("NewsNo")
If NewsNo = "" Then NewsNo = 0
If RefreshSql = "" Then
Select Case RefreshFlag
Case "Folder"
FolderID = Trim(Request("FolderID"))
If FolderID <> "" Then
RefreshSql = "Select * from [KS_Class] where TN='0' And ChannelID=1 And DelTF=0 And ID IN (" & FolderID & ") Order By CreateDate Desc"
Else
RefreshSql = "Select * From [KS_Class] Where 1=0"
End If
Case "All"
RefreshSql = "Select * from [KS_Class] Where TN='0' And ChannelID=1 And DelTF=0"
Case Else
RefreshSql = ""
RefreshTotalNum = 0
End Select
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='RefreshSpecial.asp';"" class=""buttonstyle"" value="" 返 回 "">"
Set RefreshRS = Nothing
Call Main
Else
RefreshRS.Move NewsNo
If Not RefreshRS.EOF Then
Call KSRObj.RefreshChannelSpecials(RefreshRS) '调用频道专题刷新函数
NewsNo = NewsNo + 1
Response.Write ("<meta http-equiv=""refresh"" content=""0;url='RefreshSpecialSave.asp?Types=ChannelSpecial&StartRefreshTime=" & 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='RefreshSpecial.asp?ChannelID=1';"" class=""buttonstyle"" value="" 返 回 "">"
End If
Set RefreshRS = Nothing
Call Main
End If
Set RefreshRS = Nothing
Else
ReturnInfo = "对不起，您没有选择要发布的频道专题汇总页 <font color=""red""><a href=""RefreshSpecial.asp"">返回</a></font>"
Call Main
End If
End Sub
'生成专题页的处理过程
Sub RefreshSpecial()
Dim FolderID, RefreshSql, RefreshTotalNum, RefreshRS, NewsTotalNum, NewsNo
RefreshSql = Trim(Request("RefreshSql"))
NewsNo = Request("NewsNo")
If NewsNo = "" Then NewsNo = 0
If RefreshSql = "" Then
Select Case RefreshFlag
Case "New"
Dim TotalNum
TotalNum = Request.Form("TotalNum")
If TotalNum = "" Then TotalNum = 20
RefreshSql = "Select Top " & TotalNum & " * From KS_Special Order By SpecialAddDate Desc"
Case "Folder"
FolderID = Trim(Request("FolderID"))
If FolderID <> "" Then
RefreshSql = "Select * from [KS_Special] where FolderID IN (" & FolderID & ") Order By SpecialAddDate Desc"
Else
RefreshSql = "Select * From [KS_Special] Where 1=0"
End If
Case "All"
RefreshSql = "Select * from [KS_Special]"
Case Else
RefreshSql = ""
RefreshTotalNum = 0
End Select
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='RefreshSpecial.asp';"" class=""buttonstyle"" value="" 返 回 "">"
Set RefreshRS = Nothing
Call Main
Else
RefreshRS.Move NewsNo
If Not RefreshRS.EOF Then
Call KSRObj.RefreshSpecials(RefreshRS) '调用专题刷新函数
NewsNo = NewsNo + 1
Response.Write ("<meta http-equiv=""refresh"" content=""0;url='RefreshSpecialSave.asp?Types=Special&StartRefreshTime=" & 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='RefreshSpecial.asp?ChannelID=1';"" class=""buttonstyle"" value="" 返 回 "">"
End If
Set RefreshRS = Nothing
Call Main
End If
Set RefreshRS = Nothing
Else
ReturnInfo = "对不起，您没有选择要发布的专题 <font color=""red""><a href=""RefreshSpecial.asp"">返回</a></font>"
Call Main
End If
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -