最简单易学的生成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]