dreamweaver数据库制作注册网页
有一个人他做的软件,只能在登录器上注册,我想做一个可以再网上注册的。他的数据库我有,谁能给列下代码 例 数据库=数据库.mdb 数据库账号=账号 数据库密码=密码
数据库位置 http://127.0.0.1/数据库.mdb
谁能告诉我怎么写代码 上面的信息都是我举例的。 展开
zc.asp 这个是注册表介面
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Hyman系统管理注册表</title>
<style type="text/css">
<!--
.style1 {color: #FF0000}
.style4 {font-size: 12px; color: #0000FF; }
body {
background-color: #000000;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.style8 {color: #0000FF}
.style9 {color: #0000CC}
.style11 {font-size: 12px}
.style12 {color: #FFFF00}
-->
</style>
</head>
<body>
<form action="zcb.asp" method="post" name="zcb.asp" id="zcb.asp">
<table width="284" height="313" border="1" align="center" cellspacing="0">
<tr>
<td width="75"><span class="style4">用户名</span></td>
<td width="121"><input name="yhm" type="text" id="yhm" size="15">
</td>
<td width="74"><span class="style1">* <a href="index.asp" class="style11">点击登录</a></span></td>
</tr>
<tr>
<td><span class="style4">设置密码</span></td>
<td><input name="mm" type="password" id="mm" size="15">
</td>
<td><span class="style1">*</span></td>
</tr>
<tr>
<td><span class="style4">再次输入密码</span></td>
<td><input name="mm2" type="password" id="mm2" size="15">
</td>
<td><span class="style1">*</span></td>
</tr>
<tr>
<td><span class="style4">性别</span></td>
<td><span class="style11">
<input type="radio" name="xb" value="男">
<span class="style8">男
</span></span> <span class="style11">
<input type="radio" name="xb" value="女">
<span class="style9">女 </span></span></td>
<td><span class="style1">*</span></td>
</tr>
<tr>
<td><span class="style4">出生年月</span></td>
<td><input name="csny" type="text" id="csny" size="15">
</td>
<td><span class="style1">*</span></td>
</tr>
<tr>
<td><span class="style4">所在地区</span></td>
<td><input name="szdq" type="text" id="szdq" size="15">
</td>
<td><span class="style1">*</span></td>
</tr>
<tr>
<td><span class="style4">电子邮箱</span></td>
<td><input name="dzyx" type="text" id="dzyx" size="15">
</td>
<td><span class="style1">*</span></td>
</tr>
<tr>
<td><span class="style4">QQ</span></td>
<td><input name="qq" type="text" id="qq" size="15">
</td>
<td><span class="style1">*</span></td>
</tr>
<tr>
<td colspan="3"><div align="center">
<input name="zcb.asp" type="submit" id="zcb.asp" value="提交">
<input name="zc.htm" type="reset" id="zc.htm" value="重置">
</div></td>
</tr>
<tr>
<td height="37" colspan="3"><div align="center" class="style11">
<input type="radio" name="radiobutton" value="radiobutton">
<span class="style12"> 我已阅读并同意注册协议 </span></div></td>
</tr>
</table>
<table><embed src="http://www.ooloo.com.cn/blog/images/music/423/003.mp3"autostart="true" loop="true" hidden="true">
<style>
a {
text-decoration:none;
color:#fff;
}
a:hover {
text-decoration:underline;
color:#f00;
}
</style></table>
</form>
</body>
</html>
zcb.asp这个是注册表的提交,
<!--#include file="function.asp"-->
<%
Public Function IsEmail(ByVal PString)'公共函数定义
Dim Plt,Pgt : Plt = False : Pgt = False'定义变量
For x = 2 To Len(PString) - 1
If Mid(PString,x,1) = "@" Then Plt = True'Mid是asp的一个函数,这句话意思用来验证输入格式是否存在@
If Mid(PString,x,1) = "." And Plt = True Then Pgt = True'验证输入格式是否有. 如果有,plt,pgt=true(真)
Next
If Plt = True And Pgt = True Then '如果plt=true pgt=true(真)
IsEmail = True'然后isemail 为真
Else
IsEmail = False'否则 为False
End if
End Function'封闭函数
'上面这段就是验证表单文本输入中邮箱格式,可以使用DW自带功能,不过提示是英文%>
<%
'第一步:数据库的连接
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("zcb.mdb")
'第二步:获取变量
dim a ,b ,c ,d ,e ,f ,g ,h
a = request("yhm")
b = request("mm")
c = request("mm2")
d = request("xb")
e = request("csny")
f = request("szdq")
g = request("dzyx")
h = request("qq")
'第三步:打开数据表
set rs = server.createobject("adodb.recordset")
rs.open"select * from Hyman",conn,1,3
'第四步:数据表的基本操作:添加,删除,查询,修改
if a = "" or b = ""then
AlertAndGo "用户名或密码不能为空","zc.asp"
else
if b <> c then
AlertAndGo "两次输入密码不一致,请认真填写","zc.asp"
else
set rs = server.createobject("adodb.recordset")
rs.open"select * from [Hyman] where 用户名 = '"&a&"'",conn,1,3
if not rs.eof then
AlertAndGo"用户名已存在,返回重新输入","zc.asp"
else
if d = "" then
AlertAndGo "请选择你的性别","zc.asp"
else
if e ="" then
AlertAndGo "请输入你的出生年月","zc.asp"
else
if f ="" then
AlertAndGo "请填写你所在的地址","zc.asp"
else
if g ="" then
AlertAndGo "请输入你的电子邮箱","zc.asp"
else
if IsEmail(g) = false then
AlertAndGo "请输入您正确的邮箱","zc.asp"
else
if h ="" then
AlertAndGo "请输入你的QQ","zc.asp"
else
rs.addnew
rs("用户名") = a
rs("密码") = b
rs("性别") = d
rs("出生年月") = e
rs("所在地区") = f
rs("电子邮箱") = g
rs("QQ") = h
rs.update
AlertAndGo"注册成功","index.asp"
end if
end if
end if
end if
end if
end if
end if
end if
end if
'第五步:关闭数据表和数据库
rs.close
set rs = nothing
conn.close
%>
function.asp 这个是错误或正确提示代码:
<%
'弹出一个提示框并转向指定的页面
'用法:AlertAndGo"提示内容","目标页面URL"
Function AlertAndGo(str,url)
response.Write "<script language='javascript'>alert('"& str &"');window.location.href='"&url&"';</script>"
response.End()
End Function
'弹出一个提示框
'用法:Alert"提示内容"
Function Alert(str)
response.Write "<script language='javascript'>alert('"& str &"');</script>"
response.End()
End Function
'弹出一个提示框并转向返回
'用法:AlertAndBack"提示内容"
Function AlertAndBack(str)
response.Write "<script language='javascript'>alert('"& str &"');history.go(-1);</script>"
response.End()
End Function
%>
数据库自己设计一下,看图!
广告 您可能关注的内容 |