无刷新登录代码.docx

Ajax.js页面代码

functionuseAjaxDemo（）

{

varajax=createAjaxObject（）;

sendToValidata（）;

functioncreateAjaxObject（）

{

varajax;

try

{

ajax=newActiveXObject（"Msxml2.XMLHTTP"）;

}

catch（e）

{

try

{

ajax=newActiveXObject（"Microsoft.XMLHTTP"）;

}

catch（e）

{

ajax=newXMLHttpRequest（）;

}

}

returnajax;}//使用AJAX对象

functionsendToValidata（）

{

if（!

ajax）

{

//document.getElementById（"msg"）.innerText="浏览器不支持使用AJAX技术";

alert（"浏览器不支持使用AJAX技术"）;

}

elseif（document.getElementById（"tname"）.value==""）{

alert（"用户不能为空！

"）;

document.getElementById（"tname"）.focus（）;

}

elseif（document.getElementById（"tpwd"）.value==""）{

alert（"密码不能为空！

"）;

document.getElementById（"tpwd"）.focus（）;

}

else

{

varurl="Chkadmin.asp?

nick="+document.getElementById（"tname"）.value+"&password="+document.getElementById（"tpwd"）.value;

ajax.open（"get",url,true）;

ajax.setRequestHeader（"cache-control","no-cache"）;

ajax.setRequestHeader（"Content-Type","application/x-www-form-urlencoded"）;

ajax.onreadystatechange=result;

ajax.send（null）;

}

}

functionresult（）

{

if（ajax.readyState==4）

{

varreword=ajax.responseText;

if（reword=="1"）{

window.location="manage.asp";

//ajax.open（"post","manage.asp",true）;

}

else{

alert（"用户名或密码不正确！

"）;

document.getElementById（"tname"）.focus（）;

}

}

}

}

Chkadmin.asp页面代码

<%

Response.CharSet="gb2312"

Response.ContentType="text/xml"

%>

--#includefile="../inc/md5.asp"-->

<%dbdns="../"%>

--#includefile="../inc/conn.asp"-->

<%

dimsql

dimrs

dimfrom1

dimsq12

dimsq123

dimnick

dimpassword

nick=replace（trim（request（"nick"））,"'",""）

password=md5（replace（trim（Request（"password"））,"'",""））

regjm=replace（trim（Request（"regjm"））,"'",""）

txt_check=replace（trim（Request（"txt_check"））,"'",""）

'--------------------企业过期数据检查------------------------

setrs=server.createobject（"adodb.recordset"）

sql="select*fromxyz_yp"

rs.opensql,conn,1,3

dowhilenotrs.eof

ifcdate（year（rs（"xyz_ktdate"））&"-"&month（rs（"xyz_ktdate"））&"-"&day（rs（"xyz_ktdate"）））<=date（）then

rs（"xyz_key"）=2

else

ifrs（"xyz_key"）=2then

rs（"xyz_key"）=1

endif

endif

rs.update

rs.movenext

loop

rs.close

setrs=nothing

'--------------------------------------------

setrs=server.createobject（"adodb.recordset"）

sql="select*fromxyz_adminwherexyz_password='"&password&"'andxyz_nick='"&nick&"'"

rs.opensql,conn,1,1

ifnot（rs.bofandrs.eof）then

ifpassword=rs（"xyz_password"）then

session（"admin"）=rs（"xyz_nick"）

session（"adminflag"）=rs（"xyz_flag"）

response.Write（"1"）

response.End（）

else

callError

endif

else

callError（）

endif

subError（）

response.Write（"登陆失败"）

Response.End

endsub

rs.close

conn.close

setrs=nothing

setconn=nothing

%>