首 页
网络学院
视频教程
资源下载
HOT
实例教程
图文教程
专题中心
学习社区
繁體中文
当前位置:
首页
>
图文教程
>
网络编程
>
ASP
> 两种小偷程序的比较
ASP
JS复制特定内容到粘贴板
ASP+Access数据库安全设置方法小结
ADSI+ASP添加IP到IIS禁止访问列表中
ASP Google的translate API代码
最小asp后门程序
asp xml 缓存类
asp 过滤尖括号内所有内容的正则代码
ASP去掉字符串头尾连续回车和空格的Function
ASP IE地址栏参数的判断
SQL 注入式攻击的终极防范
ASP也使用ORM,给ASP上所有的SQL注入画上句号
判断Session的过期时间 采用JavaScript实时显示剩余多少秒
asp 动态生成rss(不成生xml文件)代码
ASP XML制作菜单管理程序
asp之自动闭合HTML/ubb标签函数附简单注释
asp 读取文件和保存文件函数代码
asp 随机字符串函数
asp form 表单验证函数
ASP 循环导入导出数据处理 不使用缓存
asp 数据库连接函数代码
No.
«
‹
81
82
83
84
›
»
技术文章搜索
关键字
ASP 中的 两种小偷程序的比较
出处:
互联网
整理:
软晨网(RuanChen.com)
发布:
2009-09-13
浏览: 254 ::
收藏到网摘: 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
登陆
还没注册?