📄 refreshone.asp

📁 asp源码图片ASP整站
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Cls_Cache.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="Cls_Refresh.asp" -->
<!--#include file="RefreshFunction.asp" -->
<!--#include file="Function.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<%
If Request.QueryString("Type")<>"" Then
	Dim Refresh_Type,ReFresh_Sql,ReFresh_ID,Old_ID,Err_Info,NewsNum,NewsIndex,NewsInClassCName
	Dim CountSql,i
	Dim Templet,SaveFileName,SaveFile_ExtName,SavePath
	ReFresh_ID		=Request.QueryString("ID")
	Refresh_Type	=Request.QueryString("Type")
	ReFresh_Sql		=Request.QueryString("Sql")
	ReFresh_Sql		=Replace(ReFresh_Sql,"F_he_F","And")
	ReFresh_Sql		=Replace(ReFresh_Sql,"F_dyh_F","'")
	If InStr(1,ReFresh_Sql,"%3B")<>0 Or InStr(1,ReFresh_Sql,";")<>0 Then
		Response.Write "非法调用"
		Response.End
	End If
	NewsIndex		=Request.QueryString("Index")
	NewsNum			=Request.QueryString("NewsNum")
	'==========================
	Dim TempRs,TempSql
	Dim ClassCache,ClassInfoArray
	'========================
	'调用生成类生成
	Dim RefreshObj,Return_Val
	If Refresh_Type="Index" then
		Set RefreshObj = New Class_Refresh
		Old_ID=""
		RefreshObj.Refresh_Type = Refresh_Type
		RefreshObj.Refresh_ID 	= "0"
		RefreshObj.Parent_ID	= "0"
		RefreshObj.Templet		=Get_RootDir&"/"&TempletDir&"/index.htm"
		RefreshObj.SaveFileName	="Index"
		RefreshObj.SaveFile_ExtName		=Trim(GetConfig(18))
		If Get_RootDir="" Then
			RefreshObj.SavePath				="/"
		Else
			RefreshObj.SavePath				=Get_RootDir
		End If
		Return_Val 	= RefreshObj.Refresh
		If Return_Val=False Then
			Err_Info	= "首页***首页***" & RefreshObj.Err_Info
		End If
		Set RefreshObj = Nothing
	ElseIf Refresh_Type="Class" Then
		For i = 1 to RefreshOnceNum
			If ReFresh_ID="" Then
				TempSql="select top 1 ID,ClassID,ParentID,ClassTemp,SaveFilePath,FileExtName,ClassEName,ClassCName From FS_NewsClass Where "&ReFresh_Sql&" Order by ID Desc"
			Else
				TempSql="select top 1 ID,ClassID,ParentID,ClassTemp,SaveFilePath,FileExtName,ClassEName,ClassCName From FS_NewsClass Where "&ReFresh_Sql&" And ID<"&ReFresh_ID&" Order by ID Desc"
			End If
			Set TempRs=Conn.Execute(TempSql)
			If Not TempRs.Eof Then
				Old_ID = TempRs(0)
				Set RefreshObj = New Class_Refresh
				RefreshObj.Refresh_Type = Refresh_Type
				RefreshObj.Refresh_ID 	= TempRs(1)
				RefreshObj.Parent_ID 	= TempRs(2)
				RefreshObj.Templet				=Get_RootDir&TempRs(3)
				RefreshObj.SaveFileName			="index"
				RefreshObj.SaveFile_ExtName		=TempRs(5)
				If TempRs(4)="/" Then
					RefreshObj.SavePath			=Get_RootDir&TempRs(4)&TempRs(6)
				Else
					RefreshObj.SavePath			=Get_RootDir&TempRs(4)&"/"&TempRs(6)
				End If
				Return_Val 	= RefreshObj.Refresh
				If Return_Val=False Then
					If Err_Info="" Then
						Err_Info	= "栏目***" & TempRs(7) & "***" & RefreshObj.Err_Info
					Else
						Err_Info	=Err_Info & "###栏目***" & TempRs(7) & "***" & RefreshObj.Err_Info
					End If
				End If
				Set RefreshObj = Nothing
				TempRs.Close
				ReFresh_ID=Old_ID
			Else
				TempRs.Close
				Exit For	'如查询不到数据，则认为再没有符合条件的记录，跳出循环
			End IF
		Next
	ElseIf Refresh_Type="News" Then
		For i = 1 to RefreshOnceNum
			If ReFresh_ID="" Then
				TempSql="select top 1 ID,NewsID,ClassID,NewsTemplet,FileName,FileExtName,Path,Title From FS_News Where "&ReFresh_Sql&" Order by ID Desc"
			Else
				TempSql="select top 1 ID,NewsID,ClassID,NewsTemplet,FileName,FileExtName,Path,Title From FS_News Where "&ReFresh_Sql&" And ID<"&ReFresh_ID&" Order by ID Desc"
			End If
			'Response.Write TempSql

			Set TempRs=Conn.Execute(TempSql)
			If Not TempRs.Eof Then
				Old_ID = TempRs(0)
				Set RefreshObj = New Class_Refresh
				RefreshObj.Refresh_Type = Refresh_Type
				RefreshObj.Refresh_ID 	= TempRs(1)
				RefreshObj.Parent_ID 	= TempRs(2)
				RefreshObj.Templet					=Get_RootDir&TempRs(3)
				RefreshObj.SaveFileName			=TempRs(4)
				RefreshObj.SaveFile_ExtName		=TempRs(5)
				
				Set ClassCache = New Cls_FsCache
				ClassCache.Name="ClassCache"
				ClassCache.ArrayIndex=0
				ClassCache.KnowValue =TempRs(2)
				ClassInfoArray = ClassCache.FindNeedRecord("")
				Dim TempNewsDatePath
				If GetConfig(21) = "1" Then
					TempNewsDatePath = TempRs(6)
				Else
					TempNewsDatePath =""
				End If
				If ClassInfoArray(13)="/" Then
					RefreshObj.SavePath	=Get_RootDir&ClassInfoArray(13)&ClassInfoArray(2)&TempNewsDatePath
				Else
					RefreshObj.SavePath	=Get_RootDir&ClassInfoArray(13)&"/"&ClassInfoArray(2)&TempNewsDatePath
				End If
				NewsInClassCName=ClassInfoArray(3)
				Set ClassCache = Nothing

				Return_Val 	= RefreshObj.Refresh
				If Return_Val=False Then
					If Err_Info="" Then
						Err_Info	= "新闻***栏目『"&NewsInClassCName&"』" & TempRs("Title") & "***" & RefreshObj.Err_Info
					Else
						Err_Info	=Err_Info & "###新闻***栏目『"&NewsInClassCName&"』" & TempRs("Title") & "***" & RefreshObj.Err_Info
					End If
				End If
				Set RefreshObj = Nothing
				TempRs.Close
				ReFresh_ID=Old_ID
				NewsIndex=NewsIndex+1
				If NewsIndex>=NewsNum Then Exit For
			Else
				TempRs.Close
				Exit For	'如查询不到数据，则认为再没有符合条件的记录，跳出循环
			End If
		Next
	ElseIf Refresh_Type="Download" Then
		For i = 1 to RefreshOnceNum
			If ReFresh_ID="" Then
				TempSql="select top 1 ID,DownloadID,ClassID,NewsTemplet,FileName,FileExtName,[Name] From FS_Download Where "&ReFresh_Sql&" Order by ID Desc"
			Else
				TempSql="select top 1 ID,DownloadID,ClassID,NewsTemplet,FileName,FileExtName,[Name] From FS_Download Where "&ReFresh_Sql&" And ID<"&ReFresh_ID&" Order by ID Desc"
			End If
			'Response.Write TempSql

			Set TempRs=Conn.Execute(TempSql)
			If Not TempRs.Eof Then
				Old_ID = TempRs(0)
				Set RefreshObj = New Class_Refresh
				RefreshObj.Refresh_Type = "DownLoad"
				RefreshObj.Refresh_ID 	= TempRs(1)
				RefreshObj.Parent_ID 	= TempRs(2)
				RefreshObj.Templet					=Get_RootDir&TempRs(3)
				RefreshObj.SaveFileName			=TempRs(4)
				RefreshObj.SaveFile_ExtName		=TempRs(5)
				
				Set ClassCache = New Cls_FsCache
				ClassCache.Name="ClassCache"
				ClassCache.ArrayIndex=0
				ClassCache.KnowValue =TempRs(2)
				ClassInfoArray = ClassCache.FindNeedRecord("")
				If ClassInfoArray(13)="/" Then
					RefreshObj.SavePath	=Get_RootDir&ClassInfoArray(13)&ClassInfoArray(2)
				Else
					RefreshObj.SavePath	=Get_RootDir&ClassInfoArray(13)&"/"&ClassInfoArray(2)
				End If
				NewsInClassCName=ClassInfoArray(3)
				Set ClassCache = Nothing

				Return_Val 	= RefreshObj.Refresh
				If Return_Val=False Then
					If Err_Info="" Then
						Err_Info	= "下载***栏目『"&NewsInClassCName&"』" & TempRs("Name") & "***" & RefreshObj.Err_Info
					Else
						Err_Info	=Err_Info & "###下载***栏目『"&NewsInClassCName&"』" & TempRs("Name") & "***" & RefreshObj.Err_Info
					End If
				End If
				Set RefreshObj = Nothing
				TempRs.Close
				ReFresh_ID=Old_ID
				NewsIndex=NewsIndex+1
				If NewsIndex>=NewsNum Then Exit For
			Else
				TempRs.Close
				Exit For	'如查询不到数据，则认为再没有符合条件的记录，跳出循环
			End If
		Next
	ElseIf Refresh_Type="Special" Then
		For i = 1 to RefreshOnceNum
			If ReFresh_ID="" Then
				TempSql="select top 1 ID,SpecialID,Templet,SaveFilePath,EName,FileExtName,CName From FS_Special Where "&ReFresh_Sql&" Order by ID Desc"
			Else
				TempSql="select top 1 ID,SpecialID,Templet,SaveFilePath,EName,FileExtName,CName From FS_Special Where "&ReFresh_Sql&" And ID<"&ReFresh_ID&" Order by ID Desc"
			End If
			Set TempRs=Conn.Execute(TempSql)
			If Not TempRs.Eof Then
				Old_ID = TempRs(0)
				Set RefreshObj = New Class_Refresh
				RefreshObj.Refresh_Type = Refresh_Type
				RefreshObj.Refresh_ID 	= TempRs(1)
				RefreshObj.Parent_ID 	= 0
				RefreshObj.Templet					=Get_RootDir&TempRs(2)
				RefreshObj.SaveFileName			="index"
				RefreshObj.SaveFile_ExtName		=TempRs(5)
				If TempRs(3)="/" Then
					RefreshObj.SavePath			=Get_RootDir&TempRs(3)&TempRs(4)
				Else
					RefreshObj.SavePath			=Get_RootDir&TempRs(3)&"/"&TempRs(4)
				End If
				Return_Val 	= RefreshObj.Refresh
				If Return_Val=False Then
					If Err_Info="" Then
						Err_Info	= "专题***" & TempRs(6) & "***" & RefreshObj.Err_Info
					Else
						Err_Info	=Err_Info & "###专题***" & TempRs(6) & "***" & RefreshObj.Err_Info
					End If
				End If
				Set RefreshObj = Nothing
				TempRs.Close
				ReFresh_ID=Old_ID
			Else
				TempRs.Close
				Exit For	'如查询不到数据，则认为再没有符合条件的记录，跳出循环
			End If
		Next
	End If
	Set TempRs		= Nothing
	Set RefreshObj 	= Nothing
	Set Conn		= Nothing
		%>
		<SCRIPT language="JavaScript">parent.setFlag('<% =Old_ID %>','<%=Server.HtmlEncode(Err_Info)%>');</SCRIPT>
		<%

End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>

</body>
</html>
💿 文件大小 7479 K
👤 上传用户 __catcher
📂 所属分类其他
🏷️ 相关标签

#asp #ASP #源码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -