企業與個人網絡營銷一站式服務商
        網站建設 / 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  
        91在线中文字幕| 日韩精选无码| 亚洲男人第一无码aⅴ网站| 99久久超碰中文字幕伊人| 精品日韩亚洲AV无码一区二区三区| 无码AV天堂一区二区三区| 中文字幕精品无码一区二区三区 | 人妻丰满熟妇岳AV无码区HD| 欧美 亚洲 有码中文字幕| 中文字幕在线播放 | 中文字幕精品无码久久久久久3D日动漫| 亚洲AV无码精品色午夜果冻不卡| 中文字幕人成高清视频| 亚洲成A人片在线观看无码不卡| 亚洲精品无码日韩国产不卡?V| 亚洲一区AV无码少妇电影☆| 久久受www免费人成_看片中文| 亚洲中久无码永久在线观看同| 亚洲av综合avav中文| 色偷偷一区二区无码视频| 一二三四在线观看免费中文在线观看 | 人妻一区二区三区无码精品一区| 精品人妻无码区在线视频| 伊人久久一区二区三区无码| 亚洲va无码va在线va天堂| 亚洲日产无码中文字幕| 久久激情亚洲精品无码?V| 无码人妻精品一区二区三区夜夜嗨| 国产中文字幕在线观看| 人妻少妇看A偷人无码精品视频| 无码中文字幕av免费放dvd| 亚洲国产中文v高清在线观看 | 五月婷婷无码观看| 国产真人无码作爱视频免费| 国产激情无码一区二区三区 | 亚洲国产精品成人AV无码久久综合影院 | 国产高清无码视频| 精品无码国产一区二区三区AV| 亚洲人成无码网站| 久久久久亚洲AV无码观看| 中文字幕免费高清视频|