 内码问题.用这段代码的吧,我已改得很精简了. 使用xmlhttp抓取地址并进次内容处理 function getbody(url) dim objxml on error resume next set objxml = createobject("microsoft.xmlhttp") with objxml .open "get", url, false, "", "" .send getbody = .responsebody end with getbody=bytestobstr(getbody,"gb2312") set objxml = nothing end function 使用adodb.stream处理二进制数据 function bytestobstr(strbody,codebase) dim objstream set objstream = server.createobject("adodb.stream") objstream.type = 1 objstream.mode =3 objstream.open objstream.write strbody objstream.position = 0 objstream.type = 2 objstream.charset = codebase bytestobstr = objstream.readtext objstream.close set objstream = nothing end function |
喜欢本文，那就收藏到： |
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus(); "添加到POCO网摘"){kind=logo}
Rss Feed
