registering.asp

网上商城～～ 手机类型的网站源码Asp

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
userid=trim(request.form("userid"))
password=trim(request.form("password"))
email=trim(request.form("email"))

sql="select * from Net008_user where userid='"&cstr(userid)&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,2
if rs.recordcount=1 then
	response.write "<br>"
	response.write "<font size='4' color='#0000FF'>您输入的用户名已经存在，请换个名称再试，请不要使用空格！</font><br>"
	response.write "<br>"
	response.write "<br>"
	response.write "<input type='submit' name='Submit1' value='返回' class='inputnone' onClick='javascript:history.go(-1)'>"
	response.end
end if

rs.addnew
rs("userid")=userid
rs("password")=md5(password)
rs("email")=email
rs("loginnumber")=1
rs("userlevel")=1
rs("emoney")=0
rs("logindate")=now()
rs("adddate")=now()

'userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
'If userip="" Then 
'	userip= equest.ServerVariables("REMOTE_ADDR") 
'end if
'rs("ipaddress")=userip

session("userid")=userid
session("userlevel")=rs("userlevel")
session("password")=password
session("email")=email
session("logindate")=rs("logindate")

rs.update
rs.close
set rs=nothing

response.redirect "registerok.asp"
%>
                  <!--
\\\\\\\\\\\\\\\\\\\\发送邮件开始\\\\\\\\\\\\\\\
Server.ScriptTimeout=999999
frommail="[e-mail]"
MailSubject="欢迎您注册成为雅芳新鲜店会员!"
mailbody="<table width='90%' border='0' align='center' cellpadding='0' cellspacing='0'><form action='http://www.0998.net/avon/customer/login.asp' method='post' name='loginname'><tr><td><p>亲爱的[userid]，您好！</p> <p>　　欢迎您注册成为<font color='#FF66FF'>雅芳新鲜店会员</font>，您已获得雅芳新鲜店赠送的积分10e币(相当于10元)！。您的注册资料如下：<br><br><a href='http://www.0998.net/avon/' target='_blank'><img src='http://www.0998.net/avon/images/title.gif' width='220' height='94' border='0'></a></p><p><font color='#996600'>用户名：[userid] <br>密　码：[password] </font><br><br>用户名：<input name='userid' value='[userid]' size='16' maxlength='20'><br>密　码：<input name='password' type='password' value='[password]' size='16' maxlength='20'><br>　　　　<input type='submit' name='Submit' value='现在就登陆'></p><br><p><br>===============================================<br> 雅芳新鲜店 <br>网　　址：<a href=http://www.0998.net/avon/  target=_blank>http://www.0998.net/avon/</a><br>邮　　箱：[e-mail]<br>订货电话:[phone]　或 13049678839<br>QQ在线：10798584 或 664180<br></p></td></tr></form></table>"
mailbody=replace(mailbody,"[userid]",userid)
mailbody=replace(mailbody,"[password]",password)

Set OWENmail=Server.CreateObject("JMail.SMTPMail")
OWENmail.Silent=TRUE
OWENmail.Charset = "gb2312"
OWENmail.Sender = frommail
owenmail.HTMLBody = MailBody
OWENmail.Subject = mailsubject
OWENmail.AddRecipient(""&email&"")
'OWENmail.Body = mailbody
OWENmail.Execute
OWENmail.Close
Set OWENmail = Nothing
'\\\\\\\\\\\\\\\\\\\\发送结束\\\\\\\\\\\\\\\
-->