开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 技术交流 › ASP技术 › asp+access 实现登录和注册（新手学习用）
返回列表 发新帖
查看: 1104|回复: 0

[文章教程] asp+access 实现登录和注册（新手学习用）

[复制链接]
ttasp 发表于 2019-3-20 20:13:03 | 显示全部楼层 |阅读模式
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  3. <html xmlns="http://www.w3.org/1999/xhtml">
  4. <head>
  5. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  6. <title>登录、注册</title>
  7. </head>
  8. <body>
  9. <form action="conn.asp" method="post" name="form" target="_parent">
  10. <table width="345" height="124" border="1">
  11.   <tr>
  12.     <td colspan="2"><div align="center">会员登录</div></td>
  13.     </tr>
  14.   <tr>
  15.     <td width="111"><div align="right">用户名</div></td>
  16.     <td width="218"><input type="text" name="use_zh" /></td>
  17.   </tr>
  18.   <tr>
  19.     <td><div align="right">密码</div></td>
  20.     <td><input type="password" name="use_mm" /></td>
  21.   </tr>
  22.   <tr>
  23.     <td colspan="2"><button type="submit">提交</button><button type="reset">清空</button></td>
  24.     </tr>
  25. </table>
  26. </form>


  29. <form action="zc.asp" method="post" name="form" target="_parent">
  30. <table width="345" height="124" border="1">
  31.   <tr>
  32.     <td colspan="2"><div align="center">会员登录</div></td>
  33.     </tr>
  34.   <tr>
  35.     <td width="111"><div align="right">用户名</div></td>
  36.     <td width="218"><input type="text" name="use_zh" /></td>
  37.   </tr>
  38.   <tr>
  39.     <td><div align="right">密码</div></td>
  40.     <td><input type="password" name="use_mm" /></td>
  41.   </tr>
  42.   <tr>
  43.     <td colspan="2"><button type="submit">提交</button><button type="reset">清空</button></td>
  44.     </tr>
  45. </table>
  46. </form>
  47. </body>
  48. </html>



  52. 登录验证页面


  55. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  56. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  57. <html xmlns="http://www.w3.org/1999/xhtml">
  58. <head>
  59. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  60. <title>登录处理页面</title>
  61. </head>
  62. <body>
  63. <%
  64.         set conn=server.CreateObject("adodb.connection")
  65.         sql="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("zc_dl.mdb")
  66.         conn.open(sql)                                                                    '打开数据库
  67.        
  68.         yh=request.Form("use_zh")
  69.         mm=request.Form("use_mm")                                                         '接收登录页面的用户名和密码
  70.        
  71.         set rs=server.CreateObject("adodb.recordset")
  72.         sqll="select * from a1 where use_zh='"&yh&"' and use_mm='"&mm&"'"                 '查找数据库中是否有匹配的用户名和密码
  73.         rs.open sqll,conn,1,3
  74.         if rs.Eof then                                                                    '如果没有将提示以下的信息并返回登录页面
  75. %>
  76. <script language="javascript">
  77. {
  78.         alert("用户名、密码不正确");
  79.         window.location.href="index.asp"
  80. }
  81. </script>
  82. <%                                                                                    '匹配成功返回以下以下内容并结束判断语句
  83.         else
  84.         session("yh")=yh
  85.         session("by")=rs("bh")
  86.         response.Write("欢迎光临")
  87.         response.Write(session("yh"))
  88.         end if
  89. %>
  90. </body>
  91. </html>




  96. 注册验证页面


  99. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  100. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  101. <html xmlns="http://www.w3.org/1999/xhtml">
  102. <head>
  103. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  104. <title>注册处理页面</title>
  105. </head>
  106. <body>
  107. <%
  108.         set conn=server.CreateObject("adodb.connection")
  109.         sql="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("zc_dl.mdb")
  110.         conn.open(sql)                                                                    '连接数据库
  111.        
  112.         yh=request.Form("use_zh")
  113.         mm=request.Form("use_mm")                                                          '接收注册页面的用户名和密码
  114.        
  115.         set rs=server.CreateObject("adodb.recordset")
  116.         sqll="select * from a1"
  117.         rs.open sqll,conn,1,3                                                              '打到zc_dl.mdb文件中a1表
  118.        
  119.         rs.addnew
  120.         rs("use_zh")=yh
  121.         rs("use_mm")=mm
  122.         rs.update                                                                           ' 将接收到的用户名和密码写入a1表
  123.        
  124.         rs.close
  125.         set rs=nothing                                                                       '关闭数据库
  126. %>
  127. <script>
  128. {
  129. alert("注册成功，帮您转回登录页面");
  130. window.location.href="index.asp"
  131. }                                                                                        /*提示注册成功*/
  132. </script>
  133. </body>
  134. </html>

  136. 数据库文件名为：zc_dl.mdb

  138. 保存的表名为：a1

  140. 表字段名包括：bh(自动编号)  use_zh（文本）  use_mm（文本）
复制代码
ASP币如何冲？请看这里
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号