下面是reg.htm代码：
<% @Language="JavaScript" %>
<%
function OpenDB(sdbname)
{
var connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(sdbname);
var conn = Server.CreateObject("ADODB.Connection");
conn.Open(connstr);
return conn;
}
var sResult = "";
var oConn = OpenDB("data.mdb");
//特殊字符：+,%,&,=,?等的传输解决办法.客户端字符是经过escape编码的
//所以服务器端先要经过unescape解码.
//Update:2004-6-1 12:22
var userid = unescape(Request("userid"));
var sql = "select username from users where userid=’"+userid+"’";
var rs = oConn.Execute(sql);
if(!rs.EOF)
{
sResult = "Sorry,该用户名已存在"
}
else
{
//加入容错.2006-12-25 10:15
sResult = "该用户可以注册"
}
//escape解决了XMLHTTP。中文处理的问题.
Response.Write(escape(sResult));
%>
userid:<input type="text" name="userid" onblur="GetResult(document.all.userid.value)"><br>
username:<input type="text" name="username">
下面是server.asp代码：
<% @Language="JavaScript" %>
<%
function OpenDB(sdbname)
{
var connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(sdbname);
var conn = Server.CreateObject("ADODB.Connection");
conn.Open(connstr);
return conn;
}
var sResult = "";
var oConn = OpenDB("data.mdb");
//特殊字符：+,%,&,=,?等的传输解决办法.客户端字符是经过escape编码的
//所以服务器端先要经过unescape解码.
//Update:2004-6-1 12:22
var userid = unescape(Request("userid"));
var sql = "select username from users where userid=’"+userid+"’";
var rs = oConn.Execute(sql);
if(!rs.EOF)
{
sResult = "Sorry,该用户名已存在"
}
else
{
//加入容错.2006-12-25 10:15
sResult = "该用户可以注册"
}
//escape解决了XMLHTTP。中文处理的问题.
Response.Write(escape(sResult));
%>
mdb数据库名：data.mdb
表：users
表结构：id(自动编号) userid(文本) username(文本)
到此，源代码和数据库就完成了，因为用的是：onblur事件，当光标的焦点离开时，input值会马上传到数据库验证，马上试试吧！