艾恩ASP学习BLOG文章列表 http://dev.mo.cn/mydiary.asp 艾恩ASP学习Blog,免费提供各种ASP学习资源，组件、源代码、学习手册、技术文章... Anlige By dev.mo.cn zh-CN copyright 2008 dev.mo.cn 鲁ICP备08010580 2012-5-19 8:23:19 jquery实现select的美化 zhanghuiguoanlige@126.com http://dev.mo.cn/article_323.html 2012-1-16 15:38:45 http://dev.mo.cn/article_323.html
    ȫ
<html>
 　 <head>
 　 　　<script src="jquery-1.2.js"></script>
 　 　　<script>
 　 　　　　$(document).ready(
 　 　　　　　　function () {
 　 　　　　　　　　$("#select").click (
 　 　　　　　　　　　　function () {
 　 　　　　　　　　　　　　var original =this;
 　 　　　　　　　　　　　　$(original).blur();
 　 　　　　　　　　　　　　$(original).css("visibility", "hidden");
 　 　　　　　　　　　　　　var value = $(this).attr("value");
 　 　　　　　　　　　　　　var topOffset = 0;
 　 　　　　　　　　　　　　var alternate = document.createElement("div");
 　 　　　　　　　　　　　　$(document.body).append(alternate);
 　 　　　　　　　　　　　　{
 　 　　　　　　　　　　　　　　var alternate_select = document.createElement("div");
 　 　　　　　　　　　　　　　　$(alternate).append(alternate_select);
 　 　　　　　　　　　　　　　　$(alternate_select).css("position", "absolute");
 　 　　　　　　　　　　　　　　$(alternate_select).css("width", original.offsetWidth + "px");
 　 　　　　　　　　　　　　　　$(alternate_select).css("height", original.offsetHeight + "px");
 　 　　　　　　　　　　　　　　$(alternate_select).css("top", "0px");
 　 　　　　　　　　　　　　　　$(alternate_select).css("left", "0px");
 　 　　　　　　　　　　　　　　$(alternate_select).css("cursor", "pointer");
 　 　　　　　　　　　　　　　　$(alternate_select).text(
 　 　　　　　　　　　　　　　　　　$($(original).children("option").filter(
 　 　　　　　　　　　　　　　　　　　　　　function (index) {
 　 　　　　　　　　　　　　　　　　　　　　　　return $(original).attr("value") === value;
 　 　　　　　　　　　　　　　　　　　　　　}
 　 　　　　　　　　　　　　　　　　　　)[0]
 　 　　　　　　　　　　　　　　　　).text()
 　 　　　　　　　　　　　　　　);
 　 　　　　　　　　　　　　　　$(alternate_select).click(
 　 　　　　　　　　　　　　　　　　function () {
 　 　　　　　　　　　　　　　　　　　　$(original).css("visibility", "inherit");
 　 　　　　　　　　　　　　　　　　　　document.body.removeChild(alternate);
 　 　　　　　　　　　　　　　　　　}
 　 　　　　　　　　　　　　　　);
 　 　　　　　　　　　　　　　　$(alternate_select).hover(
 　 　　　　　　　　　　　　　　　　function (event) {
 　 　　　　　　　　　　　　　　　　　　$(this).css("background-color", "blue");
 　 　　　　　　　　　　　　　　　　　　$(this).css("color", "white");
 　 　　　　　　　　　　　　　　　　},
 　 　　　　　　　　　　　　　　　　function (event) {
 　 　　　　　　　　　　　　　　　　　　$(this).css("background-color", "inherit");
 　 　　　　　　　　　　　　　　　　　　$(this).css("color", "inherit");
 　 　　　　　　　　　　　　　　　　}
 　 　　　　　　　　　　　　　　);
 　 　　　　　　　　　　　　}
 　 　　　　　　　　　　　　topOffset += alternate_select.offsetHeight;
 　 　　　　　　　　　　　　{
 　 　　　　　　　　　　　　　　$(original).children("option").each(
 　 　　　　　　　　　　　　　　　　function (index, element) {
 　 　　　　　　　　　　　　　　　　　　var alternate_option = document.createElement("div");
 　 　　　　　　　　　　　　　　　　　　$(alternate).append(alternate_option);
 　 　　　　　　　　　　　　　　　　　　$(alternate_option).css("position", "absolute");
 　 　　　　　　　　　　　　　　　　　　$(alternate_option).css("width", element.offsetWidth + "px");
 　 　　　　　　　　　　　　　　　　　　$(alternate_option).css("height", element.offsetHeight + "px");
 　 　　　　　　　　　　　　　　　　　　$(alternate_option).css("top", topOffset + "px");
 　 　　　　　　　　　　　　　　　　　　$(alternate_option).css("left", "0px");
 　 　　　　　　　　　　　　　　　　　　$(alternate_option).css("cursor", "pointer");
 　 　　　　　　　　　　　　　　　　　　$(alternate_option).text($(element).text());
 　 　　　　　　　　　　　　　　　　　　var option_value = $(element).attr("value");
 　 　　　　　　　　　　　　　　　　　　if (value === option_value) {
 　 　　　　　　　　　　　　　　　　　　　　$(alternate_option).css("font-weight", "bold");
 　 　　　　　　　　　　　　　　　　　　}
 　 　　　　　　　　　　　　　　　　　　$(alternate_option).click(
 　 　　　　　　　　　　　　　　　　　　　　function () {
 　 　　　　　　　　　　　　　　　　　　　　　　$(original).attr("value", option_value);
 　 　　　　　　　　　　　　　　　　　　　　　　$(original).css("visibility", "inherit");
 　 　　　　　　　　　　　　　　　　　　　　　　document.body.removeChild(alternate);
 　 　　　　　　　　　　　　　　　　　　　　}
 　 　　　　　　　　　　　　　　　　　　);
 　 　　　　　　　　　　　　　　　　　　$(alternate_option).hover(
 　 　　　　　　　　　　　　　　　　　　　　function () {
 　 　　　　　　　　　　　　　　　　　　　　　　$(this).css("background-color", "blue");
 　 　　　　　　　　　　　　　　　　　　　　　　$(this).css("color", "white");
 　 　　　　　　　　　　　　　　　　　　　　},
 　 　　　　　　　　　　　　　　　　　　　　function () {
 　 　　　　　　　　　　　　　　　　　　　　　　$(this).css("background-color", "inherit");
 　 　　　　　　　　　　　　　　　　　　　　　　$(this).css("color", "inherit");
 　 　　　　　　　　　　　　　　　　　　　　}
 　 　　　　　　　　　　　　　　　　　　);
 　 　　　　　　　　　　　　　　　　　　topOffset += alternate_option.offsetHeight;
 　 　　　　　　　　　　　　　　　　}
 　 　　　　　　　　　　　　　　);
 　 　　　　　　　　　　　　}
 　 　　　　　　　　　　　　$(alternate).css("position", "absolute");
 　 　　　　　　　　　　　　$(alternate).css("top", original.offsetTop + "px");
 　 　　　　　　　　　　　　$(alternate).css("left", original.offsetLeft + "px");
 　 　　　　　　　　　　　　$(alternate).css("width", alternate_select.offsetWidth + "px");
 　 　　　　　　　　　　　　$(alternate).css("height", topOffset + "px");
 　 　　　　　　　　　　　　$(alternate).css("background-image", "url(http://s.goumin.com/imgs/logo.gif)");
 　 　　　　　　　　　　}
 　 　　　　　　　　);
 　 　　　　　　}
 　 　　　　);
 　 　　</script>
 　 </head>
 　 <body>
 　 　　<select id="select">
 　 　　　　<option value="1">option 1</option>
 　 　　　　<option value="2">option 2</option>
 　 　　　　<option value="3">option 3</option>
 　 　　　　<option value="4">option 4</option>
 　 　　</select>
 　 </body>
</html>
]]> AJAX 好久没发东西了，发布个Ajax类，类似jQuery的 zhanghuiguoanlige@126.com http://dev.mo.cn/article_314.html 2011-6-10 22:30:02 http://dev.mo.cn/article_314.html http://dev.mo.cn/source_200.html
其实这个东西写了很久了，自己一直在使用，我们公司的网站http://www.eb.com.cn的Ajax全部是用的这个东西
压缩包里面包含了详细的说明和示例（里面有一个简洁的省市三级联动菜单哦）。
调用方法类似jQuery，可以绑定form表单提交
如果你只使用jQuery的Ajax功能的话，可以抛弃jQuery了

Ajax Class of Aien
Author : Aien
homepage : http://dev.mo.cn
email : i@ruboy.com
QQ : 1034555083 
Thanks for using this class. You can visit my homepage for help .
You can use this class and don't need to change any code .

]]> AJAX Ajax跨域代理访问网络资源 zhanghuiguoanlige@126.com http://dev.mo.cn/article_295.html 2010-11-18 17:55:32 http://dev.mo.cn/article_295.html /upfiles/20101118175349810.rar

解决Ajax跨域访问报“没有权限”的错误。
    ȫ

<!--#include file="smart.asp"-->
<%
Response.charset="utf-8"
dim url,method,data,charset
url =Request.Form("targeturl")
method =Request.Form("method")
data =Request.Form("data")
charset = Request.Form("charset")
if charset = "" then charset = "GB2312"
response.Write SmartHttp(url,method,data).send().gettext(charset)
set myhttp = nothing
%>
]]> AJAX 超小型ajax实现 zhanghuiguoanlige@126.com http://dev.mo.cn/article_285.html 2010-6-16 20:34:40 http://dev.mo.cn/article_285.html SmartAjax源代码下载

    ȫ
// Aien,i@ruboy.com,1034555083
// Ajax(a,b,c,d,e,f,g);
// 参数说明：a-请求方法；b-请求的地址；c-请求的数据，a为post时有效；d-回调函数，函数里面的this引用是xmlhttp对象；e-是否异步，除非设置为false，否则为异步调用；f,g-登录用户名和密码
function Ajax(a,b,c,d,e,f,g){
        a = a.toUpperCase();
        if(e===false){e=false;}else{e = true;}
        var obj = Ajax.Ajax_GetObj();
        if(obj){
                if(f){
                        obj.open(a,b,e,f,g);        
                }else{
                        obj.open(a,b,e);        
                }        
                if(a.toUpperCase()=="POST"){
                        obj.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");        
                }
                obj.onreadystatechange=function(){if(typeof d != "function"){return;}d.apply(obj,[a,b,c,d,e,f,g]);};
                obj.send(c);
        }                
}
Ajax.Ajax_GetObj = function(){
        var b = null;
        if (window.ActiveXObject) {  //for ie
                var httplist = ["MSXML2.XMLHttp.5.0","MSXML2.XMLHttp.4.0","MSXML2.XMLHttp.3.0","MSXML2.XMLHttp","Microsoft.XMLHttp"];
                for(var i = httplist.length -1;i >= 0;i--){
                        try{
                                b = new ActiveXObject(httplist[ i]);
                                return b;
                        }catch(ex){}
                }
        }else if (window.XMLHttpRequest) {  //for other
                b = new XMLHttpRequest(); 
        }
        return b;                
}
]]> AJAX 艾恩AJAX类，支持完整调用，表单提交和简洁调用 zhanghuiguoanlige@126.com http://dev.mo.cn/article_266.html 2009-11-19 11:26:19 http://dev.mo.cn/article_266.html http://dev.mo.cn/aiencode/ajax/
下载地址：http://dev.mo.cn/source_194.html

Ajax类库使用说明
完整调用统一调用入口：Ajax(setting); 关于参数setting,请详细参考下面的说明。

简洁调用入口：Ajax.get(url,data,fn); 以及 Ajax.post(url,data,fn);

Ajax的配置:
var settings = { 
    asc: true,              //true-异步传输；false-同步传输 
    form: formObj,    //表单对象,如果设置本项，则会用ajax提交表单，忽略设置的method,url和data属性 
    url: "",                //若不设置form属性，则本项为必选值
    dataType: "text",     //可取值text,xml,json
    method: "get",     //可取post,get 不区分大小写。设置form属性后，本项会被忽略。 
    data: "",             //具体格式请看示例程序。设置form属性后，本项会被忽略。
    timeout: 10000,    //设置超时时间，默认为10秒（即10000毫秒）
    succeed: function(a,b,c){return true}, 
    error: function(a,b,c){return true}, 
    ontimeout: function(a,b,c){return true} 
};]]> AJAX 哈，写了个迅雷漫画频道的采集程序，分享出来 zhanghuiguoanlige@126.com http://dev.mo.cn/article_214.html 2009-5-13 10:57:23 http://dev.mo.cn/article_214.html
  本程序功能:
  1.提供多种检索方式，可以按字母，类型，状态，地区，颜色以及页码进行检索
  2.各种检索方式都提供缓存机制，第一次加载可能会比较慢，第二次加载会比较快
  3.既可以在线浏览，也可以采集到本地收藏
  4.直接在右边点击链接是在线浏览；选中后，点击下面的"批量采集"，会自动保存到本地
  5.程序根据漫画名和卷名称或话名称自动建立文件夹
  
  声明: 本程序为作者原创，请保留页面底部信息；
漫画来源为 迅雷漫画频道，请勿将采集结果用于非法用途；否则，一切法律后果自负。


  注意: 因为是采集程序，如果某个类别下的漫画项目过多，加载时间可能会过长，请耐心等待；
加载速度取决于服务器和迅雷之间的通讯状况
可以到这里来下载：http://dev.mo.cn/source_185.html
  QQ:1034555083/Email:zhanghuiguoanlige@126.com]]> AJAX 艾恩AJAX无刷新上传再次进行优化 zhanghuiguoanlige@126.com http://dev.mo.cn/article_197.html 2009-3-26 14:34:50 http://dev.mo.cn/article_197.html 通过设置控件的属性target,url,savePath来分别设置目标iframe,上传处理页面以及文件保存目录。

同时，ajax不再使用jquery,而使用自己原创Ajax函数，从而减小代码量；

/*======================================
下面语句使上传控件显示在上面ID为uploadContenter的Div标签
提交URL为upload.asp保存目录为upload
表单提交到上面name属性为AnUploader的iframe里面；
========================================*/

var AjaxUp=new AjaxProcesser("uploadContenter");

//设置提交到的iframe名称
AjaxUp.target="AnUploader";  

//上传处理页面
AjaxUp.url="upload.asp"; 

//保存目录
AjaxUp.savePath="upload";


  几个示例程序的下载地址(示例使用的最后版本均为V9.2.09):
  1.   Ajax无刷新上传示例程序下载
  2.   艾恩ASP无组件上传类(An-Upload)V9.2.09
  3.   艾恩ASP文件上传组件v9.2.09
  4.   艾恩Ajax无刷新文件上传(带进度条,无组件)
  5.   艾恩Ajax无刷新文件上传(带进度条,组件版,低CPU使用)


如果有任何疑问或业务上的需要，请联系本人。本人简历 http://dev.mo.cn/resume]]> AJAX 使用Ajax进行用户名有效性验证 zhanghuiguoanlige@126.com http://dev.mo.cn/article_182.html 2009-1-15 10:27:32 http://dev.mo.cn/article_182.html
一、用户请求页
   新建一个页面reg.html,如下代码

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
    <title>Ajax范例---用户名有效性验证</title>
    <script type="text/javascript" src="custom.js"></script>
</head>
<body>
<h3>Ajax范例---用户名有效性验证</h3>

输入用户名:
<input tye="text" id="username" name="username" />
<input type="button" value="验证用户名" onclick="return test();" /><br /><br />
<span id="result"></span>
</body>
</html>


二、Javascript发送请求代码
新建文件custom.js(Javascript代码) 代码如下

/*
Ajax范例
By Anlige
zhanghuiguoanlige@126.com
*/
//自定义函数,获取标签对象
    function $(id){
        return document.getElementById(id);
    }
//创建组件
    function createObject(){
        var Request=null;
        if (window.ActiveXObject) {
            Request= new ActiveXObject("Microsoft.XMLHTTP");
        }else if (window.XMLHttpRequest) {
            Request= new XMLHttpRequest();
            if (Request.overrideMimeType) {//设置MiME 类别
                Request.overrideMimeType("text/xml"); 
            } 
        }
        return Request;
    }
    
    function test(){
        var username=$("username").value; //获取表单值
        if(username==""){alert("请输入用户名");return false};
        $("result").innerText="验证中...";
        
        //创建一个组件
        var myRequest=createObject();
        
  //直接附加到url后面的数据总是以get方式提交,地址里面的rnd参数仅仅是为了防止缓存(有人习惯用日期来防止缓存)
        var url="test.asp?rnd=" + Math.random();
        

        //要post方式提交的数据,作为send方法的参数
        var data="username=" + username; 
        
        //调用open方法: 使用POST方式提交;  提交到url;  true代表启用异步.
        myRequest.open("Post",url,true); 
        
        //Post方式提交必须加这句,并且要在调用post方法后才能加,否则会提示"未知错误"
        myRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");  
        
        //设置响应函数
        myRequest.onreadystatechange =function(){
            if(myRequest.readyState==4){   //如果为说明数据发送成功,并返回
                if(myRequest.status==200){  //如果为,说明正常状态;404为未找到页面;500为服务器错误
                    var msg=myRequest.responseText;
                    if(msg=="no"){
                        $("result").innerText="本用户名未被使用,您可以注册！";
                    }else{
                        $("result").innerText="本用户名已被占用,请选择其他用户名！";
                    }
                }
            }
        };
        
        //调用send方法发送数据
        myRequest.send(data);
    }


三、后台验证代码
新建文件test.asp(后台验证代码),本文件编码为utf-8(用记事本打开--另存为utf-8格式--覆盖原文件即可)

<%@ LANGUAGE="VBScript"%> 
<% 
response.charset="utf-8"   '字符编码为utf-8
dim names,username,isHas
names="admin|anlige|admin888"   '模拟一个数据库
names=split(names,"|")
username=request.form("username")  '因为Ajax是post的数据，这里用form集合
isHas="no"
for i=0 to ubound(names)
    if names(i)=username then
        isHas="yes"
        exit for
    end if
next
response.write isHas  '输出验证结果
%> 

    这样，模拟用户注册过程中的"用户名有效性验证"就完成了；
    测试方法:浏览器中打开reg.html,输入一个用户名进行验证,如果输入 admin,anlige,admin888三个中的任何一个都会提示已经被注册。改实例修改test.asp后完全可以移植到原用户验证系统]]> AJAX AJAX开发简略 zhanghuiguoanlige@126.com http://dev.mo.cn/article_174.html 2009-1-2 18:54:40 http://dev.mo.cn/article_174.html 等待刷新，而你的屏幕内容是一片空白，而你在屏幕前苦苦的等待浏览器的响应。开发人员为了克服这种尴尬的局面，不得不
在每一个可能需要长时间等待响应的页面上增加一个 DIV，告诉用户“系统正在处理您的请求，请稍候……”。 

   现在，有一种越来越流行越热的“老”技术，可以彻底改变这种窘迫的局面。那就是AJAX。如今，随着 Gmail、Google-maps的应用和各种浏览器的支持，AJAX正逐渐吸引全世界的眼球。 

一、AJAX定义 

   AJAX（Asynchronous JavaScript and XML）其实是多种技术的综合，包括 Javascript、XHTML和 CSS、DOM、XML 和
XSTL、XMLHttpRequest。
   其中： 使用 XHTML和 CSS标准化呈现，使用 DOM 实现动态显示和交互，使用 XML 和 XSTL进行数据交换与处理，使
用 XMLHttpRequest 对象进行异步数据读取，使用 Javascript 绑定和处理所有数据。 在 AJAX 提出之前，业界对于上述技术都只是单独的使用，没有综合使用，也是由于之前的技术需求所决定的。随着应用的广泛，AJAX 也成为香饽饽了。 

二、现状与需要解决的问题 

  传统的 Web 应用采用同步交互过程，这种情况下，用户首先向 HTTP 服务器触发一个行为或请求的呼求。反过来，服务器执行某些任务，再向发出请求的用户返回一个 HTML页面。这是一种不连贯的用户体验，服务器在处理请求的时候，用户多数
时间处于等待的状态，屏幕内容也是一片空白。自从采用超文本作为 Web 传输和呈现之后，我们都是采用这么一套传输方式。当负载比较小的时候，这并不会体现出有什么不妥。可是当负载比较大，响应时间要很长，1 分钟、2 分钟……数分钟的
时候，这种等待就不可忍受了。严重的，超过响应时间，服务器干脆告诉你页面不可用。另外，某些时候，我只是想改变页面
一小部分的数据，那为什么我必须重新加载整个页面呢？！当软件设计越来越讲究人性化的时候，这么糟糕的用户体验简直与
这种原则背道而驰。为什么老是要让用户等待服务器取数据呢？至少，我们应该减少用户等待的时间。现在，除了程序设计、
编码优化和服务器调优之外，还可以采用 AJAX。 

三、为什么使用 AJAX 

   与传统的 Web 应用不同，AJAX 采用异步交互过程。AJAX 在用户与服务器之间引入一个中间媒介，从而消除了网络交互过程中的处理—等待—处理—等待缺点。用户的浏览器在执行任务时即装载了 AJAX 引擎。AJAX 引擎用 JavaScript 语言编写，
通常藏在一个隐藏的框架中。它负责编译用户界面及与服务器之间的交互。AJAX 引擎允许用户与应用软件之间的交互过程异步
进行， 独立于用户与网络服务器间的交流。 现在， 可以用Javascript调用AJAX引擎来代替产生一个 HTTP的用户动作，内存中的数据编辑、页面导航、数据校验这些不需要重新载入整个页面的需求可以交给 AJAX 来执行。 

 
使用 AJAX，可以为 ISP、开发人员、终端用户带来可见的便捷： 
  1.减轻服务器的负担。AJAX 的原则是“按需取数据” ，可以最大程度的减少冗余请求，和响应对服务器造成的负担。 
  2.无刷新更新页面，减少用户心理和实际的等待时间。特别的，当要读取大量的数据的时候，不用像 Reload 那样出现白屏
的情况，AJAX 使用 XMLHTTP 对象发送请求并得到服务器响应，在不重新载入整个页面的情况下用 Javascript 操作 DOM 最终更新页面。所以在读取数据的过程中，用户所面对的不是白屏，是原来的页面内容（也可以加一个Loading 的提示框让用户
知道处于读取数据过程） ，只有当数据接收完毕之后才更新相应部分的内容。这种更新是瞬间的，用户几乎感觉不到。 
  3.带来更好的用户体验。 
  4.可以把以前一些服务器负担的工作转嫁到客户端，利用客户端闲置的能力来处理，减轻服务器和带宽的负担，节约空间和宽带租用成本。 
  5.可以调用外部数据。 
  6.基于标准化的并被广泛支持的技术，不需要下载插件或者小程序。 
  7.进一步促进页面呈现和数据的分离。 

四、谁在使用 AJAX 

   在应用 AJAX 开发上面， Google 当仁不让是表率。 Orkut、 Gmail、 Google Groups、 Google Maps、Google Suggest 
都应用了这项技术。Amazon 的 A9.com 搜索引擎也采用了类似的技术。
 
  微软也在积极开发更为完善的AJAX应用： 它即将推出代号为Atlas的AJAX工具。 Atlas的功能超越了 AJAX 本身，包括整合 Visual Studio 的调试功能。另外，新的 ASP.NET 控件将使客户端控件与服务器端代码的捆绑更为简便。Atlas 客户脚本框架（Atlas Clent Script Framework）也使与网页及相关项目的交互更为便利。但 Visual Studio 2005 中并不包含此项功能。
 
微软最近宣布 Atlas 客户脚本框架将包含如下内容（详细资料请访问 Atlas 计划网站） ： 
*  一个可扩展的核心框架，它添加了 JavaScript功能：如生命同时期管理、继承管理、多点传送处理器和界面管理。 
*  一个常见功能的基本类库，有丰富的字符串处理、计时器和运行任务。 
*  为 HTML附加动态行为的用户界面框架。 
*  一组用来简化服务器连通和网络访问的网络堆栈。 
*  一组丰富的用户界面开发控件，如：自动完成的文本框、动画和拖放。 
*  处理浏览器脚本行为差异的浏览器兼容层面。 
典型的，微软将 AJAX 技术应用在 MSN Space 上面。很多人一直都对 MS Space 服务感到很奇怪，当提交回复评论以后，浏览器会暂时停顿一下，然后在无刷新的情况下把我提交的评论显示出来。这个就是应用了 AJAX 的效果。试想，如果添加一个评论就要重新刷新整个页面，那可真费事。 
目前， AJAX 应用最普遍的领域是 GIS-Map 方面。 GIS的区域搜索强调快速响应， AJAX的特点正好符合这种需求。 

五、用 AJAX 改进你的设计 

AJAX 虽然可以实现无刷新更新页面内容，但是也不是什么地方都可以用，主要应用在交互较多、频繁读数据、数据分类良好
的 Web 应用中。现在，让我们举两个例子，看看如何用 AJAX 改进你的设计。 

例子1：数据校验
 
  在输入 form 表单内容的时候，我们通常需要确保数据的唯一性。因此，常常在页面上提供“唯一性校验”按钮，让用户点
击，打开一个校验小窗口；或者等 form 提交到服务器端，由服务器判断后在返回相应的校验信息。前者，window.open 操作本来就是比较耗费资源的，通常由 window. showModalDialog 代替，即使这样也要弹出一个对话框；后者，需要把整个页面
提交到服务器并由服务器判断校验，这个过程不仅时间长而且加重了服务器负担。而使用 AJAX，这个校验请求可以由 
XMLHttpRequest 对象发出，整个过程不需要弹出新窗口，也不需要将整个页面提交到服务器，快速又不加重服务器负担。
 
例子2：按需取数据—级联菜单 

  以前，为了避免每次对菜单的操作引起的重载页面，不采用每次调用后台的方式，而是一次性将级联菜单的所有数据全部读
取出来并写入数组，然后根据用户的操作用 JavaScript来控制它的子集项目的呈现，这样虽然解决了操作响应速度、不重载页
面以及避免向服务器频繁发送请求的问题，但是如果用户不对菜单进行操作或只对菜单中的一部分进行操作的话，那读取的数
据中的一部分就会成为冗余数据而浪费用户的资源，特别是在菜单结构复杂、数据量大的情况下（比如菜单有很多级、每一级
菜又有上百个项目），这种弊端就更为突出。  
  现在应用 AJAX，在初始化页面时我们只读出它的第一级的所有数据并显示，在用户操作一级菜单其中一项时，会通过 Ajax
向后台请求当前一级项目所属的二级子菜单的所有数据，如果再继续请求已经呈现的二级菜单中的一项时，再向后面请求所操作二级菜单项对应的所有三级菜单的所有数据，以此类推……这样，用什么就取什么、用多少就取多少，就不会有数据的冗余
和浪费，减少了数据下载总量，而且更新页面时不用重载全部内容，只更新需要更新的那部分即可，相对于后台处理并重载的方式缩短了用户等待时间，也把对资源的浪费降到最低。 

例子3：读取外部数据 

   AJAX 可以调用外部数据，因此，可以对一些开发的数据比如 XML 文档、RSS 文档进行二次加工，实现数据整合或者开发
应用程序。 

六、AJAX的缺陷 

AJAX 不是完美的技术。使用 AJAX，它的一些缺陷不得不权衡一下：
 
  1.AJAX 大量使用了 Javascript 和 AJAX 引擎，而这个取决于浏览器的支持。 IE5.0 及以上、Mozilla1.0、NetScape7 及以
上版本才支持，Mozilla 虽然也支持 AJAX，但是提供XMLHttpRequest 的方式不一样。所以，使用 AJAX 的程序必须测试针对各个浏览器的兼容性。 
  2.AJAX 更新页面内容的时候并没有刷新整个页面，因此，网页的后退功能是失效的；有的用户还经常搞不清楚现在的数据是旧的还是已经更新过的。这个就需要在明显位置提醒用户“数据已更新”。 
  3.对流媒体的支持没有 FLASH、Java Applet 好。 
  4.一些手持设备（如手机、PDA等）现在还不能很好的支持 Ajax。
 
  本文非发表人原创,原作者信息如下
作者  网名  联络 
柯自聪  eamoi   educhina  eamoi@163.com（技术） zcke0728@hotmail.com（版权）
]]> AJAX ASP判断文件地址是否有效 zhanghuiguoanlige@126.com http://dev.mo.cn/article_140.html 2008-10-2 10:17:08 http://dev.mo.cn/article_140.html
    ȫ
<%

Response.Write("<head><style><!--span{ font-size: 9pt }--></style></head>")

On Error Resume Next

Dim thisurl,thistext

thisurl=Request("thisurl") '定义文件地址(非Html格式文档)!

if thisurl="" then

Response.Write("<span>请先输入文件地址!</span>")

Response.End

End if
Function objxmlhttp(xmlurl)

On Error Resume Next

Set objxml = CreateObject("Microsoft.XMLHTTP")

objxml.Open "get",xmlurl,false

objxml.setrequestheader "content-type","application/x-www-form-urlencoded"

objxml.send

objxmlhttp = objxml.responsebody

if Err then

Err.Clear

Response.Write("<span>建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"！</span>")

Response.End

End if

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
thisurl2=Split(thisurl,",")

For Each ii In thisurl2

thistext=bytes2BSTR(objxmlhttp(ii))

if InStr(thistext,"<html>")<>0 then

Response.Write("<span>"& ii &" <b>×</b></span><br>")

Else

Response.Write("<span>"& ii &" <b>√</b></span><br>")

End if

Next
if Err then

Err.Clear

Response.Write("<span>碰到意外!;错误原因:"&Err.Description&"！</span>")

Response.End

End if

%>
]]> AJAX Asp利用xmlhttp组件抓取页面 zhanghuiguoanlige@126.com http://dev.mo.cn/article_123.html 2008-9-5 19:11:59 http://dev.mo.cn/article_123.html 和大家分享了~~ 
    ȫ

<%
on error resume next
time1=timer
dim reg,vUrl,VBody,temp1,temp2,code,time1,time2,title
vUrl=trim(request.form("url"))
reg="\<meta.+ charset= {0,}([^\""| |\>|\/]*).+\/{0,1}\>"
if vUrl<>"" then
  VBody=GetResStr(trim(request.form("url")))
  temp1=VBody:temp2=VBody
  code=GetCode(temp1,reg)
  title=GetCode(temp2,"\<title\>(.*)\<\/title\>")
else
  vUrl="http://"
end if
time2=timer
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>抓取页面</title>
<%if err.number<>0 then%>
<script language="javascript">alert('发生错误!\n您输入的URL为\"<%=vUrl%>\"\n请检查您输入的URL是否合法!');</script>
<%end if%>
</head>
<body style="font-size:12px;margin:20px 0 0 20px;">
<form name="geturl" action="test.asp" method="post">
请输入合法URL(必须以http://开头):<br /><input name="url" type="text" size=60 value="<%=vUrl%>"/><br />
<input type="submit" value="抓取" /><br />
</form>
所用时间:<font color=green><%=formatnumber((time2-time1)*1000,2)%>MS</font> <br />
页面标题:<font color=green><%=title%></font> 页面编码:<font color=green><%=code%></font> <br />
<textarea cols=150 rows=30><%=VBody%></textarea>
</body>
</html>

<% 
function GetResStr(URL)
dim ResBody,ResStr,PageCode
Set Http=server.createobject("msxml2.serverxmlhttp.3.0") 
Http.setTimeouts 10000, 10000, 10000, 10000 
Http.open "GET",URL,False 
Http.Send() 
If Http.Readystate =4 Then 
  If Http.status=200 Then
    ResStr=http.responseText
    ResBody=http.responseBody
    PageCode=GetCode(ResStr,reg)
    GetResStr=BytesToBstr(http.responseBody,PageCode)
  End If 
End If 
End Function

'函数名:BytesToBstr
'作用:转换二进制数据为字符
'参数:Body-二进制数据,Cset-文本编码方式
Function BytesToBstr(Body,Cset) 
  Dim Objstream 
  Set Objstream = Server.CreateObject("adodb.stream") 
  objstream.Type = 1 
  objstream.Mode =3 
  objstream.Open 
  objstream.Write body 
  objstream.Position = 0 
  objstream.Type = 2 
  objstream.Charset = Cset 
  BytesToBstr = objstream.ReadText 
  objstream.Close 
  set objstream = nothing 
End Function
 
'函数名:GetCode
'作用:转换二进制为字符
'参数:str-待查询字符串,regstr-正则表达式
Function GetCode(str,regstr)
Dim Reg
set Reg= new RegExp
Reg.IgnoreCase = True
Reg.MultiLine = True
Reg.Pattern =regstr
Set Cols = Reg.Execute(str)
str=Cols(0).SubMatches(0)
GetCode=str
end function
%> 
]]> AJAX 如何解决AJAX中跨域访问出现'没有权限'的错误 zhanghuiguoanlige@126.com http://dev.mo.cn/article_110.html 2008-8-16 11:07:25 http://dev.mo.cn/article_110.html 禁止访问非同域的网站,下面一个例子来访问http://www.google.cn,
    ȫ

<script type="text/javascript">
 function createobj() {
 if (window.ActiveXObject) {
         return new ActiveXObject("Microsoft.XMLHTTP");
     }
     else if (window.XMLHttpRequest) {
         return new XMLHttpRequest();
     }
}

function getWebPage(url) {
  var oBao=createobj();
  var my_url=url
  oBao.open('get',my_url,false); 
  oBao.onreadystatechange=function(){
       if(oBao.readyState==4){
            if(oBao.status==200){
              var returnStr=oBao.responseText;
              document.write(returnStr);
            }else{
              document.write("未找到您输入的地址或服务器505错误!");
            }
       }
  }
  oBao.send(null); 
 }
getWebPage('http://www.google.cn');
</script>

  保存这段代码到test.html,在本地直接用IE打开没问题,但将该段代码上传到服务器后，问题出现了--JS提示"没有权限"错误!!!这该如何解决呢？
  下面思考一下：既然不能访问非同域的，只能访问同域的地址了，同域的动态文件怎么获取非同域网页内容呢？我们还是想到的AJAX，只不过这个AJAX是在服务器端执行.
   大体思路是这样的:首先将URL用AJAX提交给自己站内的文件，例如getPage.asp---在getPage.asp再次通过服务器XMLHTTP来访问提交来的URL---将获取的内容返回给提交URL的页----显示内容
  下面开始组织代码,首先是test.html文件
  
    ȫ

<script type="text/javascript">
 function createobj() {
 if (window.ActiveXObject) {
         return new ActiveXObject("Microsoft.XMLHTTP");
     }
     else if (window.XMLHttpRequest) {
         return new XMLHttpRequest();
     }
}

function getWebPage(url) {
  var oBao=createobj();
  var my_url="getpage.asp?url="+escape(url);
  oBao.open('get',my_url,false); 
  oBao.onreadystatechange=function(){
       if(oBao.readyState==4){
            if(oBao.status==200){
              var returnStr=oBao.responseText;
              document.write(returnStr);
            }else{
              document.write("未找到您输入的地址或服务器505错误!");
            }
       }
  }
  oBao.send(null); 
 }
getWebPage('http://www.google.cn');
</script>


再就是getpage.asp文件(注意:要以UTF-8格式保存本文件,防止乱码),如下:
    ȫ

<%
response.charset="UTF-8"
reg="\<meta.+ charset= {0,}([^\"" \>\/]*).+\/{0,1}\>"
'函数名:GetResStr
'作用:获取指定URL的HTML代码
'参数:URL-要获取的URL
function GetResStr(URL)
err.clear
dim ResBody,ResStr,PageCode,ReturnStr
Set Http=createobject("MiCROSOFT.XMLHTTP") 
Http.open "GET",URL,False 
Http.Send() 
If Http.Readystate =4 Then 
  If Http.status=200 Then
    ResStr=http.responseText
    ResBody=http.responseBody
    PageCode=GetCode(ResStr,reg)
    ReturnStr=BytesToBstr(http.responseBody,PageCode)
    GetResStr=ReturnStr
  End If 
End If 
End Function

'函数名:BytesToBstr
'作用:转换二进制数据为字符
'参数:Body-二进制数据,Cset-文本编码方式
Function BytesToBstr(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 
  BytesToBstr = objstream.ReadText 
  objstream.Close 
  set objstream = nothing 
End Function
 
'函数名:GetCode
'作用:提取网页编码
'参数:str-待查询字符串,regstr-正则表达式
Function GetCode(str,regstr)
Dim Reg,serStr
set Reg= new RegExp
Reg.IgnoreCase = True
Reg.MultiLine = True
Reg.Pattern =regstr
if Reg.test(str) then '若查询到匹配项
   Set Cols = Reg.Execute(str)
   serStr=Cols(0).SubMatches(0) '使用匹配到的第一个匹配项
else '否则给个默认值gb2312,有点省懒法，如果页面没给出编码格式，想知道确实有点麻烦
   serStr="gb2312"
end if
GetCode=serStr
end function

dim url:url=request.querystring("url")
response.write GetResStr(URL)
%>


  代码组织完毕,实验下,成功提取http://www.google.cn的内容!!!!!这样就可以解决"没有权限"的问题了。 
  其实,单纯一个getpage.asp一样能获取，不过不能像js那样动态的处理DOM。
  还有一个问题,如果你用第一种方法访问http://www.baidu.com会出现乱码,因为baidu编码为GB2312,
而XMLHTTP返回的是UTF-8编码格式。用第二种方法就不会出现这样的问题了,只要定义了编码格式的站点就能正常返回信息(这里不能包括一些使用特别编码的站点)。





]]> AJAX 利用404错误页面实现UrlRewrite zhanghuiguoanlige@126.com http://dev.mo.cn/article_102.html 2008-8-9 10:37:25 http://dev.mo.cn/article_102.html 替换字符的正则可以自己增加和修改，以适合自己的网站；
将下面代码保存到err404.html，然后设置404错误页面为err404.html页；
测试地址http://bbs.ii-home.cn/html/index.html
注:转载请注明本出处!谢谢!
    ȫ

<script type="text/javascript" language="javascript">
var id=/(detial|show)\.asp\?id\=([0-9]+)/gi;
var flag=/([a-z0-9_]+)\.asp\?flag\=xml/gi;
var re_id=/(detial|show)\_([0-9]+)\.html/gi;
var re_flag=/([a-z0-9_]+)\.rss/gi;
var host='blog.ii-home.cn';
var ss=window.location.href;
//ss=ss.replace(window.location.hostname,host);
var Temp=getasp(ss);
getNotice(Temp);

function createobj() {
 if (window.ActiveXObject) {
         return new ActiveXObject("Microsoft.XMLHTTP");
     }
     else if (window.XMLHttpRequest) {
         return new XMLHttpRequest();
     }
}

function getNotice(url) {
  var oBao=createobj();
  var my_url=url;
  oBao.open('get',my_url,false); 
  oBao.onreadystatechange=function(){
       if(oBao.readyState==4){
            if(oBao.status==200){
              var returnStr=oBao.responseText;
              var Temps=gethtml(returnStr);
              document.write(Temps);
            }else{
              document.write("未找到您输入的地址或服务器505错误!");
            }
       }
  }
  oBao.send(null); 
 }
 
//将str中的asp网址按照正则替换
function gethtml(str){
  var Temp_str=str.replace(id,'$1_$2.html');
  Temp_str=Temp_str.replace(/index\.asp/gi,'index.html');
  Temp_str=Temp_str.replace(/myfiles\.asp/gi,'myfiles.html');
  Temp_str=Temp_str.replace(/mydiary\.asp\?typ\=self/gi,'mydiary_self.html');
  Temp_str=Temp_str.replace(/mydiary\.asp/gi,'mydiary.html');
  Temp_str=Temp_str.replace(flag,'$1.rss');
  Temp_str=Temp_str.replace(/xml_diary\.asp/gi,'xml_diary.html');
  Temp_str=Temp_str.replace(/xml_download\.asp/gi,'xml_download.html');
  Temp_str=Temp_str.replace(/xml_links\.asp/gi,'xml_links.html');
  Temp_str=Temp_str.replace(/xml_ly\.asp/gi,'xml_ly.html');
  Temp_str=Temp_str.replace(/ly\.asp/gi,'ly.html');
  //Temp_str=Temp_str.replace(/href=\"(http){0}/gi,'href="http://blog.ii-home.cn/');
  return(Temp_str);
}

//将URL替换成原地址
function getasp(str){
  var Temp_str=str.replace(re_id,'$1.asp?id=$2');
  Temp_str=Temp_str.replace(/index\.html/gi,'index.asp');
  Temp_str=Temp_str.replace(/myfiles\.html/gi,'myfiles.asp');
  Temp_str=Temp_str.replace(/mydiary\.html/gi,'mydiary.asp');
  Temp_str=Temp_str.replace(/mydiary\_self.html/gi,'mydiary.asp?typ=self');
  Temp_str=Temp_str.replace(/xml_diary\.html/gi,'xml_diary.asp');
  Temp_str=Temp_str.replace(/xml_download\.html/gi,'xml_download.asp');
  Temp_str=Temp_str.replace(/xml_links\.html/gi,'xml_links.asp');
  Temp_str=Temp_str.replace(/xml_ly\.html/gi,'xml_ly.asp');
  Temp_str=Temp_str.replace(/ly\.html/gi,'ly.asp');
  Temp_str=Temp_str.replace(re_flag,'$1.asp?flag=xml');
  return(Temp_str);
}
</script>


测试地址http://bbs.ii-home.cn/html/index.html


]]> AJAX AJAX框架代码 zhanghuiguoanlige@126.com http://dev.mo.cn/article_99.html 2008-8-1 3:21:11 http://dev.mo.cn/article_99.html
    ȫ

var XMLHttp = {
    _objPool: [],
    _getInstance: function () {
        for (var i = 0; i < this._objPool.length; i ++) {
            if (this._objPool[i].readyState == 0 || this._objPool[i].readyState == 4) {
                return this._objPool[i];
            }
        }

        // IE5中不支持push方法
        this._objPool[this._objPool.length] = this._createObj();
        return this._objPool[this._objPool.length - 1];
    },

    _createObj: function () {
        if (window.XMLHttpRequest) {
            var objXMLHttp = new XMLHttpRequest();
        } else {
            var MSXML = ['MSXML2.XMLHTTP.5.0', 'MSXML2.XMLHTTP.4.0', 'MSXML2.XMLHTTP.3.0', 'MSXML2.XMLHTTP', 'Microsoft.XMLHTTP'];
            for(var n = 0; n < MSXML.length; n ++) {
                try {
                    var objXMLHttp = new ActiveXObject(MSXML[n]);
                    break;
                }
                catch(e) {
                }
            }
         }          

        // mozilla某些版本没有readyState属性
        if (objXMLHttp.readyState == null) {
            objXMLHttp.readyState = 0;
            objXMLHttp.addEventListener("load", function () {
                objXMLHttp.readyState = 4;
                if (typeof objXMLHttp.onreadystatechange == "function") {
                    objXMLHttp.onreadystatechange();
                }
                },  false);
        }
        return objXMLHttp;
    },

    // 发送请求(方法[post,get], 地址, 数据, 回调函数)
    sendReq: function (method, url, data, callback, i) {
        var objXMLHttp = this._getInstance();
        with(objXMLHttp) {
            try {
                // 加随机数防止缓存
                if (url.indexOf("?") > 0) {
                    url += "&randnum=" + Math.random();
                } else {
                    url += "?randnum=" + Math.random();
                }

                open(method, url, true);

                // 设定请求编码方式
                setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
                send(data);
                onreadystatechange = function () {
                    if (objXMLHttp.readyState == 4 && (objXMLHttp.status == 200 || objXMLHttp.status == 304)) {
                        callback(objXMLHttp, i);
                    }
                }
            }
            catch(e) {
                alert(e);
            }
        }
    }
};

]]> AJAX 小偷程序原理--xmlhttp组件 zhanghuiguoanlige@126.com http://dev.mo.cn/article_91.html 2008-7-20 18:45:16 http://dev.mo.cn/article_91.html

小偷程序实际上是通过了XML中的XMLHTTP组件调用其它网站上的网页，动态载入内存后，再对别人网页的内容进行分析过滤。所以，原则上只要别人网页上能显示出来的信息，你都可以使用（关于连接，一般的下载网站的连接你是截不到的，因为它进行了隐藏）。现在有很多新闻小偷程序，很多都是调用了sina的新闻网页，对其中的html进行了一些替换，同时对广告也进行过滤。除了新闻截取，你还可以利用小偷程序去截取一些别的信息，比如天气预报等。

小偷程序的优点有：
1、无须维护网站，因为小偷程序中的数据来自其他网站，它将随着该网站的更新而更新；
2、可以节省服务器资源，一般小偷程序就几个文件，所有网页内容都是来自其他网站。 


其缺点有：
1、不稳定，如果目标网站出错，程序也会出错。目标网站进行升级维护，小偷程序也要进行相应修改；
2、速度慢，因为是远程调用，速度和在本地服务器上读取数据比起来，肯定要慢一些。 


小偷程序一般是使用xmlhttp组件来下载别人的网页，将别人的网页内容载到了你的内存中，再经过分析，过滤掉不需要的内容，最终实现按照自己的格式来显示内容。比如这个网页：http://www.itb2b.com.cn/thief/index.asp ，就是截取了新浪的内容。 


以下是小偷程序代码：
    ȫ

<%
'常用函数
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码

function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then 
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear 
end function
%>     

换句话说，要做小偷程序，你必须了解xmlhttp组件的使用。微软提供的Microsoft.XMLHTTP对象，能够完成从数据包到Request对象的转换以及发送任务。

XMLHTTP对象及其方法:
创建XMLHTTP对象的语句如下： 

Set objXML = CreateObject("Msxml2.XMLHTTP") 
或
Set objXML = CreateObject(“Microsoft.XMLHTTP”)
其中Set objXML = CreateObject("Msxml2.XMLHTTP")是最新的版本

对象创建后调用Open方法对Request对象进行初始化，语法格式为： 
poster.open http-method, url, async, userID, password 
Open方法中包含了5个参数，前三个是必要的，后两个是可选的(在服务器需要进行身份验证时提供)。
参数的含义如下所示：  
http-method： HTTP的通信方式，比如GET或是 POST 
url： 接收XML数据的服务器的URL地址。通常在URL中要指明ASP或CGI程序 
async： 一个布尔标识，说明请求是否为异步的。如果是异步通信方式(true)，客户机就不等待服务器的响应；如果是同步方式(false)，客户机就要等到服务器返回消息后才去执行其他操作 
userID：用户ID，用于服务器身份验证 
password：用户密码，用于服务器身份验证 

比如，我们要调用百度的网页，我们可以： 
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET","http://www.baidu.com",false
Http.send()

Send方法是用来发送XML数据的，用法如下：
poster.send()  

如果不用send来发参数，而你要调用的网页又要接收参数，可以这样简单处理
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET","http://要调用的网页?id=1&name=abc",false
Http.send() 
Http.send()以后，xmlhttp对象会返回一个对象，这个对象里面就包含了所调用网页的内容，就象从浏览器里打开一样，只不过网页内容是在内存中，还没有显示出来。但在调用过程中可能会出错，所以XMLHTTP对象中的readyState属性能够反映出服务器在处理请求时的进展状况。

0 Response对象已经创建，但XML文档上载过程尚未结束 
1 XML文档已经装载完毕 
2 XML文档已经装载完毕，正在处理中 
3 部分XML文档已经解析 
4 文档已经解析完毕，客户端可以接受返回消息 

所以我们一般这样处理:
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET","http://要调用的网页?id=1&name=abc",false
Http.send()
'检查是否完成，readystate值为４说明载入完毕
if Http.readystate<>4 then
   exit function 
end if  

Http.send()后，经检测Http.readystate==4，说明载入完毕，这时网页内容已经载入到了Http.responseBody中了 ，但是如果是中文网页，Http.responseBody中会有乱码，这需要我们转换一下乱码 ，所以完整的调用是这样的：
dim http 
set http=Server.createobject("Microsoft.XMLHTTP") 
Http.open "GET","你要调用的网址",false 
Http.send() 
if Http.readystate<>4 then　'如果不等于4，说明出错了
   exit function 
end if 
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing 
其中,bytesToBSTR是一个自己写的函数 
    ȫ

Function BytesToBstr(body,Cset)
  dim objstream
  set objstream = Server.CreateObject("adodb.stream")
  objstream.Type = 1
  objstream.Mode =3
  objstream.Open
  objstream.Write body
  objstream.Position = 0
  objstream.Type = 2
  objstream.Charset = Cset
  BytesToBstr = objstream.ReadText 
  objstream.Close
  set objstream = nothing
End Function 

所以，getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")表示，将Http.responseBody的内容按GB2312编码转换一下，放到getHTTPPage变量中。
最后，你再对getHTTPPage变量进行分析，取出你想显示的数据就行了。

需要注意的是,BytesToBstr函数中用到了adodb.stream组件，这需要你的服务器有执行它的权限。

下面我们讲个实例，我们显示一下新浪的新闻。要想显示新浪的新闻，我们就要先找到新浪的新闻网址是什么。新浪有个动态新闻页网址：http://news.sina.com.cn/old1000/news1000_日期.shtml 。比如，我们要显示6月18日的新闻，就输入
http://news.sina.com.cn/old1000/news1000_20050618.shtml ，打开网页你会发现是一个新闻列表，下面我们就要分析一下它的结构，右键查看源代码。里面很乱，但你可以找到<!--新闻开始-->和<!--新闻结束-->，中间的内容就是列表的内容。好了，也就是我说，我们想显示6月18号的新闻，就这样调用：
dim http 
set http=Server.createobject("Microsoft.XMLHTTP") 
Http.open "GET","http://news.sina.com.cn/old1000/news1000_20050618.shtml",false 
Http.send() 
if Http.readystate<>4 then
   exit function 
end if 
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
start=Instr(wstr,"<!--新闻开始-->")
over=Instr(wstr,"<!--新闻结束-->")
wstr=mid(wstr,start+11,over-start-11)

这样wstr就是新闻列表的内容。为什么start+11和over-start-11呢？因为<!--新闻开始-->和<!--新闻结束-->都是11的长度。wstr取出来后，还要进行分析,把它的网址链接替换成你的链接，把不必要的字符过滤掉，这个工作很烦琐，你可以用replace或者用正则表达式来替换,比如：
wstr=replace(wstr,"href=""","href=""show.asp?url=")
wstr=replace(wstr,"<ul>","")
wstr=trim(replace(wstr,"</ul>","")) '完成对页面内容的截取加工
wstr=Replace(wstr,"http://news.sina.com.cn","NewsNews")
wstr=Replace(wstr,"http://tech.sina.com.cn","TechNews")
wstr=Replace(wstr,"http://sports.sina.com.cn","SportsNews")
wstr=Replace(wstr,"http://ent.sina.com.cn","EntNews")
wstr=Replace(wstr,"http://eladies.sina.com.cn","EladiesNews")
wstr=Replace(wstr,"http://jczs.sina.com.cn","jczs")
wstr=Replace(wstr,"http://auto.sina.com.cn","AutoNews")
wstr=Replace(wstr,"http://finance.sina.com.cn","FinanceNews")
wstr=Replace(wstr,"http://www.eladies.com.cn","wwwEladies") 




]]> AJAX VBScript下载文件 zhanghuiguoanlige@126.com http://dev.mo.cn/article_86.html 2008-7-16 3:38:49 http://dev.mo.cn/article_86.html
    ȫ

'函数名:WritFile
'作用:把指定二进制数据写入文件
'参数:byt--二进制数据,file--要写入的文件名
Function WritFile(byt,file) '写入文件函数
   SavePath=file
   Set objAso = CreateObject("ADODB.Stream")
     objAso.Type=1
     objAso.Mode = 3
     objAso.Open 
     objAso.Position =0
     objAso.Write byt
     objAso.SaveToFile SavePath,2
     objAso.Close
     set objAso=nothing
End Function

'函数名:GetRes
'作用:下载文件
'参数:URL-要获取的URL
function GetRes(URL)
dim ResBody,ResStr,PageCode,ReturnStr
sPos=InStrRev(URL,"/")+1
sStr=mid(url,sPos)
Set Http=createobject("MiCROSOFT.XMLHTTP") 
Http.open "GET",URL,False 
Http.Send() 
If Http.Readystate =4 Then 
  If Http.status=200 Then
     ResBody=http.responseBody
        head=Http.getResponseHeader("content-disposition")
        if head<>"" then   
           startPos=instr(head,"=")+1
           filename=mid(head,startPos)
        elseif instr(sStr,".")>0 then
           filename=sStr
        else
           filename=getname()&".dat"
        end if
    WritFile ResBody,"c:\"&filename
    GetRes=filename
  End If 
End If 
End Function

'函数名:getname
'作用:按日期获取随机数字
function getname()
    newname=now()
    newname=replace(newname," ","")
    newname=replace(newname,".","")
    newname=replace(newname,":","")
    newname=replace(newname,"-","") 
    newname=replace(newname,"上午","am")
    newname=replace(newname,"下午","pm")
    Randomize()
    newname=newname&cstr(int(Rnd()*10))
    Randomize()
    newname=newname&cstr(int(Rnd()*10))
    getname=newname
end function

dim str,time1,time2,tim,f_name,speed
str=""
time1=timer
f_name=GetRes("http://25.duote.org/Fetion2008.exe")
time2=timer
tim=formatnumber((time2-time1)*1000,2)
str=str&"文件"""&f_name&"""下载完毕,耗时"&tim&"MS!"&vbcrlf
str=str&"保存在C:\根目录下！"&vbcrlf
msgbox str,vbinformation,"下载完毕!"






]]> AJAX VBScript小偷 zhanghuiguoanlige@126.com http://dev.mo.cn/article_85.html 2008-7-16 2:22:28 http://dev.mo.cn/article_85.html
    ȫ

time1=timer
dim reg,vUrl,VBody,code,time1,time2,title
vUrl=inputbox("请输入有效网址，必须以http://开头","请输入网址","http://blog.ii-home.cn")
path=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName)) 
str=""
reg="\<meta.+ charset= {0,}([^\"" \>\/]*).+\/{0,1}\>"
VBody=GetResStr(vUrl)
code=GetCode(VBody,reg)
title=GetCode(VBody,"\<title\>(.*)\<\/title\>")
time2=timer
tim=formatnumber((time2-time1)*1000,2)&"MS"
str=str&"页面标题:"&title&vbcrlf
str=str&"使用时间:"&tim&vbcrlf
fname=path&"\"&getname()&".html"
WritFile replaceStr(VBody),fname
'WritFile VBody,fname '若不清除img标签请使用这个
str=str&"文件已经成功保存到"&fname

WScript.echo str

Function WritFile(str,file) '写入文件函数
   SavePath=file
   Set objAso = CreateObject("ADODB.Stream")
     objAso.Type=2
     objAso.Mode = 3
     objAso.Open 
     objAso.Position =0
     objAso.Writetext str
     objAso.SaveToFile SavePath,2
     objAso.Close
     set objAso=nothing
End Function

'函数名:GetResStr
'作用:获取指定URL的HTML代码
'参数:URL-要获取的URL
function GetResStr(URL)
err.clear
dim ResBody,ResStr,PageCode,ReturnStr
Set Http=createobject("MiCROSOFT.XMLHTTP") 
Http.open "GET",URL,False 
Http.Send() 
If Http.Readystate =4 Then 
  If Http.status=200 Then
    ResStr=http.responseText
    ResBody=http.responseBody
    PageCode=GetCode(ResStr,reg)
    ReturnStr=BytesToBstr(http.responseBody,PageCode)
    GetResStr=ReturnStr
  End If 
End If 
End Function

'函数名:BytesToBstr
'作用:转换二进制数据为字符
'参数:Body-二进制数据,Cset-文本编码方式
Function BytesToBstr(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 
  BytesToBstr = objstream.ReadText 
  objstream.Close 
  set objstream = nothing 
End Function
 
'函数名:GetCode
'作用:转换二进制为字符
'参数:str-待查询字符串,regstr-正则表达式
Function GetCode(str,regstr)
Dim Reg,serStr
set Reg= new RegExp
Reg.IgnoreCase = True
Reg.MultiLine = True
Reg.Pattern =regstr
if Reg.test(str) then '若查询到匹配项
   Set Cols = Reg.Execute(str)
   serStr=Cols(0).SubMatches(0) '使用匹配到的第一个匹配项
else '否则给个默认值gb2312,有点省懒法，如果页面没给出编码格式，想知道确实有点麻烦
   serStr="gb2312"
end if
GetCode=serStr
end function

'函数名:getname
'作用:获得随机文件名
'参数:无
function getname()
    dim y,m,d,h,mm,s,r
    Randomize()
    y=year(now)
    m=month(now):if m<10 then m="0"&m
    d=day(now):if d<10 then d="0"&d
    h=hour(now):if h<10 then h="0"&h
    mm=minute(now):if mm<10 then mm="0"&mm
    s=second(now):if s<10 then s="0"&s
    r=cint(rnd()*10):if r<10 then r="0"&r
    getname=y&m&d&h&mm&s&r
end function

'函数名:replaceStr
'作用:替换指定字符
'参数:strcontent-待替换字符串
Function replaceStr(strcontent) 
        dim re
        Set re=new RegExp
        re.IgnoreCase =true
        re.Global=True
        re.pattern="\<img[^\<\>\/].*(\/|)\>" '祛除所有img标签
        strcontent=re.replace(strcontent,"")
        set re=Nothing
        replaceStr=strcontent 
End Function


]]> AJAX AJAX的POST方法传递数据 zhanghuiguoanlige@126.com http://dev.mo.cn/article_84.html 2008-7-15 21:48:41 http://dev.mo.cn/article_84.html a.asp的代码为：
    ȫ

<%
for i=0 to 1000000
next
response.write request.form("say")&"<br />"&request.form("content")
%>

test.asp的代码为：
    ȫ

<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<script type="text/javascript">
var oBao;
var obj;
//发送请求
function sxs() {
obj=document.getElementById("return");
 if (window.ActiveXObject) {
         oBao=new ActiveXObject("Microsoft.XMLHTTP");
     }
     else if (window.XMLHttpRequest) {
         oBao=new XMLHttpRequest();
     }
var my_url='a.asp';
obj.innerHTML='请等待...';  
oBao.onreadystatechange=changecontent;
oBao.open("post",my_url,true);
oBao.setRequestHeader("Content-Type","application/x-www-form-urlencoded"); 
oBao.send('say='+escape('我爱你')+'&content=anlige'); 
}
//发送请求
function changecontent(){
if(oBao.readyState==4){
   if(oBao.status==200){ 
     obj.innerHTML='返回信息:<br />'+oBao.responseText;
     }else{
     obj.innerHTML='返回信息:<br />出现错误,错误代码为:'+oBao.status;
    }  
  }
}
</script>
</head>
<body>
<input onmouseover="this.focus();" type="button" value="测试" onclick="return sxs();" /><br /><br />
<span id="return"></span>
</body>
</html>

]]> AJAX XMLHttpRequest对象详细说明 zhanghuiguoanlige@126.com http://dev.mo.cn/article_60.html 2008-6-25 3:36:38 http://dev.mo.cn/article_60.html
    ȫ

var xmlHttp = false;
try {
  xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");
}
 catch (e) {
  try {
    xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
  }
 catch (e2) {
    xmlHttp = false;
  }
}
if (!xmlHttp && typeof XMLHttpRequest != 'undefined') {
  xmlHttp = new XMLHttpRequest();
}

Ajax 的基本请求/响应模型
所有 Ajax 应用程序中基本都雷同的流程：
1、从 Web 表单中获取需要的数据。 
2、建立要连接的 URL。 
3、打开到服务器的连接。 
4、设置服务器在完成后要运行的函数。 
5、发送请求。 
XMLHttpRequest 对象实例的 onreadystatechange 属性可以告诉服务器在运行完成 后做什么。因为代码没有等待服务器，必须让服务器知道怎么做以便您能作出响应。

现在要面对服务器的响应了。现在只要知道两点：
•什么也不要做，直到 xmlHttp.readyState 属性的值等于 4。 
•服务器将把响应填充到 xmlHttp.responseText 属性中。 
其中的第一点，即就绪状态，将在下一篇文章中详细讨论，您将进一步了解 HTTP 请求的阶段，可能比您设想的还多。现在只要检查一个特定的值（4）就可以了（下一期文章中还有更多的值要介绍）。第二点，使用 xmlHttp.responseText 属性获得服务器的响应，
一个 JavaScript 方法捕捉用户输入表单的信息并将其发送到服务器，另一个 JavaScript 方法监听和处理响应，并在响应返回时设置字段的值。所有这些实际上都依赖于调用 第一个 JavaScript 方法，它启动了整个过程。

必须非常熟悉一个 JavaScript 对象，即 XMLHttpRequest
该对象的很少的几个 方法和属性。
•open()：建立到服务器的新请求。 
•send()：向服务器发送请求。 
•abort()：退出当前请求。 
•readyState：提供当前 HTML 的就绪状态。 
•responseText：服务器返回的请求响应文本
这些方法和属性都与发送请求及处理响应有关


用 XMLHttpRequest 发送请求
得到请求对象之后就可以进入请求/响应循环了。记住，XMLHttpRequest 惟一的目的是让您发送请求和接收响应。其他一切都是 JavaScript、CSS 或页面中其他代码的工作：改变用户界面、切换图像、解释服务器返回的数据。
设置服务器 URL
首先要确定连接的服务器的 URL。这并不是 Ajax 的特殊要求，但仍然是建立连接所必需的，显然现在您应该知道如何构造 URL 了。
打开请求
有了要连接的 URL 后就可以配置请求了。可以用 XMLHttpRequest 对象的 open() 方法来完成。该方法有五个参数：
request-type：发送请求的类型。典型的值是 GET 或 POST，但也可以发送 HEAD 请求。 
url：要连接的 URL。 
asynch：如果希望使用异步连接则为 true，否则为 false。该参数是可选的，默认为 true。 
username：如果需要身份验证，则可以在此指定用户名。该可选参数没有默认值。 password：如果需要身份验证，则可以在此指定口令。该可选参数没有默认值。 
Internet 开发人员对 open() 方法到底做什么没有达成一致。但它实际上并不是 打开一个请求。如果监控 XHTML/Ajax 页面及其连接脚本之间的网络和数据传递，当调用 open() 方法时将看不到任何通信。不清楚为何选用了这个名字，但显然不是一个好的选择。

发送请求
一旦用 open() 配置好之后，就可以发送请求了。幸运的是，发送请求的方法的名称要比 open() 适当，它就是 send()。
指定回调方法
服务器在完成通过 XMLHttpRequest 发送给它的请求处理之后需要某种指示说明怎么做。
在 JavaScript 中引用函数：
JavaScript 是一种弱类型的语言，可以用变量引用任何东西。因此如果声明了一个函数 updatePage()，JavaScript 也将该函数名看作是一个变量。换句话说，可用变量名 updatePage 在代码中引用函数。
需要特别注意的是该属性在代码中设置的位置 —— 它是在调用 send() 之前 设置的。发送请求之前必须设置该属性，这样服务器在回答完成请求之后才能查看该属性。
服务器完成了请求处理。服务器查看 onreadystatechange 属性确定要调用的方法。
回调和 Ajax
将 XMLHttpRequest 对象的 onreadystatechange 属性设置为要运行的函数名。这样，当服务器处理完请求后就会自动调用该函数。

服务器在完成请求之后会在 XMLHttpRequest 的 onreadystatechange 属性中查找要调用的方法。但还不完整。事实上，每当 HTTP 就绪状态改变时它都会调用该方法。
HTTP 就绪状态表示请求的状态或情形。它用于确定该请求是否已经开始、是否得到了响应或者请求/响应模型是否已经完成。它还可以帮助确定读取服务器提供的响应文本或数据是否安全。在 Ajax 应用程序中需要了解五种就绪状态：
•0：请求没有发出（在调用 open() 之前）。 
•1：请求已经建立但还没有发出（调用 send() 之前）。 
•2：请求已经发出正在处理之中（这里通常可以从响应得到内容头部）。 
•3：请求已经处理，响应中通常有部分数据可用，但是服务器还没有完成响应。 
•4：响应已完成，可以访问服务器响应并使用它。 
与大多数跨浏览器问题一样，这些就绪状态的使用也不尽一致。您也许期望任务就绪状态从 0 到 1、2、3 再到 4，但实际上很少是这种情况。一些浏览器从不报告 0 或 1 而直接从 2 开始，然后是 3 和 4。其他浏览器则报告所有的状态。还有一些则多次报告就绪状态 1。在上一节中看到，服务器多次调用 updatePage()，每次调用都会弹出警告框 —— 可能和预期的不同！
对于 Ajax 编程，需要直接处理的惟一状态就是就绪状态 4，它表示服务器响应已经完成，可以安全地使用响应数据了。基于此，回调方法中的第一行应该如 清单 13 所示。
除了就绪状态外，还需要检查 HTTP 状态。我们期望的状态码是 200，它表示一切顺利。如果就绪状态是 4 而且状态码是 200，就可以处理服务器的数据了，而且这些数据应该就是要求的数据（而不是错误或者其他有问题的信息）。因此还要在回调方法中增加状态检查，
    ȫ

function updatePage() {
     if (request.readyState == 4)
       if (request.status == 200)
         alert("Server is done!");
       else if (request.status == 404)
         alert("Request URL does not exist");
       else
         alert("Error: status code is " + request.status);
   }


读取响应文本
返回的数据保存在 XMLHttpRequest 对象的 responseText 属性中。关于 responseText 中的文本内容，比如格式和长度，有意保持含糊。这样服务器就可以将文本设置成任何内容。比方说，一种脚本可能返回逗号分隔的值，另一种则使用管道符（即 | 字符）分隔的值，还有一种则返回长文本字符串。何去何从由服务器决定。
HTTP 就绪状态
0：请求未初始化（还没有调用 open()）。
•1：请求已经建立，但是还没有发送（还没有调用 send()）。
•2：请求已发送，正在处理中（通常现在可以从响应中获取内容头）。
•3：请求在处理中；通常响应中已有部分数据可用了，但是服务器还没有完成响应的生成。
•4：响应已完成；您可以获取并使用服务器的响应了。
在多个 JavaScript 函数都使用相同的请求对象时，您需要检查就绪状态 0 来确保这个请求对象没有正在使用，这种机制会产生问题。由于 readyState == 4 表示一个已完成的请求，因此您经常会发现那些目前没在使用的处于就绪状态的请求对象仍然被设置成了 4 —— 这是因为从服务器返回来的数据已经使用过了，但是从它们被设置为就绪状态之后就没有进行任何变化。有一个函数 abort() 会重新设置请求对象，但是这个函数却不是真正为了这个目的而使用的。如果您 必须 使用多个函数，最好是为每个函数都创建并使用一个函数，而不是在多个函数之间共享相同的对象。
查看就绪状态
   function updatePage() {
     // Output the current ready state
     alert("updatePage() called with ready state of " + request.readyState);
   }
查看请求的响应文本
与就绪状态类似，responseText 属性的值在整个请求的生命周期中也会发生变化。要查看这种变化，请使用如 清单 5 所示的代码来测试请求的响应文本，以及它们的就绪状态。
清单 5. 测试 responseText 属性
   function updatePage() {
     // Output the current ready state
     alert("updatePage() called with ready state of " + request.readyState +
           " and a response text of '" + request.responseText + "'");
     }
深入了解 HTTP 状态代码
有了就绪状态和您在 Ajax 编程技术中学习到的服务器的响应，您就可以为 Ajax 应用程序添加另外一级复杂性了 —— 这要使用 HTTP 状态代码。这些代码对于 Ajax 来说并没有什么新鲜。从 Web 出现以来，它们就已经存在了。在 Web 浏览器中您可能已经看到过几个状态代码：
•401：未经授权
•403：禁止
•404：没找到
它花费了最小的努力来确保服务器不但完成了一个请求，而且还返回了一个 “一切良好” 的状态代码。这个代码是 "200"，它是通过 XMLHttpRequest 对象的 status 属性来报告的。为了确保服务器不但完成了一个请求，而且还报告了一个 OK 状态，请在您的回调函数中添加另外一个检查功能，如 清单 7 所示。
清单 7. 检查有效状态代码
    ȫ

   function updatePage() {
     if (request.readyState == 4) {
       if (request.status == 200) {
         var response = request.responseText.split("|");
         document.getElementById("order").value = response[0];
         document.getElementById("address").innerHTML =
           response[1].replace(/\n/g, "<br />");
       } else
         alert("status is " + request.status);
     }
   }

用户无法判断问题究竟是认证问题、没找到脚本（此处就是这种情况）、用户错误还是代码中有些地方产生了问题。添加一些简单的代码可以让这个错误更加具体。请参照 清单 8，它负责处理没找到的脚本或认证发生错误的情况，在出现这些错误时都会给出具体的消息。
清单 8. 检查有效状态代码
    ȫ

   function updatePage() {
     if (request.readyState == 4) {
       if (request.status == 200) {
         var response = request.responseText.split("|");
         document.getElementById("order").value = response[0];
         document.getElementById("address").innerHTML =
           response[1].replace(/\n/g, "<br />");
       } else if (request.status == 404) {
         alert ("Requested URL is not found.");
       } else if (request.status == 403) {
         alert("Access denied.");
       } else
         alert("status is " + request.status);
     }
   }

其他请求类型
检查 URL
您已经看到了当 URL 不存在时应该如何检查 404 错误。如果这变成一个常见的问题 —— 可能是缺少了一个特定的脚本或 servlet —— 那么您就可能会希望在生成完整的 GET 或 POST 请求之前来检查这个 URL。要实现这种功能，生成一个 HEAD 请求，然后在回调函数中检查 404 错误；清单 11 给出了一个简单的回调函数。
清单 11. 检查某个 URL 是否存在
    ȫ

   function updatePage() {
     if (request.readyState == 4) {
       if (request.status == 200) {
         alert("URL exists");
       } else if (request.status == 404) {
         alert("URL does not exist.");
       } else {
         alert("Status is: " + request.status);
       }
     }
   }



]]> AJAX 一段重用很高的ajax代码 zhanghuiguoanlige@126.com http://dev.mo.cn/article_59.html 2008-6-25 3:33:23 http://dev.mo.cn/article_59.html
    ȫ

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
    <head>
        <title>client.html</title>
        <script language="JavaScript" type="text/javascript">
            var xmlreq = false;
            // ---------------初始化XMLHttpRequest--------------------
            function createXMLHttpRequest(){
                if (window.XMLHttpRequest) {
                    //不是ie浏览器
                    xmlreq = new XMLHttpRequest();
                }
                else 
                    if (window.ActiveXObject) {
                        //IE
                        try {
                            xmlreq = new ActiveXObject("Msxml12.XMLHTTP");
                        } 
                        catch (e1) {
                            try {
                                req = new ActiveXObject("Microsoft.XMLHTTP");
                            } 
                            catch (e2) {
                            // Unable to create an XMLHttpRequest with ActiveX
                            }
                        }
                        
                    }
            }
                        //------------发送XMLHttpRequest请求-----------------
                        //GET提交请求
                        function sendRequestGet(url){
                                createXMLHttpRequest();
                                xmlreq.open("get",url,true);
                                xmlreq.onreadystatechange = processResponse;//响应请求函数
                                xmlreq.send(null);
                        }
                        //POST提交请求
                        function sendRequestPost(url,param){
                                createXMLHttpRequest();
                                xmlreq.open("post",url,true);
                                xmlreq.onreadystatechange = processResponse;//响应请求的函数
                                xmlreq.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
                                xmlreq.send(param);
                        }
                        function sendRequest(url,param,method){
                                if(method){
                                        if (method.toLowerCase("get")) {
                        sendRequestGet(url + "?" + param);
                    }
                    else 
                        if (method.toLowerCase("post")) {
                            sendRequestPost(url, param);
                        }
                                }else{
                                        alert("method is null");
                                }
                        }
                        //---------响应请求的函数------------
                        function processResponse(){
                                if(xmlreq.readyState == 4){
                                        if(xmlreq.status == 200){
                                                alert(xmlreq.responseText);
                                        }else{
                                                alert("发送失败！")
                                        }
                                }
                        }
                        //事件响应
                        function submitRequest(){
                var form1 = document.getElementById("form1");
                var url = form1.action;
                var username = form1.username.value;
                var password = form1.password.value;
                var method = form1.method;
                var param = "username=" + username + "&password=" + password;
                sendRequest(url, param, method);
            }
        </script>
    </head>
    <body>
        <form action="server.jsp" method="post" name="form1" id="form1">
             用户名:<input name="username" id="username" type="text">
            <br>
             密  码:<input name="password" id="password" type="text">
            <br>
            <input type="button" value="发送信息" onclick="submitRequest()">
        </form>
    </body>
</html>


]]> AJAX XMLHTTP获取访问者地理位置 zhanghuiguoanlige@126.com http://dev.mo.cn/article_58.html 2008-6-25 0:27:21 http://dev.mo.cn/article_58.html
    ȫ

<%
function GetResStr(URL,code)
err.clear
dim ResBody,ResStr,PageCode,ReturnStr
Set Http=server.createobject("Microsoft.XMLHTTP") 
Http.open "GET",URL,False 
Http.Send() 
If Http.Readystate =4 Then 
  If Http.status=200 Then
    ResBody=http.responseBody
    ReturnStr=BytesToBstr(http.responseBody,code)
    GetResStr=ReturnStr
  End If 
End If 
End Function

'函数名:BytesToBstr
'作用:转换二进制数据为字符
'参数:Body-二进制数据,Cset-文本编码方式
Function BytesToBstr(Body,Cset) 
  Dim Objstream 
  Set Objstream = Server.CreateObject("adodb.stream") 
  objstream.Type = 1 
  objstream.Mode =3 
  objstream.Open 
  objstream.Write body 
  objstream.Position = 0 
  objstream.Type = 2 
  objstream.Charset =Cset 
  BytesToBstr = objstream.ReadText 
  objstream.Close 
  set objstream = nothing 
End Function

dim reg,vUrl,VBody,code,time1,time2,title
vUrl="http://www.cz88.net/ip/ipcheck.aspx?ip="&request.servervariables("REMOTE_ADDR")
TempStr=GetResStr(vUrl,"gb2312")
p1=instr(TempStr,"""")+1
p2=InStrRev(TempStr,"""")
Add=mid(TempStr,p1,p2-p1)

response.write "您的IP为:"&request.servervariables("REMOTE_ADDR")&"<br />"
response.write "您的位置:"&Add&"<br />"
%> 


]]> AJAX 自己写的ajax无刷新投票，IE下正常调用~~ zhanghuiguoanlige@126.com http://dev.mo.cn/article_31.html 2008-5-23 11:57:09 http://dev.mo.cn/article_31.html




投票页面

    ȫ


<div class=sround style="height:175px;width:190px;">

       <img src="img/nav.gif" style="margin-top:1px;"> <b>调查投票</b>

       <div style="margin-left:10px;">

        <form name=vot_frm action="vote.asp" method="get" target="_blank" style="text-justify:;height:100px">

        您对本站的印象如何?<br>

        <input name=vote type=radio value=1 style="border:0px">很好(共<font color=red><span id=s1></span></font>票)<br>

        <input name=vote type=radio value=2 style="border:0px">还可以(共<font color=red><span id=s2></span></font>票)<br>

        <input name=vote type=radio value=3 checked=true style="border:0px">一般(共<font color=red><span id=s3></span></font>票)<br>

        <input name=vote type=radio value=4 style="border:0px">不好(共<font color=red><span id=s4></span></font>票)<br>

        <input name=vote type=radio value=5 style="border:0px">很差(共<font color=red><span id=s5></span></font>票)<br>

                  <input type=button onclick="Star(this.form,1);" value="投票">

        

        </form>

      </div>

      </div>

<script type="text/javascript">

//无刷新投票

Star(document.vot_frm,0);

var oBao;

//创建组件

function createobj() {

 if (window.ActiveXObject) {

         oBao=new ActiveXObject("Microsoft.XMLHTTP");

     }

     else if (window.XMLHttpRequest) {

         oBao=new XMLHttpRequest();

     }

}

//调用并返回结果

function Star(frm,ty) {

createobj();

var id=0;

if(ty==1) {

for(var i=0;i<frm.length;i++){

if(frm.elements[ i].checked) {

id=frm.elements[ i].value;

}

}

}

var my_url="vote.asp?vote="+id;

oBao.open("POST",my_url,false); 

oBao.send(null); 

var strResult = unescape(oBao.responseText);

for(var j=1;j<6;j++){

document.getElementById("s"+j).innerText =strResult.split(" ")[j-1];

}

}

//定时刷新

window.setInterval("Star(document.vot_frm,0);",5000);

</script>



 



vote.asp的内容

    ȫ


<!--#include file="mdb.asp"--> '连接你自己的数据库，最好根据自己的数据库重新写下面的代码~~

<%

dim n

n=""

if request.querystring("vote")<>"" or request.querystring("vote")>0 then

sql="update vote set count=count+1 where vote='vote"&request.querystring("vote")&"'"

conn.execute sql

end if

set rs=server.createobject("adodb.recordset")

sql="select * from vote"

rs.open sql,conn,1,1

do while not rs.eof

n=n&" "&rs(1)

rs.movenext

loop

response.write trim(n)

%> 









]]> AJAX 利用AJAX进行whois查询 zhanghuiguoanlige@126.com http://dev.mo.cn/article_29.html 2008-5-7 3:28:17 http://dev.mo.cn/article_29.html 下面是自己写的一个小例子，仅供参考，见笑！    
详细内容可去网上搜索~    
具体代码如下:  

main.html内容  
    ȫ

<html>
<HEAD>
<title>利用AJAX调用whois查询</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME ="keywords" CONTENT="利用AJAX调用whois查询">
<META NAME="description" CONTENT="利用AJAX调用whois查询">
<META NAME="robots" CONTENT="all">
<META name="AUTHOR" content="Anlige">
<script language="javascript" src="fun.js"></script>
</HEAD>
<BODY>
<form name="se">
<input type="text" name="domain">
<input type="button" value="查询" onclick="Request(se.domain.value,'get')">
</form>
<div id="whois">
</div>
</body>
</html>

fun.js内容  
 
    ȫ

var a="http://whois.hichina.com/cgi-bin/whois?domain=";
var b="&B1=GO";
function CreateXMLHttpRequest() {
    var request = false;
    if (window.XMLHttpRequest) { 
        request = new XMLHttpRequest(); 
        if (request.overrideMimeType) {
            request.overrideMimeType('text/xml');
        }
    } else if (window.ActiveXObject) {
        try {
            request = new ActiveXObject("Msxml2.XMLHTTP");
        } catch (e) {
            try {
                request = new ActiveXObject("Microsoft.XMLHTTP");
            } catch (e) {return false;}
    }   }
    if (!request) {
        alert('Create XMLHTTP Object false.');
        return false;
    }
    return request;
}

function Request(domain,method) {
    var obj=document.getElementById("whois");  //定位到div  
    var xmlHttp = CreateXMLHttpRequest();
    xmlHttp.open(method, a+domain+b, true);
    //xmlHttp.setRequestHeader("Content-Length", body.length);
    //xmlHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); //application/x-www-form-urlencoded
    xmlHttp.onreadystatechange = function(){
    if(xmlHttp.readyState==4){          //4代表数据已经从服务器返回         
      if(xmlHttp.status==200){     //200代表页面正常     
        var strResult =xmlHttp.responseText;       //以文本方式取得返回内容     
        //下面是分离截取的内容，显示我们需要的部分      
        var c=strResult.search(/\<pre\>/);   
        var d=strResult.search(/\<\/pre\>/);   
        var str=strResult.substr(c+5,d-c-5); 
        str=str.replace(/\n/gi,'<br>');        //显示信息 
        str=str.replace(/请.*$/,'');        //显示信息    
        obj.innerHTML=str;  
      }else{
        obj.innerHTML="服务器返回错误!";  
       }
    }else{
      obj.innerHTML="数据请求中...";  
    }  
    }
    xmlHttp.send(null);
}




]]> AJAX