文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
AJAX技术 vs 传统的ASP无刷新技术
AJAX之xmlHttp
漫谈Ajax在.Net中的使用
初步了解 ASP.NET AJAX 扩展
Ajax+GridView+Xml的简易留言薄
使用Ajax时的十个常犯的错误
asp.net ajax 和 asp.net 2.0中的file..
AJAX入门之深入理解JavaScript中的函..
网页数据的实时刷新
XMLHTTP对象封装技术
Ajax光环背后的隐患
AJAX支持的自动填充表单
AJAX如何与后台交互
asp.net ajax 使用updatepanel进行更..
使用AjaxPro开发四级无刷新联动下拉框
Ajax程序设计入门
什么是Ajax


技术教程 -> Ajax教程 ->  
AJAX之xmlHttp
来源:转载   人气:1316   录入时间:2007-11-8
    
   <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
   
   
   




Copyright(C)2007-2023 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987