关于xmlhttp,可以参考http://www.xmlhttp.cn/中的详细介绍。其中提到:XmlHttp是什么?最通用的定义为:XmlHttp是一套可以在Javascript、VbScript、Jscript等脚本语言中通过http协议传送或接收XML及其他数据的一套API。XmlHttp最大的用处是可以更新网页的部分内容而不需要刷新整个页面。来自MSDN的解释:XmlHttp提供客户端同http服务器通讯的协议。客户端可以通过XmlHttp对象(MSXML2.XMLHTTP.3.0) 向...
一小段代码展示asp中小偷的核心部分
<% Dim SenFe_Code Dim Http : Set Http = Server.CreateObject("Msxml2.ServerXMLHTTP") With Http .Open "POST","网址",False .SetRequestHeader "Referer","页面来源" .SetRequestHeader "Cookie","C...
ASP获取网站Alexa排名数值的方法
sina blog上的文章.网络上有很多文章介绍如何自动抓取网站的Alexa排名,但是仔细一看发现抓取到的数据(Alexa排名 数值)被Alexa加入了很多干扰元素,如果只是要将数据(Alexa排名数值)显示在页面倒没有什么问题 ,若是要对数据进行处理比如将两个网站的排名数值进行比较或者将网站排名数值存入数据库供日后调 用,则要对抓取到的数据进行适当的处理。 以下是本人结合其他网友提供的代码,对抓取到的数据进行处理后获得干干净净的数值的方法。核心 函数代码如下: 说明:有点网友已经通过其他方式实...
一个完整的pagerank查询小偷带示例
本程序三个页面,其中的远程获取类非常不错.这个也是学习asp小偷程序的好例子.页面演示见:...
ASP保存远程图片到本地 同时取得第一张图片并创建缩略图
程序代码 <% '================================================== '函数名:CheckDir2 '作 用:检查文件夹是否存在 '参 数:FolderPath ------文件夹地址 '================================================== Function CheckDir2(byval FolderPath) dim fso folderpath=Server.MapPath("...
asp检测远程文件是否存在
'########### '检测远程文件是否存在 '########### function CheckURL(byval A_strUrl) set XMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") XMLHTTP.open "HEAD",A_strUrl,false XMLHTTP.send() CheckURL=(XMLHTTP.status=200) set XMLHTTP = nothing e...
asp利用 xmlhttp对象 分块上传文件
编写思路:把本地文件在客户端通过base64编码以后发送目的地. 测试过程中,上传文件过大,导致超时不成功. 后来经过改善.把编码分段发送.测试20M成功 编写目的:在传统的解决方案里面,一次一次选取上传可以.但是在碰到把数据库里文件路径读出来,并把这些文件上传到一个地方的时候就比较麻烦. 如果得到路径一个一个去找到用ftp当然也是可以的,但每次找这些文件我看都会比较费时。这里编写这个主要就是为了通过数据库里的文件路径取得文件.把文件一次批量上传到一个地方. 其主要目的还是为了锻炼一下自己. 解...
ASP断点续传
闲来无事,弄了个ASP续传的程序,不是很满意,就当抛块砖了,有玉的尽管砸过来吧 <% url="http://127.0.0.1/test/20051117173156951.swf" '测试用的地址 if url="" then die("URL不能为空.") '敢唬我,空url可不行' t=instrrev(url,"/") '获得最后一个"/"的位置' if t=0 or t=len(...
获取来源页面的pagerank值
本程序,利用link.kuww.com的数据获得页面的pagerank值。是asp中使用xmlhttp的一个很好的例子。<% Dim Str,r,p Function GetPage(url,url2) dim SendData,Retrieval Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "post", url, False SendData=&qu...
