首 页
网络学院
视频教程
资源下载
HOT
实例教程
图文教程
专题中心
学习社区
繁體中文
当前位置:
首页
>
图文教程
>
网络编程
>
ASP
> 两种小偷程序的比较
ASP
IIS访问ASP页面时报错The requested resource is in use.的解决办法
错误类型:Provider (0x80004005)未指定的错误 的一个处理方法
关于asp+access的安全问题分析
把RS.GetRows看得更清楚
asp下UTF-8页面乱码的解决方法
解决使用良精企业建站7.0未注册问题
在ASP中连接MySQL数据库的方法,最好的通过ODBC方法
flash与js通讯方法
ASP操作Excel相关技术总结
解决用Access数据库建站维护不便的问题的方法
ASP实现GB2312字符与区位码的相互转换的代码
对于ASP编码问题的深入研究与最终解决方案
ASP生成UTF-8编码的代码
删除A表中在B表中不存在的数据
动网防恶意广告比较有效的办法附asp代码
asp磁盘缓存技术使用的代码
网页语言编码及asp乱码问题解决方案
FSO遍历目录实现全站插马的代码
关于无限分级(ASP+数据库+JS)的实现代码
如何写ASP入库小偷程序
No.
«
‹
60
61
62
63
›
»
技术文章搜索
关键字
ASP 中的 两种小偷程序的比较
出处:
互联网
整理:
软晨网(RuanChen.com)
发布:
2009-09-13
浏览: 160 ::
收藏到网摘: 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 "获取远程文件
"&url&"
失败。" 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
登陆
还没注册?