当前位置: 首页 > 图文教程 > 网络编程 > ASP > 两种小偷程序的比较

技术文章搜索

关键字

ASP 中的 两种小偷程序的比较

---

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-13   浏览: 108 ::
收藏到网摘: n/a

ASP如何获取真实IP地址 使用xmlHttp结合ASP实现网页的异步调用

点击运行可以看到效果:Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False .Send GetURL = bytes2bstr(.responsebody) '对取得信息进行验证，如果信息长度小于100则说明截取失败 if len(.responsebody)<100 then response.write "获取远程文件 <a href="&url&" target=_blank>"&url&"</a> 失败。" response.end end if End With Set Retrieval = Nothing End Function ' 二进制转字符串，否则会出现乱码的！ function bytes2bstr(vin) strreturn = "" for i = 1 to lenb(vin) thischarcode = ascb(midb(vin,i,1)) if thischarcode < &h80 then strreturn = strreturn & chr(thischarcode) else nextcharcode = ascb(midb(vin,i+1,1)) strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode)) i = i + 1 end if next bytes2bstr = strreturn end function function savetofile(bodyall,filename) dim objstream1 set objstream1=createobject("adodb.stream") objstream1.type=2 objstream1.open objstream1.position=objstream1.size objstream1.writetext bodyall objstream1.savetofile filename,2 objstream1.close set objstream1=nothing end function '声明截取的格式，从Start开始截取，到Last为结束 Function GetKey(HTML,Start,Last) filearray=split(HTML,Start) filearray2=split(filearray(1),Last) GetKey=filearray2(0) End Function url="http://www.86516.com" Html = GetURL(Url) savetofile html,"ce.htm"
[Ctrl+A 全选 提示:你可先修改部分代码,再按运行]

点击运行可以看到效果:function gethttppage(url) dim http set http=createobject("MICROSOFT.XMLHTTP") http.open "GET",url,false http.send() if http.readystate<>4 then exit function end if gethttppage=bytestostr(http.responseBody,"GB2312") if err.number<>0 then err.clear end function function bytestostr(body,cset) 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=cset bytestostr=objstream.readtext objstream.close set objstream=nothing end function function savetofile(bodyall,filename) dim objstream1 set objstream1=createobject("adodb.stream") objstream1.type=2 objstream1.open objstream1.position=objstream1.size objstream1.writetext bodyall objstream1.savetofile filename,2 objstream1.close set objstream1=nothing end function dim url,http url="http://www.86516.com" html=gethttppage(url) 'msgbox html savefilename="index1.htm" savetofile html,savefilename
[Ctrl+A 全选 提示:你可先修改部分代码,再按运行]

ASP如何获取真实IP地址 使用xmlHttp结合ASP实现网页的异步调用

评论 (0) All

登陆 还没注册？

设为首页 | 加入收藏 | 关于我们 | 联系我们 | 广告服务 | 网站地图 | 友情链接 | 在线帮助 | 免责声明 Sitemap W3school

如果您觉得本站不错，别忘了告诉您的同学和同事哟 ^_^

欢迎各网站转载我们的原创，转载时请注明出处。

All copyright is reserved by 软晨网（RuanChen.com）