- 在线时间
- 671 小时
- 专家
- 0
- UID
- 347722
- 注册时间
- 2007-4-16
- 帖子
- 345
- 精华
- 0
- 积分
- 674
- 离线
- 1261 天
- 帖子
- 345
- 体力
- 674
- 威望
- 0
|
发表于 2007-6-29 17:49:33
|显示全部楼层
我做了个,很简陋的。名字就是数据库上name字段。
Cindex.asp
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
- <html>
- <head>
- <title>Untitled Document</title>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
- </head>
- <body>
- <form name="Mform" method="post">
- 用户名:<input type="text" name="UserName" onBlur="checkF(this)"> <div id="msg"></div> <br>
- 密码:<input type="password" name="pwd"><br>
- </form>
- <script type="text/javascript">
- function AJAXconnection(Mname) {
- var xmlhttp;
- var tt;
-
- if(window.ActiveXObject) {
- xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
- }else if(window.XMLHttpRequest) {
- xmlhttp=new XMLHttpRequest();
- }
- if (xmlhttp) {
- xmlhttp.onreadystatechange=function() {
- if(4==xmlhttp.readyState) {
- if(200==xmlhttp.status) {
- tt=xmlhttp.responseText;
- showmsg(tt);
- }else {
- alert("error")
- }
- }
- }
- xmlhttp.open("get","Cdeal.asp?username="+escape(Mname));
- xmlhttp.send(null);
- }
- }
- function checkF(MM){
- if (MM.value=="") {
- return;
- }
- AJAXconnection(MM.value);
- }
- function showmsg(tmsg) {
- if (tmsg==0) {
- document.getElementById("msg").innerHTML="此用户已存在";
- }else {
- document.getElementById("msg").innerHTML="可注册";
- }
- }
- </script>
- </body>
- </html>
复制代码
Cdeal.asp
- <%
- dim conn,connstr,rs,sqlcmd,username
- connstr="Driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("mydata.mdb")
- set conn=server.CreateObject("ADODB.connection")
- conn.open connstr
- username=unescape(request.QueryString("username"))
- if username<>"" then
- sqlcmd="select * from contact where name = '"&username&"'"
- set rs=conn.execute(sqlcmd)
- if rs.EOF then
- response.Write("1")
- else
- response.Write("0")
- end if
- end if
- %>
复制代码
[ 本帖最后由 waif 于 2007-6-29 17:52 编辑 ] |
附件: 你需要登录才可以下载或查看附件。没有帐号?注册
|