📄 newshop3.asp
字号:
<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from shop where shop_name1='" & request.form("shop_name1") & "'"
rs.open sqltext,conn,1,1
'查找数据库，检查用户名是否已经注册过
if rs.recordcount >= 1 then
if rs("shop_name1")=request.form("shop_name1") then
Response.Redirect "messagebox.asp?msg=此商店名称已被占用，请选用其他名称或与本站联系!"
response.end
rs.close
end if
end if
set rs=server.createobject("adodb.recordset")
sqltext="select * from shop"
rs.open sqltext,conn,3,3
'添加一个用户到数据库
rs.addnew
rs("shop_Name1")=request.form("shop_Name1")
rs("shop_Name2")=request.form("shop_Name2")
rs("Name")=request.form("Name")
rs("classid")=request.form("classid")
rs("PassWD")=request.form("pwd")
rs("Email")=request.form("Email")
rs("Phone")=request.form("usephone")
rs("Address")=request.form("haddr")
rs("Zip")=request.form("postcode")
rs.update
%>
<%
'邮件通知=======定义变量
shop_Name1=request.form("shop_Name1") '商店全称
shop_Name2=request.form("shop_Name2") '商店简称
Name=request.form("Name") '负责人
classid=request.form("classid")
pwd=request.form("pwd") '密码
mail=request.form("Email") '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 = 3 '高优先级
JMail.contenttype ="text/html" '格式 默认为text/txt
JMail.Sender = "webmaster@0754b2c.com" '指定发件人的邮件地址
JMail.Subject ="网上商店申请成功" ' 邮件标题
JMail.SenderName = "汕头商城" '指定发件人的姓名
JMail.ReplyTo = "webmaster@0754b2c.com" '可选的回信地址
JMail.AddRecipient( mail ) '收件人
mess = "<body bgcolor=""#FFFFE8"">"
mess = mess & "尊敬的用户[<font color=""#FF0000"">"&name&"</font>]：您好!" & "<br>"
mess = mess & "<br>"
mess = mess &" 你已成功申请了我们的网上商店服务,以下是你的注册资料,如有错误,请到商家后台管理系统中进行修改。" &"<br>"
mess = mess & "<br>"
mess = mess & "商店全称：" & shop_Name1 & "<br>"
mess = mess & "商店简称：" & shop_Name2 & "<br>"
mess = mess & "负责人：" & name & "<br>"
mess = mess & "密码：" & pwd & "<br>"
mess = mess & "公司电话：" & usephone & "<br>"
mess = mess & "公司地址：" & haddr & "<br>"
mess = mess & "邮编：" & postcode & "<br>"
mess = mess & "<br>"
mess = mess & "<a href=""http://www.0754b2c.com/汕头商城/myshop/login.asp"" target=""_blank"">进入商家后台管理系统==></a>" & "<br>"
mess = mess & "<br>"
mess = mess & " 再次感谢您对我们的关注和支持，如果您对我们的服务有任何意见或建议，请惠赐E-mail至:webmaster@0754b2c.com欢迎社会各界洽谈合作事宜"& "<br>"
mess = mess & "<br>"
mess = mess & "-----------------------------------------------" & "<br>"
mess = mess & "汕头商城: http://www.0754b2c.com" & "<br>"
mess = mess &"联系人：王先生" & "<br>"
mess = mess &"联系电话：800-830-9740" & "<br>"
mess = mess &"E-MAIL：webmaster@0754b2c.com" & "<br>"
mess = mess &"</body>"
JMail.Body = mess '信件体正文为变量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 shop where shop_name1='" & request.form("shop_name1") & "'"
rs_detail.open sqltext2,conn,1,1
%>
<% response.cookies("sp_name")=rs_detail("shop_name1")%>
<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
}
.style1 {
color: #FF3300;
font-weight: bold;
}
</STYLE>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY bgColor=#339900 text=#000000>
<DIV align=center>
<TABLE width=631 height="500" border=0 cellPadding=0 cellSpacing=5 bgcolor="#FFFFFF">
<TBODY>
<TR>
<TD background="images/2px_bk.gif">
<TABLE width=590 border=1 align=center cellPadding=5 cellspacing="2" bordercolor="#F9F9F9">
<TBODY>
<TR bgcolor="#FFFFFF">
<TD width=562 height="50" colspan="2" align="center"> <span class="style1">
<font size="5">注 册 成 功</font></span></TD>
</TR>
<tr bgcolor="#FFFFFF">
<td width=173 align="right"> <font color=#e71c17> </font>公司全称：</td>
<td width=389> <%=rs_detail("shop_name1")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=173 align="right"> <font color=#e71c17> </font>公司简称：</td>
<td width=389> <%=rs_detail("shop_name2")%> </td>
</tr>
<TR bgcolor="#FFFFFF">
<TD width=173 align="right"> <font color=#e71c17> </font>负责人：</TD>
<TD width=389> <%=rs_detail("name")%> </TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width=173 align="right"> 密码：</TD>
<TD width=389> <%=rs_detail("PassWD")%></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width=173 align="right"> E-MAIL：</TD>
<TD width=389> <%=rs_detail("email")%></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width=173 align="right"> 公司电话：</TD>
<TD width=389> <%=rs_detail("phone")%></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width=173 align="right"> <font color=#e71c17> </font>公司地址：</TD>
<TD width=389> <%=rs_detail("address")%></TD>
</TR>
<tr bgcolor="#FFFFFF">
<td width=173 align="right"> 邮编：</td>
<td width=389> <%=rs_detail("zip")%></td>
</tr>
<TR bgcolor="#FFFFFF">
<TD colspan="2" ><div align="center">您已注册成功，请继续进入管理系统里完善您的公司简介和上传发布你的商品。</div></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width=562 height="60" colspan="2" align="center">
<input type="button" value="进入管理中心" name="B4" onclick="window.location.href='myshop/default.asp';">
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY></TABLE>
</DIV></BODY></HTML>
<%
Session("shop_name")=rs("shop_name1")
rs.close
rs_detail.close
conn.close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -