两种小偷程序的比较第1/2页

所属分类：网络编程 / ASP编程阅读数： 1274

收藏 0赞 0分享

Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False.Send GetURL = bytes2bstr(.responsebody)'对取得信息进行验证，如果信息长度小于100则说明截取失败if len(.responsebody)<100 thenresponse.write "获取远程文件 <a href="&url&" target=_blank>"&url&"</a> 失败。"response.endend ifEnd 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 objstream1set objstream1=createobject("adodb.stream")objstream1.type=2objstream1.openobjstream1.position=objstream1.sizeobjstream1.writetext bodyallobjstream1.savetofile filename,2objstream1.closeset objstream1=nothingend function'声明截取的格式，从Start开始截取，到Last为结束Function GetKey(HTML,Start,Last)filearray=split(HTML,Start)filearray2=split(filearray(1),Last)GetKey=filearray2(0)End Functionurl="http://www.86516.com"Html = GetURL(Url)savetofile html,"ce.htm"

[Ctrl+A 全选注:引入外部Js需再刷新一下页面才能执行]

12 下一页阅读全文

更多精彩内容其他人还在看

两种小偷程序的比较第1/2页

asp中去除内容HTML标签的三个function函数

chr(9)、chr(10)、chr(13)、chr(32)、chr(34)讲解

方便的大家admin及admin888 经过 md5加密后16位和32位代码

可用的ASP无重复数字随机函数, 数组实现, 并应用于随机显示记录集

asp动态级联菜单代码

ASP中经常使用的SQL语句与教程说明

实例分析之用ASP编程实现网络内容快速查找的代码

服务端 VBScript 与 JScript 几个相同特性的写法与示例

ASP 环境下 VBS 事件应用示例代码

asp 之上传漏洞终结篇

网络赚钱

站长故事

两种小偷程序的比较第1/2页

asp中去除内容HTML标签的三个function函数

chr(9)、chr(10)、chr(13)、chr(32)、chr(34)讲解

方便的大家admin及admin888 经过 md5加密后16位和32位代码

可用的ASP无重复数字随机函数, 数组实现, 并应用于随机显示记录集

asp动态级联菜单代码

ASP中经常使用的SQL语句与教程说明

实例分析之用ASP编程实现网络内容快速查找的代码

服务端 VBScript 与 JScript 几个相同特性的写法与示例

ASP 环境下 VBS 事件应用 示例代码

asp 之上传漏洞终结篇

网络赚钱

站长故事

ASP 环境下 VBS 事件应用示例代码