⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 newshop3.asp

📁 一套很早的多用户电子商务程序
💻 ASP
字号:
🔍 
<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<%
shop_name1=request.form("shop_name1")
Dim objFSO
set objFSO=server.createobject("scripting.filesystemobject")
if objFSO.FolderExists(server.MapPath(shop_name1)) then
      Response.Redirect "messagebox.asp?msg=此用户名称已被注册，请返回重新选择!"
      response.end
end if

set rs=server.createobject("adodb.recordset")
sqltext="select * from shop where shop_name1='" & shop_name1 & "'"
rs.open sqltext,conn,1,1

'查找数据库，检查用户名是否已经注册过
if rs.recordcount >= 1 then 
   if rs("shop_name1")=shop_name1 then
      Response.Redirect "messagebox.asp?msg=此用户名称已被注册，请返回重新选择!"
      response.end
      rs.close
   end if
end if
rs.close

set rs=server.createobject("adodb.recordset")
sqltext="select * from shop"
rs.open sqltext,conn,3,3

'添加一个用户到数据库
rs.addnew
rs("shop_Name1")=shop_name1
rs("shop_Name2")=request.form("shop_Name2")
rs("Name")=request.form("Name")
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")

set M_rs=server.createobject("adodb.recordset")
mysql="select * from Manager"
M_rs.open mysql,conn,1,1

'默认设置
rs("P_count")=M_rs("P_count") '上传商品数量
rs("moban")=M_rs("moban")
rs("logo_pic")=M_rs("shop_logo")
rs("banner")=M_rs("shop_banner")
rs("center_pic")=M_rs("shop_center_pic")
rs("dredge")=M_rs("dredge")
rs("LastTime")=now()+M_rs("test_time")
rs("logo_type")="tp2"
rs("pay4")="no"
rs.update
rs.close

'创建用户文件夹及首页文件
whichdir=server.mappath(shop_name1)
objFSO.CreateFolder whichdir
Fa="%"
FB=">"
fc=Fa&Fb
set objTS=objFSO.OpenTextFile(server.MapPath(shop_name1&"\default.asp"),2,True)
objTs.writeLine("<!--#include file=""../conn2.asp"" -->")
objTs.writeLine("<!--#include file=""../Function.asp"" -->")
objTs.writeLine("<%shop_name="""&shop_name1&""""&fc)
objTs.writeLine("<!--#include file=""../mod/101.asp"" -->")
objTs.Close
set objTS=Nothing
Set objFSO=Nothing
%>

<% 
'邮件通知=======定义变量
shop_Name1=request.form("shop_Name1") '用户全称
shop_Name2=request.form("shop_Name2") '商店简称
Name=request.form("Name") '负责人
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 = M_rs("Email") '指定发件人的邮件地址
JMail.Subject ="网上商店申请成功"  ' 邮件标题
JMail.SenderName = M_rs("copyright") '指定发件人的姓名
JMail.ReplyTo = M_rs("Email")  '可选的回信地址
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="""&request.ServerVariables("server_name")&""" target=""_blank"">登录商家后台管理系统==></a>"  & "<br>"
mess = mess & "<br>"

mess = mess & "　　再次感谢您对我们的关注和支持，如果您对我们的服务有任何意见或建议，请惠赐E-mail至:"&M_rs("Email")&"欢迎社会各界洽谈合作事宜"& "<br>"
mess = mess & "<br>"
mess = mess & "-----------------------------------------------"  & "<br>"
mess = mess & M_rs("copyright")&":　"&M_rs("Domain_Name")& "<br>"
mess = mess &"服务电话："&M_rs("phone")& "<br>" 
mess = mess &"E-MAIL：" &M_rs("Email")& "<br>" 
mess = mess &"</body>"

JMail.Body = mess '信件体正文为变量mess
if err then  '判断是否错误
err.clear
end if
JMail.Execute()
JMail.Close()
set jMail=nothing 
M_rs.close:set M_rs=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
}
</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="myshop/pic/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"> <font color=#e71c17>&nbsp;</font>用户名称：</td>
            <td width=389>&nbsp;<%=rs_detail("shop_name1")%> </td>
          </tr>
          <tr> 
                <td width=173 align="right"> <font color=#e71c17>&nbsp;</font>商店名称：</td>
            <td width=389>&nbsp;<%=rs_detail("shop_name2")%> </td>
          </tr>
          <TR> 
            <TD width=173 align="right"> <font color=#e71c17>&nbsp;</font>负责人：</TD>
            <TD width=389>&nbsp;<%=rs_detail("name")%> </TD>
          </TR>
          <TR> 
            <TD width=173 align="right"> 密码：</TD>
            <TD width=389>&nbsp;<%=rs_detail("PassWD")%></TD>
          </TR>
          <TR> 
            <TD width=173 align="right"> E-MAIL：</TD>
            <TD width=389>&nbsp;<%=rs_detail("email")%></TD>
          </TR>
          <TR> 
            <TD width=173 align="right"> 公司电话：</TD>
            <TD width=389>&nbsp;<%=rs_detail("phone")%></TD>
          </TR>
          <TR> 
            <TD width=173 align="right"> <font color=#e71c17>&nbsp;</font>公司地址：</TD>
            <TD width=389>&nbsp;<%=rs_detail("address")%></TD>
          </TR>
          <tr> 
            <td width=173 align="right"> 邮编：</td>
            <td width=389>&nbsp;<%=rs_detail("zip")%></td>
          </tr>
          <TR> 
                <TD colspan="2" >　　　　您已成功申请了网上商店，请入管理系统里设置好你的网站及上传你的商品资料。</TD>
          </TR>
          <TR> 
            <TD width=562 colspan="2" align="center"> 
              <input type="button" value="进入网站后台管理中心" name="B4" onclick="window.location.href='myshop/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>   
<%  
rs_detail.close  
conn.close  
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -