📄 refreshfilesave.asp

📁 asp源码图片ASP整站
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_Cache.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../Refresh/RefreshFunction.asp" -->
<!--#include file="../Refresh/Cls_Refresh.asp" -->
<!--#include file="../Refresh/Function.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.50
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net  All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421 
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN：skoolls@hotmail.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn  演示站点：test.cooin.com 
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
Dim DBC,Conn,RecordConn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + server.mappath(RecordDataBaseConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set RecordConn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../Refresh/Function.asp" -->
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P070607") then Call ReturnError1()

Dim Begin_Time,End_Time,PromptInfo
Begin_Time = Request("FromDate")
End_Time = Request("TentDate")
If IsDate(End_Time) And IsDate(Begin_Time) Then
	If DateDiff("d",Begin_Time,End_Time)<0 Then
		Response.Write("<script>alert(""结束日期必须大于开始日期！"");history.back();</script>")
		Response.end 
	End If
Else
	Response.Write("<script>alert(""日期选择错误"");history.back();</script>")
	Response.end 
End If
'调用生成类生成
Dim RefreshObj,Return_Val

Dim DateDiffNum,Refresh_LoopVar,RefreshTime
if Begin_Time <> "" And End_Time<>"" then
	DateDiffNum = DateDiff("d",Begin_Time,End_Time)
else
	DateDiffNum = 0
end if
for Refresh_LoopVar = 0 to DateDiffNum
	RefreshTime = DateAdd("d",Refresh_LoopVar,Begin_Time)
	RefreshTime =Year(RefreshTime)&"-"&Right("0"&Month(RefreshTime),2)&"-"&Right("0"&Day(RefreshTime),2)
	if Refresh_LoopVar Mod 5 = 0 then PromptInfo = PromptInfo & "<br>"
	
	Set RefreshObj = New Class_Refresh
	RefreshObj.Refresh_Type		= "Record"
	RefreshObj.Templet			=Get_RootDir &"/"&TempletDir&"/File.htm"
	RefreshObj.SavePath			=Get_RootDir&"/"&RecordNewsListSavePath
	RefreshObj.SaveFile_ExtName	="htm"
	RefreshObj.SaveFileName		=RefreshTime
	RefreshObj.Begin_Time		=RefreshTime
	RefreshObj.End_Time			=RefreshTime
	Return_Val					=RefreshObj.Refresh	
	PromptInfo=PromptInfo+ "<a target=""_blank"" href=""" & Get_RootDir &"/"&RecordNewsListSavePath &"/"&RefreshTime & ".htm"">" & RefreshTime & "</a>&nbsp;&nbsp;&nbsp;&nbsp;"
	Set RefreshObj= Nothing
Next
%>
<!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="0" leftmargin="0" 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"><font color="#FF0000">返回信息:</font></div></td>
  </tr>
  <tr> 
    <td><div align="center"> 
        <% = PromptInfo %>
      </div></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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