生成静态页面

<%     Set   xml   =   Server.CreateObject("Microsoft.XMLHTTP")     '把下面的地址替换成你的首页的文件地址,一定要用http://开头的绝对路径,不能写相对路径     xml.Open   "GET",   "http://www.baidu.com/index.asp",   False     xml.Send         BodyText=xml.ResponseBody     BodyText=BytesToBstr(BodyText,"gb2312")     Set   xml   =   Nothing     Dim   fso,   MyFile       Set   fso   =   CreateObject("Scripting.FileSystemObject")     Set   MyFile=   fso.CreateTextFile(server.MapPath("index.html"),   True)     MyFile.WriteLine(BodyText)     MyFile.Close             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     %>