reg_shang.asp

21世纪人才www.51zy.net 网站源码

	<% rs.movenext
	do while not rs.eof%>
<option value="<%=rs("NclassID")%>"><%=rs("Nclass")%></option>
	<% rs.movenext
	loop
	end if
	rs.close
	set rs = nothing
%>
</select>
<span class="red">**</span> 支持中文,不支持特殊符号如:*%#!-&%$</td>
  </tr>
  <tr>
    <td class="left">商店名称：</td>
    <td class="right"><input name="name" type="text" id="name"  />
<span class="red">**</span> 不支持特殊符号如:*%#!-&%$ </td>
  </tr>
  <tr>
    <td class="left">负 责 人：</td>
    <td class="right"><input name="name2" type="text" id="name2"  />
<span class="red">**</span></td>
  </tr>
  <tr>
    <td class="left">公司地址：</td>
    <td class="right"><input name="dz" type="text" id="dz" />
<span class="red">**</span></td>
  </tr>
  <tr>
    <td class="left">邮　　编：</td>
    <td class="right"><input name="pc" type="text" id="name4" onkeypress="event.returnValue=IsDigit();" />
	</td>
  </tr>
  <tr>
    <td class="left">电　　话：</td>
    <td class="right"><input name="tel" type="text" id="name5" /> <span class="red">**</span></td>
  </tr>
  <tr>
    <td class="left">传　　真：</td>
    <td class="right"><input name="fax" type="text" id="name7"  />
<span class="red">**</span> </td>
  </tr>
  <tr>
    <td class="left">您的身份证号：</td>
    <td class="right"><input name="MoMNo" type="text" id="MoMNo" maxlength="18" onkeypress="event.returnValue=IsDigit();" /></td>
  </tr>
  <tr>
    <td class="left">电子邮箱：</td>
    <td class="right"><input name="shjiaemail" type="text" id="shjiaemail"  /> <span class="red">**</span> 请填写有效的e-mail地址</td>
  </tr>
  <tr>
    <td class="left">网店类型：</td>
    <td class="right"><input type="radio" name="lx" id="Select" value="0" checked="checked" /> 
A型免费使用（限20个产品,免费送二级域名）<br>
<input type="radio" name="lx" id="Select" value="1" /> B型100元/年（限100个产品）<br>
<input type="radio" name="lx" id="Select" value="2" /> C型365元/年（无限产品）</td>
  </tr>
  <tr>
    <td colspan="2" class="tit tit2"> &gt; 网店管理名称和密码</td>
  </tr>
  <tr>
    <td class="left">管理员ID：</td>
    <td class="right"><input name="shjianame" type="text" id="shjianame" maxlength="30" />
<span class="red">**</span> 只能是4-16位英文或数字组成</td>
  </tr>
  <tr>
    <td class="left">管理员密码：</td>
    <td class="right"><input name="shjiapassword" type="password" id="shjiapassword" />
<span class="red">**</span> 长度必须是6-20个字符只能为英语字、数字</td>
  </tr>
  <tr>
    <td class="left">确认管理员密码：</td>
    <td class="right"><input name="shjiapassword1" type="password" id="shjiapassword1" />
<span class="red">**</span> 请将输入的密码再次输入。</td>
  </tr>
</table>
<p><input class="oksave" onclick="return checkuserinfo();" type="submit" name="submit" value="">
<input class="reset" onclick="ClearReset()" type="reset" name="Clear" value="">
</p></form>


<%case "save"%>
<!--#include file="md5.asp"-->
<%call saveuser()%>
<%
end select%>
<%sub tiaoyue()
set rs=server.CreateObject("adodb.recordset")
rs.Open "select regtiaoyue2 from shop_config",conn,1,1
response.Write trim(rs("regtiaoyue2"))
rs.Close
set rs=nothing
end sub

sub saveuser()
if session("regtimes")=1 then
response.Write "<h1>对不起，您刚注册过用户，请稍后再进行注册!</h1>"
response.End
end if

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shjia] where useremail='"&trim(request("shjiaemail"))&"' or username='"&trim(request("shjianame"))&"' or name='"&trim(request("name"))&"'",conn,1,1
if rs.recordcount>0 then
call usererr()
rs.close
else
rs.close

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shjia]",conn,1,3
rs.addnew
rs("anclassid")=int(request("anclassid")) '大类
rs("nclassid")=int(request("nclassid"))   '小类
rs("username")=trim(request("shjianame"))
rs("userpassword")=md5(trim(request("shjiapassword")))
rs("useremail")=trim(request("shjiaemail"))
rs("name")=trim(request("name"))          '商店名称  
rs("name2")=trim(request("name2"))        '负责人
rs("dz")=trim(request("dz"))              '公司地址
rs("pc")=trim(request("pc"))              '邮编
rs("tel")=trim(request("tel"))            '电话
rs("fax")=trim(request("fax"))            '传真
rs("lx")=trim(request("lx"))              '网站类型

rs("adddate")=now()
rs("lastlogin")=now()
'rs("logins")=1
'rs("zhifufangshi")=0
'rs("songhuofangshi")=0
'rs("reglx")=1
'rs("jifen")=0
rs("logo")="images/logo.gif"
rs("content")="..."
rs("jiaoyijine")=0
rs("sex")=1
rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")

rs.update
conn.execute("update config set usernum=usernum+1,lastuser='"&username&"'")
rs.close
set rs=nothing
set rs=conn.execute("select top 1 shjiaid from [shjia] order by shjiaid desc")
shjiaid=rs(0)
response.Cookies("bjx")("shjianame")=trim(request("username"))
'response.Cookies("bjx")("jiaoyijine")=0
'response.Cookies("bjx")("jifen")=0
'response.Cookies("bjx")("reglx")=1
'response.Cookies("shangcheng").expires=date+1

session("regtimes")=1
session.Timeout=1

set rs=server.CreateObject("adodb.recordset")
rs.Open "select mailaddress,mailusername,mailuserpass,mailname,mailsend from shop_config",conn,1,1
mailaddress=rs("mailaddress")
mailusername=rs("mailusername")
mailuserpass=rs("mailuserpass")
mailname=rs("mailname")
mailsend=rs("mailsend")
rs.close
set rs=nothing

'发送邮件
	on error resume next
	'发送注册邮件
	topic="您在" & webname & "的加盟注册资料"
	getpass=trim(request("shjiapassword"))
	
	mailbody="<html>"
	mailbody=mailbody & "<title>加盟注册信息</title>"
	mailbody=mailbody & "<body>"
	mailbody=mailbody & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
	mailbody=mailbody & "<TD valign=middle align=top>"
	mailbody=mailbody & trim(request("shjianame"))&"，您好：<br><br>"
	mailbody=mailbody & "欢迎您加盟" & webname & "网上商城，我们将提供给您最好的服务！<br>"
	mailbody=mailbody & "下面是您的注册信息：<br><br>"
	mailbody=mailbody & "注册名："&trim(request("shjianame"))&"<br>"
	mailbody=mailbody & "密  码："&getpass&"<br>"
	mailbody=mailbody & "<br><br>"
	mailbody=mailbody & "<center><font color=red>再次感谢您加盟" & webname & "网上商城！</font>"
	mailbody=mailbody & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
	mailbody=mailbody & "</body>"
	mailbody=mailbody & "</html>"
	
Set JMail=Server.CreateObject("JMail.Message")
	JMail.Charset="gb2312"
	JMail.ContentType = "text/html"
jmail.from = mailsend
jmail.silent = true
jmail.Logging = true
jmail.FromName = mailname
jmail.mailserverusername = mailusername
jmail.mailserverpassword = mailuserpass
jmail.AddRecipient trim(request("shjiaemail"))
jmail.body=mailbody
JMail.Subject=topic
if not jmail.Send ( mailaddress ) then
SendMail=""
else
SendMail="OK"
end if
	if SendMail="OK" then
	sendmsg="<h1>· 您的加盟注册信息已经发往您的邮箱，请注意查收。</h1>"
	else
	sendmsg="<h1>· 如您想马上开通,请立即至电0431-5113311与客服部联系。</h1>"
	end if
  
response.Write "<h1>· <span class=""red"">商家加盟注册成功!</span></h1><h1>· 恭喜您注册成为 ["&webname&"] 加盟商，请记好您的管理名及密码</h1>"
response.Write "<h1>· 加盟为B型或C型的商户请及时付款,,我们在确认后会在8小时内开通您的商城</h1>"
response.Write sendmsg&"<br>"
response.Write "<h1>· <a href=index.asp>返回首页</a></h1>"
end if
end sub

sub usererr()
response.write "<p>· <span class=""red"">商家加盟注册失败!</span></p><p>· 您输入的用户名或e-mail地址已存在，请返回重新输入!</p><p>· <a href=javascript:history.go(-1)>返回上一页</a></p>"
end sub
%>
	</div>
	<!-- 右侧内容 -->
	<div id="content_r">
		<h1>成为在线会员的好处</h1>
			<div id="affiche"><p>可以在线购买，可以享受网站的各种优惠和活动。</p><p>更多的在线支持和沟通，以便我们提供给您更好的服务。</p><p>方便修改您的个人信息，定制服务等。</p><p>24/7的服务，让您在任何时间，任何地点，甚至在国外也能订购货品了。</p></div>
		<h1>新注册送25元礼金券</h1>
			<div id="affiche2"><p>新注册会员可以获得25元电子礼金券，订单超过150元的时候可以抵扣订单金额，有效期为2个月。</p></div>	
			<div id="affiche3">客服电话：[phone]</div>	
    </div>
</div>
<div class="clear-both">&nbsp;</div>
<!-- 服务声明 -->
<!--#include file="service.asp" -->
<!-- 版权信息 -->
<!--#include file="copyright.asp" -->
</body>
</html>