gethttppage(url) 如何用UTF

 我来答
誓言送粉382
2013-11-29 · TA获得超过154个赞
知道答主
回答量:129
采纳率:60%
帮助的人:61.8万
展开全部
http.open "GET",url,false http.send() if http.readystate<>4 then exit functionend ifgetHTTPPage=BytesToBstr(http.responsebody,"utf-8") call writetotextfile("../static_view/"&strFolder&"/"&year(rs("ntime"))&month(rs("ntime"))&day(rs("ntime"))&rs("id")&".html",getHTTPPage,"utf-8") set http=nothing if err.number<>0 thenerr.Clearend ifend function function writetotextfile(fileurl,str,cset) set stm=server.CreateObject("adodb.stream")stm.type=2stm.mode=3stm.charset=csetstm.openstm.writetext str stm.savetofile server.MapPath(fileurl),2 stm.flushstm.closeset stm=nothing end functionFunction 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.ReadTextobjstream.Close
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式