aspVbScript+access数据实现登录注册系统（新手代码）
需要用到的数据库是access数据库，具体怎么做要看个人的理解能力，我使用的软件是Dreamweaver cs6版本，代码如有差异自行修改
废话不多说来看代码吧（注意：记得看注释哟）
首页：index.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp" --><!--链接数据库代码-->
<!--#include file="md5.asp"--> <!--链接数据库代码-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>用户登陆</title>
<style type="text/css"><!--整体的css样式-->
body{ background:#eee}
a{ text-decoration:none; color:#FFF}
.a{ width:100%; max-width:500px ;height:350px; border:1px solid #FFF; background:#FFF; margin:0 auto; border-radius:25px; margin-top:150px}
.a_a{ margin:10px}
.a_b{ margin:10px}
#button{ background:#09F; color:#FFF; width:80px; margin:20px; height:30px; font-size:16px;}
h1{ margin:10px; font-family:黑体}
ul li{ list-style:none; margin:10px}
#pw{ width:200px; height:25px; font-size:16px}
#us{ width:200px; height:25px; font-size:16px}
form{ margin-top:100px; width:100%; height:400px}
</style>
</head>
<body style="margin:10px">
<form action="?win=login" method="post" id="form1" name="form1" class="a">
<h1 align="center" style="color:#0CF">欢迎登陆</h1>
<table align="center" style="margin-top:50px">
<tr>
<td><img src="imag/yh.png" width="35px" height="35px" /></td><td><input type="text" name="username" id="us" placeholder="请输入登陆账号" /></td>
</tr>
<tr>
<td><img src="imag/mm.png" width="35px" height="35px" /></td><td><input type="password" name="password" id="pw" placeholder="请输入登陆密码" /></td>
</tr>
</table>
<div align="center">
<button type="submit" id="button" name="button">登录</button>
<a href="zc.asp"><button type="button" id="button" name="button">注册</button></a>
</div>
</form>
<div align="right">
<p align="right"><a target="_blank" href="http://wpa.qq.com/msgrd?v=3&uin=2644334188&site=qq&menu=yes"><img border="0" src="http://wpa.qq.com/pa?p=2:2644334188:53" alt="点击这里给我发消息" title="点击这里给我发消息"/></a></p>
</body>
</html>
<%
if request("win")="login" then '判断参数是否正确
us=trim(request("username"))'帐号
pw=trim(request("password"))'密码
if us="" or pw="" then '判断帐号密码不能为空
response.Write"<script>alert('帐号、密码不能为空！');parent.window.history.go(-1);</script>"'提示返回
else
set rs=server.CreateObject("adodb.recordset")
sql="select * from [yh_mm] where username='"&us&"'" '记录集筛选，yh_mm可替换成你的
rs.open sql,conn,1,1 '（1,1为只读数据,1,3为插入数据，2,3是修改数据)
if not rs.eof then '如果rs不为空
if rs("password")=md5(pw) then'把密码用md5加密
session("username")=rs("username")
session("phone")=rs("phone")
session("mail")=rs("mail")
session("ident")=rs("ident")
response.Write"<script>alert('登陆成功');location='manage/'</script>"
else
response.Write"<script>alert('密码输入错误');parent.window.history.go(-1)</script>"
end if'结束判断
else
response.Write"<script>alert('输入的账号不存在！');parent.window.history.go(-1);</script>"
end if
end if
end if
%>
conn.asp代码如下：
<!-- 数据库连接 数据库名：wz.mdb --> <% Set conn = server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("wz.mdb") conn.open connstr %>
md5代码如下：
<% private const bits_to_a_byte = 8 private const bytes_to_a_word = 4 private const bits_to_a_word = 32 private m_lonbits(30) private m_l2power(30) private function lshift(lvalue, ishiftbits) if ishiftbits = 0 then lshift = lvalue exit function elseif ishiftbits = 31 then if lvalue and 1 then lshift = &h80000000 else lshift = 0 end if exit function elseif ishiftbits < 0 or ishiftbits > 31 then err.raise 6 end if if (lvalue and m_l2power(31 - ishiftbits)) then lshift = ((lvalue and m_lonbits(31 - (ishiftbits + 1))) * m_l2power(ishiftbits)) or &h80000000 else lshift = ((lvalue and m_lonbits(31 - ishiftbits)) * m_l2power(ishiftbits)) end if end function private function rshift(lvalue, ishiftbits) if ishiftbits = 0 then rshift = lvalue exit function elseif ishiftbits = 31 then if lvalue and &h80000000 then rshift = 1 else rshift = 0 end if exit function elseif ishiftbits < 0 or ishiftbits > 31 then err.raise 6 end if rshift = (lvalue and &h7ffffffe) \ m_l2power(ishiftbits) if (lvalue and &h80000000) then rshift = (rshift or (&h40000000 \ m_l2power(ishiftbits - 1))) end if end function private function rotateleft(lvalue, ishiftbits) rotateleft = lshift(lvalue, ishiftbits) or rshift(lvalue, (32 - ishiftbits)) end function private function addunsigned(lx, ly) dim lx4 dim ly4 dim lx8 dim ly8 dim lresult lx8 = lx and &h80000000 ly8 = ly and &h80000000 lx4 = lx and &h40000000 ly4 = ly and &h40000000 lresult = (lx and &h3fffffff) + (ly and &h3fffffff) if lx4 and ly4 then lresult = lresult xor &h80000000 xor lx8 xor ly8 elseif lx4 or ly4 then if lresult and &h40000000 then lresult = lresult xor &hc0000000 xor lx8 xor ly8 else lresult = lresult xor &h40000000 xor lx8 xor ly8 end if else lresult = lresult xor lx8 xor ly8 end if addunsigned = lresult end function private function md5_f(x, y, z) md5_f = (x and y) or ((not x) and z) end function private function md5_g(x, y, z) md5_g = (x and z) or (y and (not z)) end function private function md5_h(x, y, z) md5_h = (x xor y xor z) end function private function md5_i(x, y, z) md5_i = (y xor (x or (not z))) end function private sub md5_ff(a, b, c, d, x, s, ac) a = addunsigned(a, addunsigned(addunsigned(md5_f(b, c, d), x), ac)) a = rotateleft(a, s) a = addunsigned(a, b) end sub private sub md5_gg(a, b, c, d, x, s, ac) a = addunsigned(a, addunsigned(addunsigned(md5_g(b, c, d), x), ac)) a = rotateleft(a, s) a = addunsigned(a, b) end sub private sub md5_hh(a, b, c, d, x, s, ac) a = addunsigned(a, addunsigned(addunsigned(md5_h(b, c, d), x), ac)) a = rotateleft(a, s) a = addunsigned(a, b) end sub private sub md5_ii(a, b, c, d, x, s, ac) a = addunsigned(a, addunsigned(addunsigned(md5_i(b, c, d), x), ac)) a = rotateleft(a, s) a = addunsigned(a, b) end sub private function converttowordarray(smessage) dim lmessagelength dim lnumberofwords dim lwordarray() dim lbyteposition dim lbytecount dim lwordcount const modulus_bits = 512 const congruent_bits = 448 lmessagelength = len(smessage) lnumberofwords = (((lmessagelength + ((modulus_bits - congruent_bits) \ bits_to_a_byte)) \ (modulus_bits \ bits_to_a_byte)) + 1) * (modulus_bits \ bits_to_a_word) redim lwordarray(lnumberofwords - 1) lbyteposition = 0 lbytecount = 0 do until lbytecount >= lmessagelength lwordcount = lbytecount \ bytes_to_a_word lbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byte lwordarray(lwordcount) = lwordarray(lwordcount) or lshift(asc(mid(smessage, lbytecount + 1, 1)), lbyteposition) lbytecount = lbytecount + 1 loop lwordcount = lbytecount \ bytes_to_a_word lbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byte lwordarray(lwordcount) = lwordarray(lwordcount) or lshift(&h80, lbyteposition) lwordarray(lnumberofwords - 2) = lshift(lmessagelength, 3) lwordarray(lnumberofwords - 1) = rshift(lmessagelength, 29) converttowordarray = lwordarray end function private function wordtohex(lvalue) dim lbyte dim lcount for lcount = 0 to 3 lbyte = rshift(lvalue, lcount * bits_to_a_byte) and m_lonbits(bits_to_a_byte - 1) wordtohex = wordtohex & right("0" & hex(lbyte), 2) next end function public function md5(smessage) m_lonbits(0) = clng(1) m_lonbits(1) = clng(3) m_lonbits(2) = clng(7) m_lonbits(3) = clng(15) m_lonbits(4) = clng(31) m_lonbits(5) = clng(63) m_lonbits(6) = clng(127) m_lonbits(7) = clng(255) m_lonbits(8) = clng(511) m_lonbits(9) = clng(1023) m_lonbits(10) = clng(2047) m_lonbits(11) = clng(4095) m_lonbits(12) = clng(8191) m_lonbits(13) = clng(16383) m_lonbits(14) = clng(32767) m_lonbits(15) = clng(65535) m_lonbits(16) = clng(131071) m_lonbits(17) = clng(262143) m_lonbits(18) = clng(524287) m_lonbits(19) = clng(1048575) m_lonbits(20) = clng(2097151) m_lonbits(21) = clng(4194303) m_lonbits(22) = clng(8388607) m_lonbits(23) = clng(16777215) m_lonbits(24) = clng(33554431) m_lonbits(25) = clng(67108863) m_lonbits(26) = clng(134217727) m_lonbits(27) = clng(268435455) m_lonbits(28) = clng(536870911) m_lonbits(29) = clng(1073741823) m_lonbits(30) = clng(2147483647) m_l2power(0) = clng(1) m_l2power(1) = clng(2) m_l2power(2) = clng(4) m_l2power(3) = clng(8) m_l2power(4) = clng(16) m_l2power(5) = clng(32) m_l2power(6) = clng(64) m_l2power(7) = clng(128) m_l2power(8) = clng(256) m_l2power(9) = clng(512) m_l2power(10) = clng(1024) m_l2power(11) = clng(2048) m_l2power(12) = clng(4096) m_l2power(13) = clng(8192) m_l2power(14) = clng(16384) m_l2power(15) = clng(32768) m_l2power(16) = clng(65536) m_l2power(17) = clng(131072) m_l2power(18) = clng(262144) m_l2power(19) = clng(524288) m_l2power(20) = clng(1048576) m_l2power(21) = clng(2097152) m_l2power(22) = clng(4194304) m_l2power(23) = clng(8388608) m_l2power(24) = clng(16777216) m_l2power(25) = clng(33554432) m_l2power(26) = clng(67108864) m_l2power(27) = clng(134217728) m_l2power(28) = clng(268435456) m_l2power(29) = clng(536870912) m_l2power(30) = clng(1073741824) dim x dim k dim aa dim bb dim cc dim dd dim a dim b dim c dim d const s11 = 7 const s12 = 12 const s13 = 17 const s14 = 22 const s21 = 5 const s22 = 9 const s23 = 14 const s24 = 20 const s31 = 4 const s32 = 11 const s33 = 16 const s34 = 23 const s41 = 6 const s42 = 10 const s43 = 15 const s44 = 21 x = converttowordarray(smessage) a = &h67452301 b = &hefcdab89 c = &h98badcfe d = &h10325476 for k = 0 to ubound(x) step 16 aa = a bb = b cc = c dd = d md5_ff a, b, c, d, x(k + 0), s11, &hd76aa478 md5_ff d, a, b, c, x(k + 1), s12, &he8c7b756 md5_ff c, d, a, b, x(k + 2), s13, &h242070db md5_ff b, c, d, a, x(k + 3), s14, &hc1bdceee md5_ff a, b, c, d, x(k + 4), s11, &hf57c0faf md5_ff d, a, b, c, x(k + 5), s12, &h4787c62a md5_ff c, d, a, b, x(k + 6), s13, &ha8304613 md5_ff b, c, d, a, x(k + 7), s14, &hfd469501 md5_ff a, b, c, d, x(k + 8), s11, &h698098d8 md5_ff d, a, b, c, x(k + 9), s12, &h8b44f7af md5_ff c, d, a, b, x(k + 10), s13, &hffff5bb1 md5_ff b, c, d, a, x(k + 11), s14, &h895cd7be md5_ff a, b, c, d, x(k + 12), s11, &h6b901122 md5_ff d, a, b, c, x(k + 13), s12, &hfd987193 md5_ff c, d, a, b, x(k + 14), s13, &ha679438e md5_ff b, c, d, a, x(k + 15), s14, &h49b40821 md5_gg a, b, c, d, x(k + 1), s21, &hf61e2562 md5_gg d, a, b, c, x(k + 6), s22, &hc040b340 md5_gg c, d, a, b, x(k + 11), s23, &h265e5a51 md5_gg b, c, d, a, x(k + 0), s24, &he9b6c7aa md5_gg a, b, c, d, x(k + 5), s21, &hd62f105d md5_gg d, a, b, c, x(k + 10), s22, &h2441453 md5_gg c, d, a, b, x(k + 15), s23, &hd8a1e681 md5_gg b, c, d, a, x(k + 4), s24, &he7d3fbc8 md5_gg a, b, c, d, x(k + 9), s21, &h21e1cde6 md5_gg d, a, b, c, x(k + 14), s22, &hc33707d6 md5_gg c, d, a, b, x(k + 3), s23, &hf4d50d87 md5_gg b, c, d, a, x(k + 8), s24, &h455a14ed md5_gg a, b, c, d, x(k + 13), s21, &ha9e3e905 md5_gg d, a, b, c, x(k + 2), s22, &hfcefa3f8 md5_gg c, d, a, b, x(k + 7), s23, &h676f02d9 md5_gg b, c, d, a, x(k + 12), s24, &h8d2a4c8a md5_hh a, b, c, d, x(k + 5), s31, &hfffa3942 md5_hh d, a, b, c, x(k + 8), s32, &h8771f681 md5_hh c, d, a, b, x(k + 11), s33, &h6d9d6122 md5_hh b, c, d, a, x(k + 14), s34, &hfde5380c md5_hh a, b, c, d, x(k + 1), s31, &ha4beea44 md5_hh d, a, b, c, x(k + 4), s32, &h4bdecfa9 md5_hh c, d, a, b, x(k + 7), s33, &hf6bb4b60 md5_hh b, c, d, a, x(k + 10), s34, &hbebfbc70 md5_hh a, b, c, d, x(k + 13), s31, &h289b7ec6 md5_hh d, a, b, c, x(k + 0), s32, &heaa127fa md5_hh c, d, a, b, x(k + 3), s33, &hd4ef3085 md5_hh b, c, d, a, x(k + 6), s34, &h4881d05 md5_hh a, b, c, d, x(k + 9), s31, &hd9d4d039 md5_hh d, a, b, c, x(k + 12), s32, &he6db99e5 md5_hh c, d, a, b, x(k + 15), s33, &h1fa27cf8 md5_hh b, c, d, a, x(k + 2), s34, &hc4ac5665 md5_ii a, b, c, d, x(k + 0), s41, &hf4292244 md5_ii d, a, b, c, x(k + 7), s42, &h432aff97 md5_ii c, d, a, b, x(k + 14), s43, &hab9423a7 md5_ii b, c, d, a, x(k + 5), s44, &hfc93a039 md5_ii a, b, c, d, x(k + 12), s41, &h655b59c3 md5_ii d, a, b, c, x(k + 3), s42, &h8f0ccc92 md5_ii c, d, a, b, x(k + 10), s43, &hffeff47d md5_ii b, c, d, a, x(k + 1), s44, &h85845dd1 md5_ii a, b, c, d, x(k + 8), s41, &h6fa87e4f md5_ii d, a, b, c, x(k + 15), s42, &hfe2ce6e0 md5_ii c, d, a, b, x(k + 6), s43, &ha3014314 md5_ii b, c, d, a, x(k + 13), s44, &h4e0811a1 md5_ii a, b, c, d, x(k + 4), s41, &hf7537e82 md5_ii d, a, b, c, x(k + 11), s42, &hbd3af235 md5_ii c, d, a, b, x(k + 2), s43, &h2ad7d2bb md5_ii b, c, d, a, x(k + 9), s44, &heb86d391 a = addunsigned(a, aa) b = addunsigned(b, bb) c = addunsigned(c, cc) d = addunsigned(d, dd) next md5 = lcase(wordtohex(a) & wordtohex(b) & wordtohex(c) & wordtohex(d)) 'md5=lcase(wordtohex(b) & wordtohex(c)) 'i crop this to fit 16byte database password :d md5=ucase(md5) end function public function md5_16(smessage) m_lonbits(0) = clng(1) m_lonbits(1) = clng(3) m_lonbits(2) = clng(7) m_lonbits(3) = clng(15) m_lonbits(4) = clng(31) m_lonbits(5) = clng(63) m_lonbits(6) = clng(127) m_lonbits(7) = clng(255) m_lonbits(8) = clng(511) m_lonbits(9) = clng(1023) m_lonbits(10) = clng(2047) m_lonbits(11) = clng(4095) m_lonbits(12) = clng(8191) m_lonbits(13) = clng(16383) m_lonbits(14) = clng(32767) m_lonbits(15) = clng(65535) m_lonbits(16) = clng(131071) m_lonbits(17) = clng(262143) m_lonbits(18) = clng(524287) m_lonbits(19) = clng(1048575) m_lonbits(20) = clng(2097151) m_lonbits(21) = clng(4194303) m_lonbits(22) = clng(8388607) m_lonbits(23) = clng(16777215) m_lonbits(24) = clng(33554431) m_lonbits(25) = clng(67108863) m_lonbits(26) = clng(134217727) m_lonbits(27) = clng(268435455) m_lonbits(28) = clng(536870911) m_lonbits(29) = clng(1073741823) m_lonbits(30) = clng(2147483647) m_l2power(0) = clng(1) m_l2power(1) = clng(2) m_l2power(2) = clng(4) m_l2power(3) = clng(8) m_l2power(4) = clng(16) m_l2power(5) = clng(32) m_l2power(6) = clng(64) m_l2power(7) = clng(128) m_l2power(8) = clng(256) m_l2power(9) = clng(512) m_l2power(10) = clng(1024) m_l2power(11) = clng(2048) m_l2power(12) = clng(4096) m_l2power(13) = clng(8192) m_l2power(14) = clng(16384) m_l2power(15) = clng(32768) m_l2power(16) = clng(65536) m_l2power(17) = clng(131072) m_l2power(18) = clng(262144) m_l2power(19) = clng(524288) m_l2power(20) = clng(1048576) m_l2power(21) = clng(2097152) m_l2power(22) = clng(4194304) m_l2power(23) = clng(8388608) m_l2power(24) = clng(16777216) m_l2power(25) = clng(33554432) m_l2power(26) = clng(67108864) m_l2power(27) = clng(134217728) m_l2power(28) = clng(268435456) m_l2power(29) = clng(536870912) m_l2power(30) = clng(1073741824) dim x dim k dim aa dim bb dim cc dim dd dim a dim b dim c dim d const s11 = 7 const s12 = 12 const s13 = 17 const s14 = 22 const s21 = 5 const s22 = 9 const s23 = 14 const s24 = 20 const s31 = 4 const s32 = 11 const s33 = 16 const s34 = 23 const s41 = 6 const s42 = 10 const s43 = 15 const s44 = 21 x = converttowordarray(smessage) a = &h67452301 b = &hefcdab89 c = &h98badcfe d = &h10325476 for k = 0 to ubound(x) step 16 aa = a bb = b cc = c dd = d md5_ff a, b, c, d, x(k + 0), s11, &hd76aa478 md5_ff d, a, b, c, x(k + 1), s12, &he8c7b756 md5_ff c, d, a, b, x(k + 2), s13, &h242070db md5_ff b, c, d, a, x(k + 3), s14, &hc1bdceee md5_ff a, b, c, d, x(k + 4), s11, &hf57c0faf md5_ff d, a, b, c, x(k + 5), s12, &h4787c62a md5_ff c, d, a, b, x(k + 6), s13, &ha8304613 md5_ff b, c, d, a, x(k + 7), s14, &hfd469501 md5_ff a, b, c, d, x(k + 8), s11, &h698098d8 md5_ff d, a, b, c, x(k + 9), s12, &h8b44f7af md5_ff c, d, a, b, x(k + 10), s13, &hffff5bb1 md5_ff b, c, d, a, x(k + 11), s14, &h895cd7be md5_ff a, b, c, d, x(k + 12), s11, &h6b901122 md5_ff d, a, b, c, x(k + 13), s12, &hfd987193 md5_ff c, d, a, b, x(k + 14), s13, &ha679438e md5_ff b, c, d, a, x(k + 15), s14, &h49b40821 md5_gg a, b, c, d, x(k + 1), s21, &hf61e2562 md5_gg d, a, b, c, x(k + 6), s22, &hc040b340 md5_gg c, d, a, b, x(k + 11), s23, &h265e5a51 md5_gg b, c, d, a, x(k + 0), s24, &he9b6c7aa md5_gg a, b, c, d, x(k + 5), s21, &hd62f105d md5_gg d, a, b, c, x(k + 10), s22, &h2441453 md5_gg c, d, a, b, x(k + 15), s23, &hd8a1e681 md5_gg b, c, d, a, x(k + 4), s24, &he7d3fbc8 md5_gg a, b, c, d, x(k + 9), s21, &h21e1cde6 md5_gg d, a, b, c, x(k + 14), s22, &hc33707d6 md5_gg c, d, a, b, x(k + 3), s23, &hf4d50d87 md5_gg b, c, d, a, x(k + 8), s24, &h455a14ed md5_gg a, b, c, d, x(k + 13), s21, &ha9e3e905 md5_gg d, a, b, c, x(k + 2), s22, &hfcefa3f8 md5_gg c, d, a, b, x(k + 7), s23, &h676f02d9 md5_gg b, c, d, a, x(k + 12), s24, &h8d2a4c8a md5_hh a, b, c, d, x(k + 5), s31, &hfffa3942 md5_hh d, a, b, c, x(k + 8), s32, &h8771f681 md5_hh c, d, a, b, x(k + 11), s33, &h6d9d6122 md5_hh b, c, d, a, x(k + 14), s34, &hfde5380c md5_hh a, b, c, d, x(k + 1), s31, &ha4beea44 md5_hh d, a, b, c, x(k + 4), s32, &h4bdecfa9 md5_hh c, d, a, b, x(k + 7), s33, &hf6bb4b60 md5_hh b, c, d, a, x(k + 10), s34, &hbebfbc70 md5_hh a, b, c, d, x(k + 13), s31, &h289b7ec6 md5_hh d, a, b, c, x(k + 0), s32, &heaa127fa md5_hh c, d, a, b, x(k + 3), s33, &hd4ef3085 md5_hh b, c, d, a, x(k + 6), s34, &h4881d05 md5_hh a, b, c, d, x(k + 9), s31, &hd9d4d039 md5_hh d, a, b, c, x(k + 12), s32, &he6db99e5 md5_hh c, d, a, b, x(k + 15), s33, &h1fa27cf8 md5_hh b, c, d, a, x(k + 2), s34, &hc4ac5665 md5_ii a, b, c, d, x(k + 0), s41, &hf4292244 md5_ii d, a, b, c, x(k + 7), s42, &h432aff97 md5_ii c, d, a, b, x(k + 14), s43, &hab9423a7 md5_ii b, c, d, a, x(k + 5), s44, &hfc93a039 md5_ii a, b, c, d, x(k + 12), s41, &h655b59c3 md5_ii d, a, b, c, x(k + 3), s42, &h8f0ccc92 md5_ii c, d, a, b, x(k + 10), s43, &hffeff47d md5_ii b, c, d, a, x(k + 1), s44, &h85845dd1 md5_ii a, b, c, d, x(k + 8), s41, &h6fa87e4f md5_ii d, a, b, c, x(k + 15), s42, &hfe2ce6e0 md5_ii c, d, a, b, x(k + 6), s43, &ha3014314 md5_ii b, c, d, a, x(k + 13), s44, &h4e0811a1 md5_ii a, b, c, d, x(k + 4), s41, &hf7537e82 md5_ii d, a, b, c, x(k + 11), s42, &hbd3af235 md5_ii c, d, a, b, x(k + 2), s43, &h2ad7d2bb md5_ii b, c, d, a, x(k + 9), s44, &heb86d391 a = addunsigned(a, aa) b = addunsigned(b, bb) c = addunsigned(c, cc) d = addunsigned(d, dd) next 'md5 = lcase(wordtohex(a) & wordtohex(b) & wordtohex(c) & wordtohex(d)) md5_16=lcase(wordtohex(b) & wordtohex(c)) 'i crop this to fit 16byte database password :d md5_16=ucase(md5_16) end function %>
注册页面：zc.asp
（注意：记得看注释）
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp" --><!--连接数据库代码-->
<!--#include file="md5.asp"--><!--插入md5加密-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><!--gb2312中文编码-->
<title>用户注册</title>
<style type="text/css"><!--整体的css样式-->
body{ background:#eee}
.a{width:450px; height:350px; margin:0 auto; border-radius:10px; background:#FFF; margin-top:100px}
a{ color:#000; text-decoration:none;}
#button{ background:#0CF; font-size:16px; width:100px; height:40px; border-radius:20px 20px}
h1{ font-family:黑体}
#input{ width:150px; height:20px}
</style>
</head>
<body style="margin:10px">
<form method="post" action="?action=reg" class="a"><!--from表单-->
<table align="center" style=" margin-top:20px">
<a href="../index.asp"><img src="imag/left.png" width="40px" height="40px" /></a><!--返回index.asp-->
<tr>
<td colspan="2">
<h1 align="center">用户注册</h1></td>
</tr>
<tr>
<td>用户名</td>
<td><input type="text" name="username" autocomplete="off" id="input" /></td>
</tr>
<tr>
<td>密码</td>
<td><input name="password" type="password" id="input" /></td>
</tr>
<tr>
<td>手机号码</td>
<td><input type="text" name="phone" autocomplete="off" oninput="value=value.replace(/[^\d]/g,'')" id="input"/></td>
</tr>
<tr>
<td>邮箱</td>
<td><input type="text" name="mail" autocomplete="off" id="input"/></td>
<tr>
<td colspan="2">
<div align="center" style=" margin:5px">
<input name="button" id="button" type="submit" value="注册" /><!--注册按钮-->
</div></td>
</tr>
</table>
</form>
</body>
</html>
<%
if request("action")="reg" then
if request.Form("username")="" or request.Form("password")="" or request.Form("phone")="" or request.Form("mail")="" then
'判断用户名、密码、手机号、邮箱是否为空，任意一项为空则不通过
response.Write("<script>alert('都是必填项');history.go(-1);</script>")
'提示
else
if len(request.Form("username"))<4 then
'判断用户名是否小于四位数，如果小于四位数就不能通过
response.Write("<script>alert('用户名不能小于四个字');history.go(-1);</script>")
'弹窗提示
else
if len(request.Form("password"))<6 or len(request.Form("password"))>16 then '判断密码是否小于6位数并且不能大于16位数，如果小于或大于就不能通过并提示！
response.Write"<script>alert('密码不能小于6位数大于16位数');history.go(-1);</script>"
else
if len(request.Form("phone"))><11 then
'判断手机号码必须等于11位数，如果不等于便是不通过
response.Write"<script>alert('手机号码必须为11位！');history.go(-1);</script>"
else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [yh_mm]",conn,1,3
rs.addnew '建立一条空数据段
rs("username")=request.Form("username")'rs("字段")=值
rs("password")=md5(request.Form("password"))'rs("字段")=值
rs("phone")=request.Form("phone")'rs("字段")=值
rs("mail")=request.Form("mail")'rs("字段")=值
rs.update '写入数据到打开数据段
response.Write"<script>alert('注册成功！');location.href='index.asp'</script>"
'提示注册成功
response.End
end if'判断结束
end if'判断结束
end if'判断结束
end if'判断结束
end if'判断结束
%>
整体就是这样的啦。
