企業與個人網絡營銷一站式服務商
        網站建設 / SEO優化排名 / 小程序開發 / OA
        0731-88571521
        136-3748-2004
        asp定時生成靜態HTML的代碼
        信息來源:斌網網絡   發布時間:2010-6-15   瀏覽:
        復制代碼 代碼如下:
        <% 
        ’判斷是否要生成新的HTML 
        if Application("cache_asptohtml_date")="" then 
        Application.Lock 
        Application("cache_asptohtml_date")=now() 
        Application.Unlock 
        Call aspTohtml 
        Response.Redirect("index.html") 
        end if 
        if DateDiff("s", Application("cache_asptohtml_date"),Now)> 100 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 
        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,"/")) 
        end function 

        sub aspTohtml 
        ’---------------------------------------------------------- 
        ’使用XMLHTTP生成靜態首頁的代碼 
        ’Curl 為你的首頁地址,確保你的空間支持FSO 
        ’----------------------------------------------------------- 
        dim read,Curl,content 
        Curl=getpath&"home.asp" 
        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 
        Function getHTTPPage(url) 
        dim http 
        set http=Server.createobject("Microsoft.XMLHTTP") 
        Http.open "GET",url,false 
        Http.send() 
        if Http.readystate<>4 then 
        exit function 
        end if 
        getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") 
        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 
        objstream.Close 
        set objstream = nothing 
        End Function 
        %> 

        ASP定時生成靜態頁(HTML)2 
        復制代碼 代碼如下:
        <% 
        set fs=server.createobject("scripting.filesystemobject") 
        file=server.mappath("time.txt") 
        set txt=fs.opentextfile(file,1,true) 
        if not txt.atendofstream then 
        times=txt.ReadLine 
        Else 
        response.write "<br /><!--有沒有發現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 
        end If 


        If datediff("s",times,NOW()) > 3600 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 /><!-- 已經過去"&datediff("s",times,NOW())&"秒!-->" 

        End If 
        %> 

        詳細出處參考:http://www.jb51.net/article/23955.htm


        上一條: 做網站設計師的福音:國內20個設計素材好網站
        下一條: 服務器添加隱藏賬號和檢查刪除隱藏賬號的方法
        案例鑒賞
        多年的網站建設經驗,斌網網絡不斷提升技術設計服務水平,迎合搜索引擎優化規則
        法律法規
        多年的網站建設經驗,網至普不斷提升技術設計服務水平,迎合搜索引擎優化規則
        長沙私人做網站    長沙做網站    深圳網站建設    株洲做網站    東莞做網站    南京防腐木    湖南大拇指養豬設備    株洲做網站    
        版權所有 © 長沙市天心區斌網網絡技術服務部    湘公網安備 43010302000270號  統一社會信用代碼:92430103MA4LAMB24R  網站ICP備案號:湘ICP備13006070號-2  
        亚洲欧美日韩中文播放| 日韩精品无码一区二区三区四区| 狠狠躁夜夜躁无码中文字幕 | 青春草无码精品视频在线观| 日本精品久久久久中文字幕| 岛国无码av不卡一区二区| 国产亚洲精品无码专区| 最近中文国语字幕在线播放视频 | 久久久久久综合一区中文字幕| 久久AV高潮AV无码AV| 无码任你躁久久久久久| 最近免费字幕中文大全| 亚洲精品无码久久久| 日韩精品无码人妻一区二区三区| 超清纯白嫩大学生无码网站| 日韩免费码中文在线观看| 18无码粉嫩小泬无套在线观看| 久久亚洲2019中文字幕| 精品人妻系列无码人妻免费视频| 亚洲欧美日韩中文字幕一区二区三区| 精品人无码一区二区三区| 欧美日韩中文字幕久久久不卡| 2019亚洲午夜无码天堂| 亚洲精品无码成人AAA片| 久久精品中文騷妇女内射| 成人无码午夜在线观看| 亚洲日韩中文字幕日韩在线| 日韩一本之道一区中文字幕| 免费无码又爽又刺激高潮视频| 乱人伦中文字幕在线看| 亚洲AⅤ永久无码精品AA| 无码国产精品一区二区免费vr| 亚洲中文字幕丝袜制服一区| 亚洲 日韩经典 中文字幕| 高清无码视频直接看| 无码av免费网站| 亚洲精品无码专区久久久| 久久亚洲精品无码aⅴ大香| 波多野结衣中文字幕久久| 亚洲AV无码一区二区一二区 | 日韩精品无码一区二区三区四区|