最簡單易學的生成HTML

'獲得文件內容 
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"   '要讀取的頁面地址 
response.write "開始更新首頁..." 
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

'要存放的頁面地址 
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>更新完成！<

服務器租用/服務器托管中國五強！虛擬主機域名注冊頂級提供商！15年品質保障！--億恩科技[ENKJ.COM]