<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