最新Ajax登录（支持验证码）

<script type="text/javascript" src="common/ajaxlogin.js"></script>
<script type="text/javascript">showajaxlogin()</script>

else
response.write "非法操作!"
End If
%>

ElseIf request("action") = "ajaxlogin" Then
  Dim loginUser
    loginUser = Login(Request.Form("username"), Request.Form("Password"))
  If loginUser(0) = "登录成功" then
    response.write "1"
  Else
    response.write Replace(Split(loginUser(1),"</b>")(0),"<b>","")
  End If
ElseIf request("action") = "ajaxlogout" then
    logout(true)

        userPanel = userPanel&"<a href=""login.asp"" class=""sideA"" accesskey=""L"">登录</a><a href=""register.asp"" class=""sideA"" accesskey=""U"">用户注册</a>"

        userPanel=userPanel&"<form name=""ajaxlogin"" id=""ajaxlogin"" action=""Action.asp?action=ajaxlogin"" method=""post"" style=""margin:0px;""><label>用户名：<input type=""text"" name=""username"" class=""userpass"" size=""11""/></label><br/><label>密　码：<input type=""password"" name=""Password"" class=""userpass"" size=""11""/></label><br><label>验证码：<input type=""text"" name=""validate"" class=""userpass"" size=""11"" maxlength=""4""/></label>   <img id=""vcodeImg"" src=""about:blank"" onerror=""this.onerror=null;this.src='common/getcode.asp?s='+Math.random();"" alt=""验证码"" title=""看不清楚?换一张"" style=""cursor:pointer;width:40px;height:18px;margin-bottom:-4px;margin-top:3px;"" onclick=""src='common/getcode.asp?s='+Math.random()""/><br><label>保　存：</label><select size=""1"" name=""AJAXKeepLogin""><option selected=""selected"" value=""0"">不保存</option><option value=""1"">一　天</option><option value=""7"">一星期</option><option value=""30"">一个月</option><option value=""365"">一　年</option></select><br><input type=""button"" value=""登　陆"" onclick=""AJAXLogin('ajaxlogin');"" class=""userbutton""/>　<input type=""button"" value=""用户注册"" class=""userbutton"" onclick=""location.href='"&getbaseUrl&"register.asp'""/></form>"

<a href=""login.asp"">登录</a>

<a href=""JavaScript:void(0);"" onclick=""openclose('AJAXLoginContainers')"">登录</a>