<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