|
2.1.5会员系统 一般的会员系统，不外乎是收集客户的数据，发送电子简报，然后从电子简报中夹带公司的广告信息促销办法，最新消息发布，以便让顾客随时知道公司的最新动态，以让公司及个人掌握商机。通常会员注册系统有分为需要客户进来打开启用码的和只是输入基本数据。通常需要起用码的系统，都是对客户数据要求比较准确的，所以要确定电子邮件信箱是正确的，以便将系统生成的启用码送到客户的信箱，然后客户再根据这个启用码连上网站，输入启用码，正式起用这个帐号。不过一般网站的会员系统只是输入基本数据，对客户数据要求准确性的要求不高，相对得成为会员的步骤也比较简单。 内容来自www.paper51.com 要建立一个电子商务网站，首先要先建立会员管理系统，因为电子商务网站对于会员数据的准确性要求比较高，所以决定使用起用码的方式来打开帐号，然后用此会员管理系统来收集客户的信息，分析客户的购买行为，对客户作一对一的行销，发电子邮件，寄促销信。 http://www.paper51.com 由于我做的网站没有放到万维网上，所以没有动用启用码，但我必须谈一下这方面的技术，下面是我做的一个起用码，说的简单点就是要求用户必须填写正确的数据，通过邮件的方式来加以确认。 paper51.com Public Function AddMemenber ( fullName as string, UserIDas String , Password as string, sexas string, Birthday as string, tel as string, address as string, email asstring) as string paper51.com Dim conn as 内容来自论文无忧网 www.paper51.com OleDbConnection=new OleDbConnection(ConfigurationSetting.AppSetting(“DSN”)) http://www.paper51.com ‘生成启用码 内容来自论文无忧网 www.paper51.com Dim beginCode as integer 内容来自www.paper51.com
Randomize paper51.com beginCode=CInt(10000000*((9*Rnd)+1)) http://www.paper51.com
Dim SQL As String http://www.paper51.com SQL="Insert intoCustomer(Customer_Name,Customer_ID,Customer_Pwd,Customer_Sex," copyright paper51.com SQL=SQL+"Customer_Birthday,Customer_Tel,Customer_Address,Customer_Email,Customer_Code)" http://www.paper51.com SQL=SQL + "values('" &fullName & "','" & userID & "','" &password & "','" & sex & "'," 内容来自论文无忧网 www.paper51.com
SQL=SQL + "'" & Birthday &"','" & Tel & "','" & Address &"','" & Email & "','" & BeginCode &"')" http://www.paper51.com Dim myCommand As OleDbCommand = newOleDbCommand(SQL, myConnection) copyright paper51.com conn.Open() 内容来自论文无忧网 www.paper51.com myCommand.ExecuteNonQuery() 内容来自论文无忧网 www.paper51.com Try 内容来自www.paper51.com Dim mail As MailMessage = New MailMessage 内容来自论文无忧网 www.paper51.com mail.To = Email http://www.paper51.com mail.From = "whz_35@eyou.com" http://www.paper51.com mail.Subject = "启用码" 内容来自www.paper51.com
mail.Body = cstr(BeginCode) 内容来自www.paper51.com SmtpMail.Send(mail) http://www.paper51.com Finally paper51.com conn.Close() copyright paper51.com End Try 内容来自论文无忧网 www.paper51.com
Return UserID.ToString() 内容来自论文无忧网 www.paper51.com End Function copyright paper51.com 生成启用码也就是利用随机数的方式生成，这一段程序就是当用户输入数据后，跟着我们就利用寄信组件SmtpMail发送启用码到会员的电子邮件地址，要注意的是使用寄信组件SmtpMail必须引入System.Web.Mail名字空间程序才能正常运行。 copyright paper51.com |