dreamweaver数据库制作注册网页

想做一个网页,可以在这个注册登录。有一个人他做的软件,只能在登录器上注册,我想做一个可以再网上注册的。他的数据库我有,谁能给列下代码例数据库=数据库.mdb数据库账号=账... 想做一个网页,可以在这个注册登录。
有一个人他做的软件,只能在登录器上注册,我想做一个可以再网上注册的。他的数据库我有,谁能给列下代码 例 数据库=数据库.mdb 数据库账号=账号 数据库密码=密码
数据库位置 http://127.0.0.1/数据库.mdb
谁能告诉我怎么写代码 上面的信息都是我举例的。
展开
 我来答
loveredzheng
2011-02-25 · TA获得超过171个赞
知道答主
回答量:60
采纳率:0%
帮助的人:67万
展开全部

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

%>

数据库自己设计一下,看图!

本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
ccppv
2011-02-25 · TA获得超过2994个赞
知道大有可为答主
回答量:5074
采纳率:40%
帮助的人:2938万
展开全部
你要是什么都不懂的话.那不好说.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
神爱墨迹
2011-02-25 · 超过54用户采纳过TA的回答
知道答主
回答量:298
采纳率:0%
帮助的人:162万
展开全部
用ASP吧 网上有教程
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式