首 页
网络学院
视频教程
资源下载
HOT
实例教程
图文教程
专题中心
学习社区
繁體中文
当前位置:
首页
>
图文教程
>
网络编程
>
ASP
> 两种小偷程序的比较
ASP
asp中利用数组实现数据库记录的批量录入方法
vbs(asp)的栈类
加密處理使密碼更安全[CFS編碼加密]
在asp中通过vbs类实现rsa加密与解密
披著羊皮的大野狼 - Session
简体中文编码对应器
len(),lift(),right()不能正常识别中文的解决方法
实现WEB中的@虚拟域名系统(原理篇)
巧用ASP生成PDF文件
二级域名原理以及程序,申请即可开通
无组件上传图片到数据库中,最完整解决方案
在ASP中使用SQL语句之1:SELECT 语句
在ASP中使用SQL语句之2:用WHERE子句设置查询条件
在ASP中使用SQL语句之3:LIKE、NOT LIKE和 BETWEEN
在ASP中使用SQL语句之4:联合语句
在ASP中使用SQL语句之5:开始执行
在ASP中使用SQL语句之6:存储查询
在ASP中使用SQL语句之7:ORDER BY
在ASP中使用SQL语句之8:随机数
在ASP中使用SQL语句之9:表单操作
No.
«
‹
109
110
111
112
›
»
技术文章搜索
关键字
ASP 中的 两种小偷程序的比较
出处:
互联网
整理:
软晨网(RuanChen.com)
发布:
2009-09-13
浏览: 269 ::
收藏到网摘: 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
登陆
还没注册?