reg_shangfw.asp

1、下载亿博购物系统 亿博购物系统每次发布最新版本

        </tbody>
      </table>
      <br>
      <table name=agree border="0" cellpadding="10" cellspacing="0" align=center width="80%">
        <tr align=center> 
          <td width="50%" align="right"> 
            <form name=register method=post action=reg_shang.asp?action=yes>
              <input type="hidden" name="action" value="agree">
              <input class="go-wenbenkuang" type=submit value=" 同意注册 " name=Submit>
            </form>
          </td>
          <td width="50%" align="left"> 
            <form action=index.asp method=post>
              <input class=go-wenbenkuang type=submit value=" 我不同意 " name="submit2">
            </form>
          </td>
        </tr>
      </table>
      <br>    </td>
  </tr>
  </tbody>
</table>
<SCRIPT>
	secs = 60; // Number of secs to delay -CHINA-studio
	wait = secs * 100;
	document.forms.register.Submit.disabled =true;
	for(i=1;i<=(wait/100);i++) {
		window.setTimeout("doUpdate(" + i + ")", i * 100);
	}
	window.setTimeout("Timer()", wait);

	function doUpdate(num) {
		if(num == (wait/100)) {
			document.forms.register.Submit.value = " 同意注册 ";
		} else {
			wut = (wait/100)-num;
			document.forms.register.Submit.value = " 同意前请先阅读 (" + wut + ")";
		}
	}

	function Timer() {
		document.forms.register.Submit.disabled =false;
}
</SCRIPT>
<%case "yes"%>

<table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">                                 
<tr>
<td bgcolor="#FFFFFF" bordercolor="#FFFFFF" align="center">
<p><font color="#FF3300"><b>请您务必详细填写您的信息，并核对无误，国内用户请留下您的真实中文姓名。<br>未经您的允许，您的个人信息对外保密。(带 <font color=red>**</font> 号为必填项) </b></font></p>                                     
<form name=shjiainfo method=post action=reg_shang.asp?action=save>
<table width="80%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC" align="center">
<tr bgcolor="#FFFFFF"> 
<td colspan="2" valign="middle" bgcolor="#f1f1f1"><font color="#FF3300">&gt;&gt; 商家联系信息</font></td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td width="30%" align="right">请选择商店所属类别：</td>
<td width="70%" valign="middle">
	<%set rs=server.createobject("adodb.recordset")
	rs.open "select * from shop_anclass order by anclassidorder",conn,1,1
	if rs.eof and rs.bof then
	response.write "请先添加栏目。"
	response.end
	else%>
<select class="wenbenkuang" name="anclassid" size="1" id="anclassid" onChange="changelocation(document.shjiainfo.anclassid.options[document.shjiainfo.anclassid.selectedIndex].value)">
<option selected value="<%=rs("anclassid")%>"><%=trim(rs("anclass"))%></option>
		<%dim selclass
        selclass=rs("anclassid")
        rs.movenext
        do while not rs.eof%>
<option value="<%=rs("anclassid")%>"><%=trim(rs("anclass"))%></option>
	<%
        rs.movenext
        loop
	end if
        rs.close
%>
</select>
->
<select class="wenbenkuang" name="Nclassid">
	<%rs.open "select * from shop_Nclass where anclassid="&selclass ,conn,1,1
	if not(rs.eof and rs.bof) then
	%>
<option selected value="<%=rs("NclassID")%>"><%=rs("Nclass")%></option>
	<% 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>
<font color=red>**</font>
</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td align="right" valign="middle">商店名称：</td>
<td valign="middle">
<input class="wenbenkuang" name="name" type="text" id="name" size="30" maxlength="18"> <font color=red>**</font>
</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td align="right" valign="middle">负 责 人：</td>
<td valign="middle">
<input class="wenbenkuang" name="name2" type="text" id="name2" maxlength="10"> <font color=red>**</font>
</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td align="right" valign="middle">公司地址：</td>
<td valign="middle">
<input class="wenbenkuang" name="dz" type="text"  id="dz" size="50" maxlength="40"> <font color=red>**</font>
</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td align="right" valign="middle">邮　　编：</td>
<td valign="middle">
<input class="wenbenkuang" name="pc" type="text"  id="name4" size="10" maxlength="6" onKeyPress="event.returnValue=IsDigit();"> <font color=red>**</font>
</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td align="right" valign="middle">电　　话：</td>
<td> 
<input class="wenbenkuang" name="tel" type="text" id="name5" size="30" maxlength="30"> <font color=red>**</font>
区号-电话号码-分机号码</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td align="right" valign="middle">传　　真：</td>
<td valign="middle">
<input class="wenbenkuang" name="fax" type="text" id="name7" size="30" maxlength="40">
可不埴</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td align="right" valign="middle">电子邮箱：</td>
<td valign="middle">
<input class="wenbenkuang" name="shjiaemail" size="30" type="text" id="shjiaemail" maxlength="30">
<font color=red>**</font>
请填写有效的e-mail地址
</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td align="right" valign="middle">网站类型：</td>
<td valign="middle">
<input type=radio name=lx id=Select value=0 checked> A型免费使用（限50个产品,免费送二级域名）<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元/年（无限产品,送国际域名/顶级商家/首页醒目广告宣传）<br>
</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td  colspan="2" valign="middle" bgcolor="#f1f1f1"><font color="#FF3300">&gt;&gt; 网店管理名称和密码</font></td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td align="right" valign="middle">管理员ID：</td>
<td valign="middle">
<input class="wenbenkuang" name="shjianame" type="text" id="shjianame" maxlength="18"> <font color=red>**</font>
只能是4-16位英文或数字组成</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td align="right" valign="middle">管理员密码：</td>
<td valign="middle">
<input class="wenbenkuang" name="shjiapassword" type="password" id="shjiapassword" maxlength="18"> <font color=red>**</font>
长度必须是6-20个字符只能为英语字、数字</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td align="right" valign="middle">确认管理员密码：</td>
<td valign="middle">
<input class="wenbenkuang" name="shjiapassword1" type="password" id="shjiapassword1" maxlength="18"> <font color=red>**</font>
请将输入的密码再次输入，以免设置密码出错。</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td width=20% align="right"></td>
<td>
<input class="go-wenbenkuang" onClick="return checkuserinfo();" type="submit" name="submit" value=" 提交信息 ">
<input class="go-wenbenkuang" onclick="ClearReset()" type="reset" name="Clear" value=" 重新填写 ">
</td>
</tr>
</table>        
</form>
</td>
</tr>
</table>

<%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 "<table width=760 border=1 cellspacing=0 cellpadding=0 align=center bordercolor=#EDECEC><tr> <td  bordercolor=#FFFFFF bgcolor=#FFFFFF align=center> <br><font color=red>·对不起，您刚注册过用户。</font><br><font color=red >·请稍后再进行注册！</font><br><br><br></td></tr></table> "
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("godbook")("shjianame")=trim(request("username"))
'response.Cookies("godbook")("jiaoyijine")=0
'response.Cookies("godbook")("jifen")=0
'response.Cookies("godbook")("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="<li>您的加盟注册信息已经发往您的邮箱，请注意查收。</li>"
	else
	sendmsg="<li>由于系统错误，给您发送的加盟注册资料未成功。</li>"
	end if
  
response.Write "<table width=760 border=0 cellspacing=0 cellpadding=0 align=center class=table-zuoyou bordercolor=#ffffff><tr><td bordercolor=#FFFFFF bgcolor=#FFFFFF height=260>"
response.Write "<table width=70% border=0 align=center cellpadding=0 cellspacing=0><tr><td height=80 class=pad><font color=#ff3300>商家加盟注册成功!</font><br>"
response.Write "<li>恭喜您已注册成为["&webname&"]加盟商，请记好您的管理名及密码</li><br><li>我们在确认后会在24小时内开通您的商城</li><br>"
response.Write sendmsg&"<br>"
response.Write "<li><a href=index.asp>返回首页</a></li></td></tr></table></td></tr></table>"
end if
end sub

sub usererr()
response.write "<table width=760 border=0 cellspacing=0 cellpadding=0 align=center class=table-zuoyou bordercolor=#ffffff><tr>"
response.write "<td bordercolor=#FFFFFF bgcolor=#FFFFFF align=center height=260><table width=70% border=0 align=center cellpadding=2 cellspacing=0><tr><td class=pad><font color=#ff3300>· 商家加盟注册失败</font></td></tr><tr>"
response.write "<td class=pad><font color=#ff3300>· 您输入的用户名或e-mail地址或管理员名称已存在，请返回重新输入！<br>· <a href=javascript:history.go(-1)><font color=#ff3300>点击返回上一页</font></a> </font></td></tr></table></td></tr></table>"
end sub
%>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>