最簡(jiǎn)單易學(xué)的生成HTML

'獲得文件內(nèi)容 
dim Retrieval 
Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
With Retrieval 
.Open "Get", url, False ', "", "" 
.Send 
GetPage = BytesToBstr(.ResponseBody) 
End With 
Set Retrieval = Nothing 
End Function

Function BytesToBstr(body) 
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 = "GB2312" 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function

on error resume next 
Url="http://www.xiugege.com"   '要讀取的頁(yè)面地址 
response.write "開(kāi)始更新首頁(yè)..." 
wstr = GetPage(Url)

'response.write(wstr) 
Set fs=Server.CreateObject("Scripting.FileSystemObject")

'if not MyFile.FolderExists(server.MapPath("/html/")) then 
'MyFile.CreateFolder(server.MapPath("/html/"))' 
'end if

'要存放的頁(yè)面地址 
dizhi=server.MapPath("index.htm") 
If (fs.FileExists(dizhi)) Then 
fs.DeleteFile(dizhi) 
End If

Set CrFi=fs.CreateTextFile(dizhi) 
Crfi.Writeline(wstr) 
set CrFi=nothing 
set fs=nothing 
response.write "...<font color=red>更新完成！<

服務(wù)器租用/服務(wù)器托管中國(guó)五強(qiáng)！虛擬主機(jī)域名注冊(cè)頂級(jí)提供商！15年品質(zhì)保障！--億恩科技[ENKJ.COM]