asp定时生成静态HTML的代码

爱被打了一巴掌 2022-12-13 04:40 97阅读 0赞

<%@Language="vbscript" Codepage="65001"   %> 	
     <%
     ' 思路,定义一个时间戳的变量,假设为a
    	' 1, 没有a这个变量
    	' 1.1 定义一个时间戳变量a
    	' 1.2 生成index.html页面
    	' 1.2.1 获取你想要显示的模板页面的地址
    	' 1.2.2 结果 获取模板页面的内容
    	' 步骤 总结,将模板页面以数据流的形式或者说一个字符串的形式赋值给一个变量
    	' 1,通过 Microsoft.XMLHTTP发送一个请求,获取内容http.responseBody
    	' 2,将获取的内容创建一个数据流,以utf-8的格式写入,并且返回
    	' 1.2.3 创建一个新的页面 ,将获取的模板页面的内容写进去
    	' 
    	' 
    	' 1.3 跳转index.html
    	' 2, 有a这个变量
    	' 2.1 间隔时间在10s之内
    	' 直接跳转index.html
    	' 2.2 间隔时间不在10s之内
    	' 重复 1 步骤
    			
      
      
    '判断是否要生成新的HTML , 是否存在-如果存在相差时间是否在100s
    if Application("cache_asptohtml_date")="" then 
    	' 如果 Application("cache_asptohtml_date") 变量不存在
    	Application.Lock 	'Lock 方法阻止其他用户修改 Application 对象中的变量 (用来确保同一时间只有一位用户可修改 Application 变量)。
    	Application("cache_asptohtml_date")=now() 
    	Application.Unlock 'Unlock 方法使其他用户能够修改存储在 Application 对象中的变量 (在它被使用 Lock 方法锁定之后)。
    	Call aspTohtml   
    	Response.Redirect("index.html") '直接跳转到index.html
    end if 
    	' 如果 Application("cache_asptohtml_date") 变量存储的时间于现在的时间相差100s
    	if DateDiff("s", Application("cache_asptohtml_date"),Now)> 1 then '比较上次更新时间与当前时间相差多少秒 
    		Application.Lock 
    		Application("cache_asptohtml_date")=now() 
    		Application.UnLock 
    		Call aspTohtml 
    		Response.Redirect("index.html") 
    	Else 
    		Response.Redirect("index.html") 
    End if 
    
    '获取当前目录! 
    function getpath 
    	if Request.ServerVariables("SERVER_PORT")<>"80" then ' 如果当前端口不是80
    		UserUrl = "http://"&Request.ServerVariables("SERVER_NAME")& ":" & Request.ServerVariables("SERVER_PORT")& Request.ServerVariables("URL") 
    	else 
    		UserUrl = "http://"&Request.ServerVariables("SERVER_NAME")& Request.ServerVariables("URL") 
    	end if 
    	getpath=left(UserUrl,InstrRev(UserUrl,"/")) ' 从字符串的左侧返回 找到结尾为 / 的字符第一次出现的位置InstrRev(UserUrl,"/")=下标 数目的字符。
    end function 
    
     
     
    
    sub aspTohtml 
    	'---------------------------------------------------------- 
    	'使用XMLHTTP生成静态首页的代码 
    	'Curl 为你的想要生成的页面
    	'----------------------------------------------------------- 
    	dim read,Curl,content 
    	Curl=getpath&"model.html" ' http://localhost:8081/model.html
    	read=getHTTPPage(Curl) 
    	if read<>"" then 
    		content=read 
    		Set Fso = Server.CreateObject("Scripting.FileSystemObject") 
    		Filen=Server.MapPath("index.html") 
    		Set Site_Config=FSO.CreateTextFile(Filen,true, False) 
    		Site_Config.Write content 
    		Site_Config.Close 
    		Set Fso = Nothing 
    	end if 
    End sub 
    
    '在asp页面发送一个url请求，获该页面的内容
    Function getHTTPPage(url) 
    	dim http 
    	set http=Server.createobject("Microsoft.XMLHTTP") 
    	http.open "GET",url,false '想url发送一个请求,和ajax类式,但是这里False表示同步
    	http.send() 
    	if http.readystate<>4 then 
    		exit function ' 如果请求状态不为4 退出这个函数
    	end if 
    	Response.Write http.responseBody
    	
    	getHTTPPage= bytesToBSTR(http.responseBody,"UTF-8")  ' 创建一个文件 -> 将http.responseBody以utf-8的格式写入
    	set http=nothing 
    	if err.number<>0 then err.Clear '如果有错误 呢么就把这个错误清除
    End Function 
    
    '生成文件
    Function BytesToBstr(body,Cset) 
    	dim objstream 
    	set objstream = Server.CreateObject("adodb.stream") 
    	objstream.Type = 1 
    	objstream.Mode =3 
    	objstream.Open 
    	objstream.Write body '将指定的数据装入对像中。
    	objstream.Position = 0 
    	objstream.Type = 2 
    	objstream.Charset = Cset 
    	BytesToBstr = objstream.ReadText 'Object.ReadText(NumChars) 指定的要读取的找度，不指定则读取全部。
    	
    	objstream.Close 
    	set objstream = nothing 
    End Function 
    %>

第二种方式

<%@Language="vbscript" Codepage="65001"   %> 	
     
     
    <% 
    ' 思路
    ' 1,判断time.txt是否有
    ' 1.1 是 
    ' 读取time.txt当前行(写入的时间)
    ' 
    ' 1.2 否
    ' 创建 time.txt,写入当前时间
    ' 2,时间相差大于多少
    ' 2.1 是
    ' 生成indnx.html 页面,将相应的字符串写入
    ' 重新生成time.txt覆盖,同 1.2
    ' 
    ' 2.2 否
    ' 提示距离更新还有多少
    
    
    set fs=server.createobject("scripting.filesystemobject") 
    file=server.mappath("time.txt") 
    set txt=fs.opentextfile(file,1,true) '法打开指定的文件，并返回可用来访问此文件的 TextStream 对象。
    if not txt.atendofstream then ' 如果文件指针位于 TextStream 文件的末尾，AtEndOfStream 属性返回 True，否则返回 False。注意：该属性仅工作于以只读方式打开的 TextStream 对象。
    		times=txt.ReadLine '读取当前行
    	Else 
    		response.write "<br />" 
    		HtmlPage = "time.txt" '//生成的HTML文件名 
    		Template = NOW() 
    		Set FSO = Server.CreateObject ("Scripting.FileSystemObject") 
    		Set FileOut = FSO.CreateTextFile(Server.MapPath (HtmlPage))  'MapPath 方法可把指定的路径影射到服务器上相应的物理路径上。
    		FileOut.WriteLine Template 
    		FileOut.Close 
    		Set FSO = Nothing 
    end If 
    
    
    If datediff("s",times,NOW()) > 30 Then '//上次更新到现在的时间 大于 3600秒 则 更新 
    		response.write "<br />" 
    
    		code = "这里是需要生成的html代大叔大婶大所码" '//如何得到代码的方式有很多 
    
    		'//用FSO生成HTML页面 
    		HtmlPage = "index.html" '//生成的HTML文件名 
    		Template = code 
    		Set FSO = Server.CreateObject ("Scripting.FileSystemObject") 
    		Set FileOut = FSO.CreateTextFile(Server.MapPath (HtmlPage)) 
    		FileOut.WriteLine Template 
    		FileOut.Close 
    		Set FSO = Nothing 
    
    		'//用FSO生成time.txt文件 
    		HtmlPage = "time.txt" '//生成的HTML文件名 
    		Template = NOW() 
    		Set FSO = Server.CreateObject ("Scripting.FileSystemObject") 
    		Set FileOut = FSO.CreateTextFile(Server.MapPath (HtmlPage)) 
    		FileOut.WriteLine Template 
    		FileOut.Close 
    		Set FSO = Nothing 
    
    	Else 
    		response.write "<br />" 
    End If 
    %>