会员注册源代码（会员下载源码）

本篇文章给大家谈谈会员注册源代码，以及会员下载源码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、JSP 想实现会员注册时，系统自动发送邮件到用户邮箱实现点击激活，网上有例子，但只是原理，如何实现？
• 2、asp程序实现简单的注册，登录网页的源代码
• 3、Java源代码：超市会员注册、登录、修改、删除
• 4、我用asp做一个注册会员的源码，怎么可以实现MD5加密后写入数据库？？？
• 5、求一个简单会员注册系统代码， 包括access文件。
• 6、会员系统源码

JSP 想实现会员注册时，系统自动发送邮件到用户邮箱实现点击激活，网上有例子，但只是原理，如何实现？

　一．程序源码：

（1） 发送文本类型信件．这种是接收者收到后打开信箱后直接显示在邮件正文的．它主要有两个程序: mailform.html and sendmail.jsp，另外三个程序为提交成功和不成功及发生内部错误的处理程序．

mailform.html用来输入用户信息，然后提交表单给sendmail.jsp

sendmail.jsp　用来处理接收信息并处理信息，最后发送邮件．

%--mailform.html 的源代码--%

!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

html

head

titlemailform.html/title

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

/head

body

form name="form1" method="post" action="sendmail.jsp"

p align="center"填写邮件内容/p

div align="center"

table width="75%" border="1"

tr

tddiv align="center"收件人/div/td

tddiv align="center"

input name="to" type="text" id="to" size="30" maxlength="30"

/div/td

/tr

tr

tddiv align="center"发件人/div/td

tddiv align="center"

input name="from" type="text" id="from" size="30" maxlength="30"

/div/td

/tr

tr

tddiv align="center"抄送/div/td

tddiv align="center"

input name="cc" type="text" id="cc" size="30" maxlength="100"

/div/td

/tr

tr

tddiv align="center"暗送/div/td

tddiv align="center"

input name="bcc" type="text" id="bcc" size="30" maxlength="100"

/div/td

/tr

tr

tddiv align="center"主题/div/td

tddiv align="center"

input name="subject" type="text" id="subject" size="30" maxlength="30"

/div/td

/tr

tr

td colspan="2"div align="center"

textarea name="body" cols="40" rows="10" id="body"/textarea

/div/td

/tr

tr

td colspan="2"div align="center"

input type="submit" name="Submit" value="发送"

input name="Reset" type="submit" id="Reset" value="清空"

/div/td

/tr

/table

/div

p align="center" /p

/form

p align="center" /p

/body

/html

%--sendmail.jsp 的源代码--%

%@page contentType="text/html;charset=gb2312"%

%@page errorPage="errpage.jsp"%

%@page import="java.util.*"%

%@page import="javax.mail.*"%

%@page import="javax.mail.internet.*"%

%@page import="javax.activation.*"%

html

head

titlesendmail.jsp/title

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

/head

body

%

//邮件服务器的IP地址,注意此时使用的是SMTP 邮件服务器

//String host="202.102.240.76";

//获取用户信息

String to=request.getParameter("to");

String from=request.getParameter("from");

String cc=request.getParameter("cc");

String bcc=request.getParameter("bcc");

//结合本程序的第一句,共同起显示汉字体的功能

String subject=request.getParameter("subject");

subject = new java.lang.String(subject.getBytes("iso-8859-1"));

//以上方法等同于以下两句,原理相同

//byte[] subjectTemp=request.getParameter("subject").getBytes("ISO8859_1");

//String subject=new String(subjectTemp);

byte[] messageTextTemp=request.getParameter("body").getBytes("ISO8859_1");

String messageText= new String(messageTextTemp);

boolean sessionDebug = false;

//验证所填写的邮件是否正确

if((to.trim().indexOf("@")==-1)||(to.trim().length()5)){

%

jsp:forward page="err.jsp"/

%

}

if((from.trim().indexOf("@")==-1)||(from.trim().length()5)){

%

jsp:forward page="err.jsp"/

%

}

//获得系统属性对象,用下两句的任一句均可

//Properties props = System.getProperties();

Properties props=new Properties();

//设置SMTP主机

//以下一句是对任意的SMTP 邮件服务器均可,并且有了这一句,将不用设置传输协议了

props.put("mail.smtp.host", "smtp.jspinsider.com");

//这样将确定接收方的邮件服务器主机,

//props.put("mail.host",host);

//设置邮件传输协议方式

//props.put("mail.transport.protocol","smtp");

//获取邮件会话对象

Session mailSession = Session.getDefaultInstance(props,null);

mailSession.setDebug(sessionDebug);

try{

//创建MIME邮件对象

Message msg = new MimeMessage(mailSession);

//设置发信人

msg.setFrom(new InternetAddress(from));

//设置收信人

InternetAddress[] addressTo = {new InternetAddress(to)};

msg.setRecipients(Message.RecipientType.TO,addressTo);

//设置抄送人

if(cc.trim().length()!=0){

InternetAddress[] addressCc = {new InternetAddress(cc)};

msg.setRecipients(Message.RecipientType.CC,addressCc);

}

//设置暗送人

if(bcc.trim().length()!=0){

InternetAddress[] addressBcc = {new InternetAddress(bcc)};

msg.setRecipients(Message.RecipientType.BCC,addressBcc);

}

msg.setSubject(subject);

msg.setSentDate(new Date());

msg.setText(messageText);

//发送邮件

Transport.send(msg);

}

catch(Except

jsp如何实现发送电子邮件2007年11月07日 星期三 下午 11:35

关键字：|发送到邮件功能实现|网站建设|功能组件|在线发邮件|文章发送到邮件|

一、准备工作很麻烦　整理：

1、下载javamail的包

java.sun.com/products/javamail/downloads/index.html

将 mail.jar 复制到 lib 目录中

2、下载activation 包

java.sun.com/products/javabeans/jaf/downloads/index.html

将activation.jar复制到 lib 目录中

3、再把服务器重启下

二、下面是一个简单的发送文本内容的例子，直接在jsp中进行操作。可以自己设置smtp的地址，用户名和密码，这是javamail最简单的应用，它的功能超强，可以发附件，可以收邮件等。

%@page contentType="text/html;charset=gb2312"%

%@ page import="javax.mail.*,javax.activation.*,javax.mail.internet.*,java.util.*"%

html

head

titleJavaMail 电子邮件发送/title

/head

body

%!

public class MailAuthenticator extends Authenticator{

String authenName;

String authenPass;

public MailAuthenticator(String authenName,String authenPass) {

super();

this.authenName=authenName;

this.authenPass=authenPass;

}

public PasswordAuthentication getPasswordAuthentication(){

return new PasswordAuthentication(authenName,authenPass);

}

}

%

%

MailAuthenticator ma = new MailAuthenticator("","");

//这里第一个参数是用户名,第二个是密码。 如果是匿名服务器，可以设置为空

Properties props = new Properties();

Session sendMailSession;

Transport transport;

sendMailSession = Session.getInstance(props,ma);

Message newMessage = new MimeMessage(sendMailSession);

newMessage.setFrom(new InternetAddress("test@test.com")); //发件人

newMessage.setRecipient(Message.RecipientType.TO, new InternetAddress("wxg_bj@yahoo.com.cn")); //目标邮箱

newMessage.setSubject("subject"); //这个是标题

newMessage.setSentDate(new Date());

newMessage.setText("text"); //文本内容

props.put("mail.smtp.host","192.168.0.1");//这里设置smtp服务器地址 ，我设置的是本机

props.put("mail.smtp.auth","true");//这里true代表需要密码验证，如果是匿名服务器，可以设置为false，当然，设置为ture也无所谓，只要名和密码设置为空

transport = sendMailSession.getTransport("smtp");

try{

transport.send(newMessage);

//发送

}catch(Exception e){

System.out.println(e);

}

%

/BODY

/HTML

项目导入mail.jar了吗?

protected PasswordAuthentication getPasswordAuthentication()

{

//这里的USER_NAME和USER_PWD分别写你的邮箱名和密码,不写密码怎么发送呢?

return new PasswordAuthentication(USER_NAME,USER_PWD);

//我看你是做了张jsp网页,然后通过request.getParameter获取页面值,那这也要接受的

}

这句话好象没写.

prop.put("mail.smtp.host",HOST_NAME);

最后补充一点.有时候代码完全正确,也会不能发送.因为你的邮箱没得到验证,近几年申请的普通邮箱都是没通过验证的.所以你是那种邮箱的话就没办法了.

asp程序实现简单的注册，登录网页的源代码

1，（index.asp 用户登陆页面）

!-- #include file="conn.asp" --

!-- blog.soowooo.cn 悠悠长假期 --

html

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

title会员/title

style type="text/css"

!--

body,td,th {

font-family: 宋体;

font-size: 14px;

}

--

/style

/head

body

center

p会员注册系统/p

form name="form1" method="post" action="login.asp"

table width="34%" border="0"

tr

td width="33%" height="30"用户名:/td

td width="67%" height="30"input name="username" type="text" id="username" size="15"/td

/tr

tr

td height="30"密 码:/td

td height="30"input name="password" type="password" id="password" size="15"/td

/tr

tr

td colspan="2" align="center"input type="submit" name="Submit" value="确定"

input type="reset" name="Submit" value="重置"/td

/tr

tr

td colspan="2"a href="reg.asp" target="_self"注册/a/td

/tr

/table

/form

/center

/body

/html

2，（login.asp 用户数据处理文件）

!-- #include file="conn.asp" --

%

'打开数据库判断用户是否存在,info为表名,username为字段名

set rsc=server.createobject("adodb.recordset")

sqlc="select * from info where username='"request.Form("username")"' and password='"request.Form("password")"'"

rsc.open sqlc,conn,1,1

session("username")=rsc("username")

session("password")=rsc("password")

session.Timeout=30

set rsc=nothing

response.Redirect("change.asp")

'如果用户不存在,session("username")为空

%

3，（change.asp 用户信息修改页面）

!-- #include file="conn.asp" --

html

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

title修改/title

style type="text/css"

!--

body,td,th {

font-size: 14px;

}

--

/style/head

center

body

br

%

set rsc=server.createobject("adodb.recordset")

sqlc="select * from info where username='"session("username")"' and password='"session("password")"'"

rsc.open sqlc,conn,1,1

nr=rsc("password")

username=rsc("username")

password=rsc("password")

sex=rsc("sex")

qq=rsc("qq")

mail=rsc("mail")

add=rsc("add")

personalinfo=rsc("personalinfo")

vv=rsc("ntime")

set rsc=nothing

if nr="" then

response.Redirect("index.asp")

end if

if strcomp(nr,request.Form("password"))=0 then

response.Write("欢迎你！"request.Form("username"))

response.Write("你是在"vv"注册的")

session("username")=request.Form("username")

end if

if session("username")="" then

response.Redirect("index.asp")

end if

%

form name="form1" method="post" action="change.asp?ac=ch"

table width="39%" height="105" border="0"

tr

td width="27%" height="30"用户名：/td

td width="73%" height="30"input name="username" type="text" id="username" value="%=username%"

*/td

/tr

tr

td height="30"密 码：/td

td height="30"input name="password" type="text" id="password" value="%=password%"

*/td

/tr

tr

td height="30"性 别：/td

td height="30"input name="sex" type="text" id="sex" value="%=sex%"/td

/tr

tr

td height="30"QQ：/td

td height="30"input name="qq" type="text" id="qq" value="%=qq%"/td

/tr

tr

td height="30"Mail：/td

td height="30"input name="mail" type="text" id="mail" value="%=mail%"/td

/tr

tr

td height="30"地 址：/td

td height="30"input name="add" type="text" id="add" value="%=add%"/td

/tr

tr

td介绍/td

tdtextarea name="personalinfo" cols="30" rows="6" id="personalinfo"%=personalinfo%/textarea/td

/tr

tr

td /td

tdinput type="submit" name="Submit" value="修改"

a href="change.asp?se=y" target="_self"退出系统/a/td

% if strcomp(request.QueryString("se"),"y")=0 then

session("username")=""

response.Redirect("index.asp")

end if

%

/tr

/table

/form

%

if strcomp(request.QueryString("ac"),"ch")=0 then

set rs=server.createobject("adodb.recordset")

sql="select * from info where username='"session("username")"'"

rs.open sql,conn,1,3

rs("username")=request.Form("username")

rs("password")=request.Form("password")

rs("mail")=request.Form("mail")

rs("sex")=request.Form("sex")

rs("qq")=request.Form("qq")

rs("add")=request.Form("add")

rs("personalinfo")=request.Form("personalinfo")

rs.update

set rs=nothing

response.Write("修改完成！")

end if

%

/body

/center

/html

4，（reg.asp 新用户注册页面）

html

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

title用户注册/title

style type="text/css"

!--

body,td,th {

font-family: 宋体;

font-size: 14px;

}

--

/style

/head

body

center

用户注册br

%

=request.QueryString("msg")

%

form name="form1" method="post" action="addnewdata.asp?ac=adduser"

table width="39%" height="105" border="0"

tr

td width="27%" height="30"用户名：/td

td width="73%" height="30"input name="username" type="text" id="username"

*/td

/tr

tr

td height="30"密码：/td

td height="30"input name="password" type="password" id="password"

*/td

/tr

tr

td height="30"确定密码：/td

td height="30"input name="password2" type="password" id="password2"

*/td

/tr

tr

td height="30"性别：/td

td height="30"input name="sex" type="text" id="sex"/td

/tr

tr

td height="30"QQ：/td

td height="30"input name="qq" type="text" id="qq"/td

/tr

tr

td height="30"Mail：/td

td height="30"input name="mail" type="text" id="mail"/td

/tr

tr

td height="30"地址：/td

td height="30"input name="add" type="text" id="add"/td

/tr

tr

td个人介绍/td

tdtextarea name="personalinfo" cols="30" rows="6" id="personalinfo"/textarea/td

/tr

tr

td /td

tdinput type="submit" name="Submit" value="提交"/td

/tr

/table

/form

/center

/body

/html

5，（addnewdata.asp 新用户注册数据处理文件）

!-- #include file="conn.asp" --

html

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

title成功/title

/head

body

%

ac=request.QueryString("ac")

msg="注册错误信息"

if request.Form("username")="" then

msg=msg"br""用户名不能为空"

end if

if strcomp(cstr(request.Form("password")),cstr(request.Form("password2")))0 then

msg=msg"br""两次密码输入不同"

end if

if len(request.Form("password"))6 then

msg=msg"br""密码太简单"

end if

if strcomp(msg,"注册错误信息")0 then

response.Redirect("reg.asp?msg="msg)

end if

if ac="adduser" then

set rsc=server.createobject("adodb.recordset")

sql="select * from info where username='"request.Form("username")"'"

rsc.open sql,conn,1,1

ck=rsc("username")

set rsc=nothing

if ck"" then

msg=msg"br""用户名被人注册"

response.Redirect("reg.asp?msg="msg)

end if

dsql="select * from info where id is null"

set rs=server.createobject("adodb.recordset")

rs.open dsql,conn,1,3

rs.addnew

rs("username")=request.Form("username")

rs("password")=request.Form("password")

rs("mail")=request.Form("mail")

rs("sex")=request.Form("sex")

rs("qq")=request.Form("qq")

rs("add")=request.Form("add")

rs("personalinfo")=request.Form("personalinfo")

rs("ntime")=now

rs.update

set rs=nothing

%

center

a href="index.asp" target="_self"注册成功,点击登陆/a

/center

%

end if

%

/body

/html

6，（conn.asp 数据库连接文件）

%

'连接数据库开始

dim conn,rs,sql

on error resume next

dbpath=server.mappath("userinfo.mdb")

set conn=server.createobject("adodb.connection")

conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="

'创建记录对象

set rs=server.createobject("adodb.recordset")

%

7，（userinfo.mdb ACCESS 数据库）

在ACCESS中建一个表，然后在这个表中建立字段名称

表名：info

字段名称 数据类型

id 自动编号

username 文本

password 文本

sex 文本

quest 文本

qq 文本

mail 文本

personalinfo 文本

ntime 文本

Java源代码：超市会员注册、登录、修改、删除

如果界面做好之后需要填充如下逻辑：

系统应用到的数据表的建立和Dao的操作封装，小系统建议使用jdbc；

在相应的界面事件监听中编写处理数据的逻辑，将需要显示的数据显示出来；

虽然业务不是很复杂，也涉及到了角色，权限，对数据库的增删改查等等，建议先把业务逻辑理清在写程序，会简单很多

我用asp做一个注册会员的源码，怎么可以实现MD5加密后写入数据库？？？

附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

if mdfive=16 then

MD5=LCase(WordToHex(b) WordToHex(c))

else

MD5=UCase(WordToHex(a) WordToHex(b) WordToHex(c) WordToHex(d))

end if

End Function

%

求一个简单会员注册系统代码， 包括access文件。

简单会员注册系统，实际上是VB编程最起码的一个要求，它不是十分复杂，是一个简单的数据库操作实例。

必须知道：

1、如何连接数据库

2、如何连接数据表

3、如何在数据表添加新记录

一、连接Access中的A.mdb数据库：

Dim dbP As String

dbP = App.Path "\A.mdb"

GSL = "ms access;pwd=abcd" '数据库A.mdb设置了abcd的密码保护

Set WorkDefault = DBEngine.Workspaces(0)

Set db = DBEngine.Workspaces(0).OpenDatabase(dbP, False, False, GSL)

二、连接A.mdb数据库中的“会员注册”数据表：

strSQL = "SELECT * FROM 会员注册" '数据表连接字符串

Set RS = db.OpenRecordset(strSQL) '连接数据表

三、在“会员注册”数据表中添加新记录，即会员注册：

RS.AddNew '添加一条新记录

’这里填写更新内容

' 例如：RS("会员名称")=Text1.Text

'Text1.Text 是注册界面会员名称的输入文本框内容

'RS("登录密码")=Text2.Text

'Text2.Text 是注册界面会员密码的输入文本框内容

RS.UpDate '更新数据表数据

四、千万别忘了关闭数据表记录集对象：

RS.Close

Set RS=NotHing

会员系统源码

基于你的问题ASP会员系统源代码

，可以为你提供一份适用于初学者的代码,

有进一步需求，可以我们联系,,告诉我你的问题和联系方式,有可能帮你，但肯定救急,使用百度_Hi给我留言,

此回复针对所有来访者和需求者有效,

ES:\\5FB379FB7F1BA91C06FDA360A4EDC26D

会员注册源代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于会员下载源码、会员注册源代码的信息别忘了在本站进行查找喔。