WEB开发网
开发学院WEB开发Ajax AJAX之xmlHttp 阅读

AJAX之xmlHttp

 2006-06-28 11:16:04 来源:WEB开发网   
核心提示:<script type="text/javascript" language="Javascript"> <!-- //以xml求取数据 function XmlPost(theEmail) { var webFileUrl = "../U

<script type="text/javascript" language="Javascript">
     <!--
     //以xml求取数据
     function XmlPost(theEmail)
     {
       var webFileUrl = "../User/CheckUser.aspx?LogonName=" + theEmail;
       var result = "";
             
       if (window.ActiveXObject) {
       xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
       }
       else if (window.XMLHttPRequest) {
       xmlHttp = new XMLHttpRequest();
       }

     //var xmlHttp = new ActiveXObject("MSXML2.XMLHTTP");
       xmlHttp.open("POST", webFileUrl, false);
       xmlHttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded");  
       xmlHttp.send("");           
          
       xmlHttp.onreadystatechange=function()
       {
         if (xmlHttp.readyState==4)
         {
           result = xmlHttp.responseText;
         }
       }
       if(xmlHttp.status!=200)
       {
         alert ('网络故障(xmlHttp.status='+xmlHttp.status+'),请稍后再试!');
       }
        
       result = xmlHttp.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

Tags:AJAX xmlHttp

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接