📄 newuser3.asp
字号:
<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from RegUser where UserId='" & request.form("uid") & "'"
rs.open sqltext,conn,1,1
'查找数据库，检查用户名是否已经注册过
if rs.recordcount >= 1 then
if rs("userid")=request.form("uid") then
Response.Redirect "messagebox.asp?msg=此用户名已经注册过，请选用其他用户名!"
response.end
rs.close
end if
end if
set rs=server.createobject("adodb.recordset")
sqltext="select * from RegUser"
rs.open sqltext,conn,3,3
'添加一个用户到数据库
rs.addnew
rs("UserId")=request.form("uid")
rs("PassWD")=request.form("pwd")
rs("Name")=request.form("Name")
rs("Sex")=request.form("Sex")
rs("Email")=request.form("Email")
rs("Phone")=request.form("usephone")
rs("Address")=request.form("haddr")
rs("Zip")=request.form("postcode")
rs.update
%>
<%
'邮件通知=======定义变量
dim uid, pwd, Name, Sex, usephone, haddr, postcode, mail
uid=request.form("uid")
pwd=request.form("pwd")
Name=request.form("Name")
Sex=request.form("Sex")
mail=request.form("Email")
usephone=request.form("usephone")
haddr=request.form("haddr")
postcode=request.form("postcode")
'邮件发送程序============================================
on error resume next '忽略邮址错误
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Charset = "gb2312"
JMail.ServerAddress =""
JMail.Priority = 2
JMail.Sender = "webmaster@0754b2c.com"
JMail.Subject ="汕头商城"
JMail.SenderName = "汕头商城"
JMail.ReplyTo = "webmaster@0754b2c.com"
JMail.AddRecipient( mail )
mess = "尊敬的" &name&":您好!" & vbcrlf
mess = mess &"感谢你注册成为汕头商城的会员,以下是你的注册信息：" & vbcrlf
mess = mess & "您的会员帐号：" & uid & vbcrlf
mess = mess & "您的姓名：" & name & vbcrlf
mess = mess & "性别：" & Sex & vbcrlf
mess = mess & "常用电话：" & usephone & vbcrlf
mess = mess & "收货地址：" & haddr & vbcrlf
mess = mess & "邮编：" & postcode & vbcrlf
mess = mess & "-----------------------------------------------" & vbcrlf
mess = mess & "汕头商城 http://www.0754b2c.com" & vbcrlf
JMail.Body = mess
if err then '判断是否错误
err.clear
end if
JMail.Execute()
JMail.Close()
set jMail=nothing
%>
<%
set rs_detail=server.createobject("adodb.recordset")
sqltext2="select * from RegUser where UserId='" & request.form("uid") & "'"
rs_detail.open sqltext2,conn,1,1
%>
<HTML><HEAD><TITLE>商品详细信息</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE>BODY {
FONT-SIZE: 10pt
}
TD {
FONT-SIZE: 10pt; LINE-HEIGHT: 150%
}
A {
TEXT-DECORATION: none
}
A:hover {
TEXT-DECORATION: underline
}
</STYLE>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY background=pic/user/bg.jpg bgColor=#ffffff text=#000000>
<DIV align=center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=631>
<TBODY>
<TR>
<TD colSpan=2><IMG height=26 src="pic/user/top.gif" width=631></TD></TR>
<TR>
<TD bgColor=#fff0c0 width=598>
<TABLE align=center border=1 borderColorDark=#fffcf0
borderColorLight=#ffd146 cellPadding=4 width=590>
<TBODY>
<TR>
<TD width=562 colspan="2" align="center">
<font size="5" color="#FF0000">
<b>注 册 成 功<br>
</b></font><br>
{ 以下注册资料已发送到您的邮箱,祝您购物愉快！}</TD>
</TR>
<TR>
<TD width=173 align="right">
您的会员帐号：</TD>
<TD width=389> <%=rs_detail("userid")%> </TD></TR>
<TR>
<TD width=173 align="right">
您的姓名：</TD>
<TD width=389> <%=rs_detail("name")%> </TD></TR>
<TR>
<TD width=173 align="right">
<FONT color=#000000>性别：</FONT></TD>
<TD width=389> <%=rs_detail("sex")%></TD></TR>
<TR>
<TD width=173 align="right"> 密码：</TD>
<TD width=389> <%=rs_detail("PassWD")%></TD>
</TR>
<TR>
<TD width=173 align="right">
E-MAIL：</TD>
<TD width=389> <%=rs_detail("email")%></TD></TR>
<TR>
<TD width=173 align="right">
常用电话：</TD>
<TD width=389> <%=rs_detail("phone")%></TD></TR>
<TR>
<TD width=173 align="right">
收货地址：</TD>
<TD width=389> <%=rs_detail("address")%></TD></TR>
<TR>
<TD width=173 align="right">
邮编：</TD>
<TD width=389> <%=rs_detail("zip")%></TD></TR>
<TR>
<TD width=562 colspan="2" align="center">
<input type="button" value=" 完 成 " name="B4" onclick="window.location.href='user/default.asp';">
</TD>
</TR>
</TBODY></TABLE></TD>
<TD background=pic/user/bak.gif vAlign=top width=33><IMG border=0
height=36 src="pic/user/j1.gif" width=33></TD></TR>
<TR>
<TD colSpan=2><IMG height=18 src="pic/user/bottom.gif"
width=631></TD></TR></TBODY></TABLE></DIV></BODY></HTML>
<%
Session("LoginSuccess")=rs("UserId")
rs.close
rs_detail.close
conn.close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -