企業(yè)與個人網(wǎng)絡(luò)營銷一站式服務(wù)商
        網(wǎng)站建設(shè) / SEO優(yōu)化排名 / 小程序開發(fā) / OA
        0731-88571521
        136-3748-2004
        asp定時生成靜態(tài)HTML的代碼
        信息來源:斌網(wǎng)網(wǎng)絡(luò)   發(fā)布時間:2010-6-15   瀏覽:
        復(fù)制代碼 代碼如下:
        <% 
        ’判斷是否要生成新的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生成靜態(tài)首頁的代碼 
        ’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定時生成靜態(tài)頁(HTML)2 
        復(fù)制代碼 代碼如下:
        <% 
        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 /><!--有沒有發(fā)現(xiàn)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 ’//上次更新到現(xiàn)在的時間 大于 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 /><!-- 已經(jīng)過去"&datediff("s",times,NOW())&"秒!-->" 

        End If 
        %> 

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


        上一條: 做網(wǎng)站設(shè)計師的福音:國內(nèi)20個設(shè)計素材好網(wǎng)站
        下一條: 服務(wù)器添加隱藏賬號和檢查刪除隱藏賬號的方法
        案例鑒賞
        多年的網(wǎng)站建設(shè)經(jīng)驗,斌網(wǎng)網(wǎng)絡(luò)不斷提升技術(shù)設(shè)計服務(wù)水平,迎合搜索引擎優(yōu)化規(guī)則
        法律法規(guī)
        多年的網(wǎng)站建設(shè)經(jīng)驗,網(wǎng)至普不斷提升技術(shù)設(shè)計服務(wù)水平,迎合搜索引擎優(yōu)化規(guī)則
        長沙私人做網(wǎng)站    長沙做網(wǎng)站    深圳網(wǎng)站建設(shè)    株洲做網(wǎng)站    東莞做網(wǎng)站    湖南大拇指養(yǎng)豬設(shè)備    株洲做網(wǎng)站    
        版權(quán)所有 © 長沙市天心區(qū)斌網(wǎng)網(wǎng)絡(luò)技術(shù)服務(wù)部    湘公網(wǎng)安備 43010302000270號  統(tǒng)一社會信用代碼:92430103MA4LAMB24R  網(wǎng)站ICP備案號:湘ICP備13006070號-2  
        无套内射在线无码播放| 在线欧美天码中文字幕| 亚洲中文久久精品无码ww16| 自拍中文精品无码| 999久久久无码国产精品| 一本加勒比HEZYO无码资源网| AV色欲无码人妻中文字幕| 国产精品ⅴ无码大片在线看| 国模无码人体一区二区| 日韩中文字幕在线视频| 中文字幕在线亚洲精品| 国产午夜无码视频在线观看| 亚洲AV无码国产丝袜在线观看| 中文字幕精品无码久久久久久3D日动漫 | 91中文在线视频| 亚洲精品国产日韩无码AV永久免费网| 亚洲AV无码专区亚洲AV伊甸园| 区三区激情福利综合中文字幕在线一区亚洲视频1 | 国产精品99久久久精品无码| 人妻中文字系列无码专区| 亚洲国产综合无码一区二区二三区| 久久精品中文无码资源站| 亚洲精品色午夜无码专区日韩| 精品深夜AV无码一区二区老年| 亚洲美日韩Av中文字幕无码久久久妻妇 | 自慰无码一区二区三区| 最近免费中文字幕中文高清| 久久精品?ⅴ无码中文字幕| 亚洲久本草在线中文字幕| 天堂最新版中文网| 最近最新高清免费中文字幕| 最近免费中文字幕大全免费| 精品久久久久久无码中文字幕 | 中文字幕欧美日韩| 惠民福利中文字幕人妻无码乱精品| √天堂中文官网8在线| 久久精品?ⅴ无码中文字幕| 中文字幕手机在线观看| 成人A片产无码免费视频在线观看| 精品人妻无码区在线视频| 亚洲VA中文字幕无码一二三区 |