AJAX之xmlHttp

引用:http://www.qqread.com/ajax(动态网站静态化)/n342302.html

<script type="text/javascript" language="javascript">
        <!--
        //以xml(标准化越来越近了)求取数据
        function xml(标准化越来越近了)Post(theEmail)

        {
　　        var webFileUrl = "../User/CheckUser.aspx?LogonName=" + theEmail;
　　        var result = "";
　　        　　       
　　        if (window.ActiveXObject) {
            xml(标准化越来越近了)Http = new ActiveXObject("Microsoft.xml(标准化越来越近了)HTTP");
            }
            else if (window.xml(标准化越来越近了)HttpRequest) {
            xml(标准化越来越近了)Http = new xml(标准化越来越近了)HttpRequest();
            }

　　        //var xml(标准化越来越近了)Http = new ActiveXObject("MSxml(标准化越来越近了)2.xml(标准化越来越近了)HTTP");
　　        xml(标准化越来越近了)Http.open("POST", webFileUrl, false);
　　        xml(标准化越来越近了)Http.setRequestHeader("Content-Type","application/x-www-form-urlencoded");   
　　        xml(标准化越来越近了)Http.send("");　　    　　       
　　               
            xml(标准化越来越近了)Http.onreadystatechange=function()
            {
                if (xml(标准化越来越近了)Http.readyState==4)
                {
                    result = xml(标准化越来越近了)Http.responseText;
                }
            }
            if(xml(标准化越来越近了)Http.status!=200)
            {
                alert ('网络故障(xml(标准化越来越近了)Http.status='+xml(标准化越来越近了)Http.status+')，请稍后再试！');
            }
               
            result = xml(标准化越来越近了)Http.responseText;　
　　        result = result.substring(0,result.indexOf("?EX"));
　　       
　　        if(result != "false")
　　        {　　　　       
　　　　        return true;
　　        }
　　        else
　　        {
　　　　        return false;
　　        }
        }
        //-->
    </script>''' <summary>
''' 检测用户是否存在<文件名：../User/CheckUser.aspx>
''' </summary>
''' <remarks>Created by dzh @2006/06/27 18:22</remarks>
Partial Class Web_User_CheckUser
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Request.QueryString("LogonName") Is Nothing Then
            Response.Write("false" + "?EX")
            Response.End()
            Exit Sub
        End If

        If (New EasyClick.EasyBusiness.UserBusiness).GetUserByLogonName(Request.QueryString("LogonName").ToString) Is Nothing Then
            Response.Write("false" + "?EX")
            Response.End()
            Exit Sub
        Else
            Response.Write("true" + "?EX")
            Response.End()
            Exit Sub
        End If
    End Sub
End Class