📄 refreshauto.asp

📁 asp源码图片ASP整站
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Cls_Cache.asp" -->
<!--#include file="Cls_Refresh.asp" -->
<!--#include file="RefreshFunction.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="Function.asp" -->
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if GoRefresh<>"Refreshs" then Call ReturnRefreshError()
Dim StrCLassID,PromptInfo
StrCLassID=Request.QueryString("ClassID")

If IsNumeric(StrCLassID) then
	If Request.QueryString("AutoClass")="1" then
		if JudgePopedomTF(Session("Name"),"P030300") then'生成栏目权限
			RefreshClass StrCLassID
		Else
			PromptInfo=PromptInfo&"你没有生成栏目的权限！<br>"
		End If
	Else
		PromptInfo=PromptInfo&"你没有设置自动生成栏目！<br>"
	End If
	If Request.QueryString("AutoIndex")="1" then
		If JudgePopedomTF(Session("Name"),"P030100") then '生成首页权限
			ReFreshIndex
		Else
			PromptInfo=PromptInfo & "你没有生成首页的权限！<br>"
		End If
	Else
		PromptInfo=PromptInfo&"你没有设置自动生成首页！<br>"
	End If
	PromptFunction
Else
	Response.end
End If


Function ReFreshIndex
	Dim f_RefreshObj,Return_Val
	Set f_RefreshObj = New Class_Refresh
	f_RefreshObj.Refresh_Type = "Index"
	f_RefreshObj.Refresh_ID 	= "0"
	f_RefreshObj.Parent_ID		= "0"
	f_RefreshObj.Templet		= Get_RootDir&"/"&TempletDir&"/index.htm"
	f_RefreshObj.SaveFileName	= "Index"
	f_RefreshObj.SaveFile_ExtName		=Trim(GetConfig(18))
	If Get_RootDir="" Then
		f_RefreshObj.SavePath				="/"
	Else
		f_RefreshObj.SavePath				=Get_RootDir
	End If
	Return_Val 	= f_RefreshObj.Refresh
	Set f_RefreshObj = Nothing
	PromptInfo = PromptInfo &"首页生成成功！"
End Function
'=============================
'生成栏目
Function RefreshClass(ReFresh_ID)
	Dim TempRs,f_RefreshObj,Return_Val,TempSql
	If ReFresh_ID<>"" Then
		TempSql="select ClassID,ParentID,ClassTemp,SaveFilePath,FileExtName,ClassEName,ClassCName From FS_NewsClass Where ClassID='"&ReFresh_ID&"' Order by ID Desc"
	Else
		PromptInfo = PromptInfo & "生成栏目发生错误！"
		Exit Function
	End If
	Set TempRs=Conn.Execute(TempSql)
	If Not TempRs.Eof Then
		Set f_RefreshObj = New Class_Refresh
		f_RefreshObj.Refresh_Type 	= "Class"
		f_RefreshObj.Refresh_ID 	= TempRs(0)
		f_RefreshObj.Parent_ID 		= TempRs(1)
		f_RefreshObj.Templet				=Get_RootDir&TempRs(2)
		f_RefreshObj.SaveFileName			="index"
		f_RefreshObj.SaveFile_ExtName		=TempRs(4)
		If TempRs(3)="/" Then
			f_RefreshObj.SavePath			=Get_RootDir&TempRs(3)&TempRs(5)
		Else
			f_RefreshObj.SavePath			=Get_RootDir&TempRs(3)&"/"&TempRs(5)
		End If
		Return_Val 	= f_RefreshObj.Refresh
		Set f_RefreshObj = Nothing
		TempRs.Close
	Else
		TempRs.Close
	End IF

	PromptInfo=PromptInfo&"栏目生成成功！<br>"
End Function
'===============================


Sub PromptFunction()
	Set Conn = Nothing
%>
<!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>
<link rel="stylesheet" href="../../../CSS/FS_css.css">
<body topmargin="2" leftmargin="2" oncontextmenu="return false;">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="28" class="ButtonListLeft">
<div align="center"><strong>生成管理</strong></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>

  <tr> 
    <td><div align="center"> 
        <% = PromptInfo %>
      </div></td>
  </tr>
</table>
</body>
</html>
<%
End Sub
%>
⌨️ 快捷键说明

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