由于FSO组件只能生成系统默认的文件编码格式，所以不能用于UTF-8编码网站的转静态处理。下面这个函数也是以前在网上找到的，我只是对函数进行了一些修改和完善。 在此感谢原作者无私奉献。函数调用说明：传输的变量 url 是指目标的网址，fn是要生成的文件名。

<%
Function getHTTPPage(url,fn)
 dim objXML
 set objXML=createobject("MSXML2.XMLHTTP")'定义
 objXML.open "GET",url,false'打开
 objXML.send()'发送
 If objXML.readystate<>4 then '判断文档是否已经解析完，以做客户端接受返回消息
 exit function
 End If
 getHTTPPage=BytesToBstr(fn,objXML.responseBody)'返回信息，同时用函数定义编码
 set objXML=nothing'关闭
 if err.number<>0 then err.Clear
End Function

Function BytesToBstr(fn,body)
 dim objstream
 set objstream = CreateObject("adodb.stream")
 objstream.Type =1 '二进制模式
 objstream.Mode =3
 objstream.Open
 objstream.Write body
 objstream.Position = 0
 objstream.Type = 2
 objstream.Charset = "utf-8"
 '设定编码为utf-8模式，如果网站的编码是gb2312请修改此项，否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码
 'BytesToBstr = objstream.ReadText
 objstream.SaveToFile server.MapPath(fn),2
 objstream.Close
 set objstream = nothing
end Function
%>

调用方法：response.write(getHTTPPage(url,filename))