站长学院通行证

 

返回“站长学院”网站首页

 当前位置 → 中国站长学院网络编程Ajax教程 → 浏览正文


AJAX之xmlHttp


作者:中国站长学院[收集整理]     来源:互联网转载     点击数:     更新时间:2008年03月17日

【字体: 】           【背景色 杏仁黄 秋叶褐 胭脂红 芥末绿 天蓝 雪青 灰 银河白(默认色) 】    【收藏本文】   【打印


<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


责任编辑:中国站长学院

注册投稿

收藏本文到  >>>

相关文章

模板教程【Pagetitle 标记】04/11 
模板教程【Prenext 标记】(十04/11 
模板教程【Pagebreak 标记】04/11 
模板教程【Pagelist 标记】(04/11 
模板教程【List 标记】(十一)04/11 
模板教程【Channelartlis04/11 
模板教程【Mynews 标记】(九)04/11 
模板教程【Flink 标记】(八)04/11 
模板教程【Vote 标记】(七)04/11 
模板教程【Mytag 标记】(六)04/11 
模板教程【Type 标记】(四)04/11 
模板教程【Channel 标记】(三04/11 
模板教程【Field 标记】(二)04/11 
模板教程【Arclist 标记使用实04/11 
DedeCMS模板制作使用实例教程序04/11 
从零开始学DedeCms模板,模板制04/11 

推荐导读

热门资讯

资讯快报

论坛新贴

返回首页

关于我们 - 帮助(?) - 广告服务 - 诚征英才 - 友情链接 - 网站地图 - 站长BLOG

返回网站顶部

Copyright © 2007 中国站长学院(CNZZXY.COM). All Rights Reserved
站长学院服务资咨热线:0755-84289786    业务合作:(0)13554938953  (0)13423986856    网络宽带及主机提供:深圳傲网科技
粤ICP备08006968号   站长:忧郁的秋天(向管理员发邮件)   站长交流QQ群①:1815595   站长交流QQ群②:32960074