Ajax应用实例: asp+mdb数据库注册模块例子

Else , 2007/08/04 10:41 , 代码片段，演示也有 , Comments(0) , Reads(3941) , Via Original

index.htm 文件

<!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">
<head>
<title>Ajax - Sample1</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<meta http-equiv="pragma" content="no-cache"/>
<script language="javascript" type="text/javascript">
function GE(a){return document.getElementById(a);}
function Check(){
if(GE('username').value==''){GE('msg').innerHTML='用名不能为空';return false}
if(GE('password').value==''){GE('msg').innerHTML='password 不能为空';return false}
var X=new ActiveXObject("Msxml2.XMLHTTP");
if(X){
GE('regsubmit').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','reg.asp',true);
X.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
var SendData = 'username='+GE('username').value+'&password='+GE('password').value+'&email='+GE('email').value
X.send(SendData)
}
else{
GE('msg').innerHTML='你的浏览器不支持XMLHttpRequest'
}
}

</script>
<style type="text/css">

</style>
</head>
<body>
<div id="msg"></div>
<h2>Ajax应用实例: asp+mdb数据库注册模块例子</h2>

ID:
<label>
<input name="username" type="text" id="username" size="20" maxlength="20" />
</label>
Password:
<input name="password" type="password" id="password" size="20" maxlength="20" />
email
<label>
<input name="email" type="text" id="email" size="20" maxlength="100" />
</label>
<input type="submit" id="regsubmit" value="注册" onclick="Check()" />
</body>
</html>

reg.asp

<%@ LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim conn,connstr
set conn=Server.CreateObject("ADODB.Connection")
connstr ="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db.mdb") '
conn.open connstr

Dim username, password, email,str
username=trim(Request.Form("username"))
password=trim(Request.Form("password"))
email=Request.Form("email")

If username="" or password="" then
str = "用名和PASSWORD必须填写"
Else
set rs=Server.CreateObject("adodb.recordset")
sql="select * from userlist where username='"&username&"'"
rs.open sql,conn,1,3

If rs.eof Then
rs.addnew
rs("username")=username
rs("password")=regpassword
rs("email")=email
rs.update
rs.close
set rs=Nothing
str = "注册成功<br>用名为" & username & " , 密码为" & password& " <br> Email为" & email

Else
str = "注册失败,ID已经存在"
End If
End if
Response.Write "GE('msg').innerHTML='" & str & "';GE('regsubmit').disabled=false"
Response.End
%>

数据库:
db.mdb
表:
userlist
字段
id 自动编号
username 文本 100
passowrd 文字 100

Download