以下是代码：
--------------------denglu.asp---------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<script language="javascript" type="text/javascript" src="denglu.js"></script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>主页</title>
<link rel="stylesheet" href="zhuye.css" type="text/css">
</head>
<body>
<div id="apDiv2">
<div class="example" >
<ul class="nav" >
<li><a href="/" class="a1" >Home</a></li>
<li><a href="/" class="a1">Tutorials</a>
<ul class="subs">
<li><a href="/" >HTML / CSS热帖问他吧瓦尔特热热文波特五</a></li>
<li><a href="/">JS / jQuery</a></li>
</ul>
</li>
<li><a href="/" class="a1">Resources</a>
<ul class="subs">
<li>
<table width="1169" cellspacing="1px" ><form>
<tr><td width="847" ><font color="#CEBC84" face="幼圆" size="3" style="line-height:20px" >创建我的账户，分享更多特权</font></td>
<td width="62" rowspan="2" align="center"><img src="images/竖线8.png" width="19" height="75"></td>
<td width="68" align="center"><font color="#CEBC84" face="幼圆" size="3" style="line-height:20px" >账 户：密 码：</font></td>
<td width="141" align="left"style="padding-top:3px;" ><input type="text" id="username" class="bk" name="username" /><input type="password" id="userpwd" class="bk" name="userpwd" /></td><td width="230"></td>
</tr>
<tr>
<td width="847" height="23" align="right"><font color="#CEBC84" face="幼圆" size="3" ><a href="#" class="a2" > 创建我的账户 </a></font> </td>
<td></td>
<td ><font color="#CEBC84"><div id="msg"></div></font> </td>
<td align="left"> <input type="submit" value="登录" id="denglu" name="denglu" onclick="Check()" ></td>
</tr>
</form>
</table>
</li>
</ul>
</li>
<li><a href="/" class="a1">About</a></li>
<li><a href="/" class="a1">Back</a></li>
</ul>
<div style="clear:both"></div>
</div>
</div>
</body>
</html>
-------------denglu.js-------------
function GE(a){return document.getElementById(a);}
function Check(){
var X;
if (window.XMLHttpRequest)
{// code for IE7+, Firefox, Chrome, Opera, Safari
X=new XMLHttpRequest();
}
else
{// code for IE6, IE5
X=new ActiveXObject("Microsoft.XMLHTTP");
}
if(X){
GE('denglu').disabled=true;
X.onreadystatechange=function(){
if(X.readyState==4){
if(X.status==200){
eval(X.responseText)
}
else{GE('msg').innerHTML=X.statusText}
}
else{GE('msg').innerHTML="正在提交数据..."}
}
X.open("post","denglusjk.asp",true);
X.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
var SendData = 'username='+GE('username').value+'&userpwd='+GE('userpwd').value ;
X.send(SendData)
}
else{
GE('msg').innerHTML='你的浏览器不支持XMLHttpRequest'
}
}
------------denglusjk.asp---------------
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!--CODEPAGE必须为650001,否则也出现乱码,如果有HTML文字,一定设为UTF-8编码,否则将出现乱码.-->
<%
Dim username, userpwd, str
username=Request.Form("username")
userpwd=Request.Form("userpwd")
Dim i, ii
ii = 0
For i = 0 To 1000000
ii = ii + i
Next
If username="" or userpwd="" then
str = "用户名和密码必须填写"
Else
dim conn,rs,strSql
set conn=server.CreateObject("adodb.connection")
conn.open"dsn=jinp;uid=sa;pwd=sa"
strSql="select * from userinfo where username='"&username&"' and userpwd='"&userpwd&"' "
set rs=conn.execute(strSql)
if not rs.eof then
session("username")=rs("username")
session("userpwd")=rs("userpwd")
conn.close
set conn=nothing
response.Redirect("111.asp")
else
str = "用户名或密码错误！"
end if
end if
Response.Write "GE('msg').innerHTML='" & str & "';GE('denglu').disabled=false"
Response.End
%>
