大家好,asp生成静态页面,生成的是unicode编码,但我需要生成的是utf-8,代码如下
Function createhtml(url,filename,path)
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
path1=server.mappath(path)&"\"&filename
Set MyTextFile=MyFileObject.CreateTextFile(path1,True,true)
strurl=url
strTmp = GetHTTPPage(trim(strurl))
MyTextFile.WriteLine(strTmp)
MytextFile.Close
Set MyFileObject=nothing
response.Write " <script language=javascript>alert('生成"&filename&"成功！');window.opener.location.reload();window.close(); </script>"
End function
Function getHTTPPage(url)
On Error Resume Next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate <>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
If Err.number <>0 then
Response.Write " <p align='center'> <font color='red'> <b>服务器获取文件内容出错 </b> </font> </p>"
Err.Clear
End If
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Serv
