<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%dim action
action=request.QueryString("action")%>
<html><head><title><%=webname%>--新用户注册</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="image/css.css" rel="stylesheet" type="text/css">
<script language=JavaScript>
function IsDigit()
{
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<script language="JavaScript">
<!--
function checkuserinfo()
{
 if(checkspace(document.userinfo.username.value)) {
	document.userinfo.username.focus();
alert("对不起，请填写用户名！");
	return false;
}
if(checkspace(document.userinfo.userpassword.value) || document.userinfo.userpassword.value.length < 6 || document.userinfo.userpassword.value.length >20) {
	document.userinfo.userpassword.focus();
alert("密码长度不能不能这空，在6位到20位之间，请重新输入！");
	return false;
}
if(document.userinfo.userpassword.value != document.userinfo.userpassword1.value) {
	document.userinfo.userpassword.focus();
	document.userinfo.userpassword.value = '';
	document.userinfo.userpassword1.value = '';
alert("两次输入的密码不同，请重新输入！");
	return false;
}

 if(document.userinfo.useremail.value.length!=0)
{
if (document.userinfo.useremail.value.charAt(0)=="." ||
 document.userinfo.useremail.value.charAt(0)=="@"|| 
 document.userinfo.useremail.value.indexOf('@', 0) == -1 || 
 document.userinfo.useremail.value.indexOf('.', 0) == -1 || 
 document.userinfo.useremail.value.lastIndexOf("@")==document.userinfo.useremail.value.length-1 || 
 document.userinfo.useremail.value.lastIndexOf(".")==document.userinfo.useremail.value.length-1)
 {
alert("Email地址格式不正确！");
document.userinfo.useremail.focus();
return false;
}
 }
 else
{
 alert("Email不能为空！");
 document.userinfo.useremail.focus();
 return false;
 }
 if(checkspace(document.userinfo.quesion.value)) {
	document.userinfo.quesion.focus();
alert("对不起，请填写密码提问！");
	return false;
}
 if(checkspace(document.userinfo.answer.value)) {
	document.userinfo.answer.focus();
alert("对不起，请填写密码提问的答案！");
	return false;
}
 if(checkspace(document.userinfo.userzhenshiname.value)) {
	document.userinfo.userzhenshiname.focus();
alert("对不起，请填写真实姓名！");
	return false;
}
if(checkspace(document.userinfo.shouhuodizhi.value)) {
	document.userinfo.shouhuodizhi.focus();
alert("对不起，请填写收货人详细收货地址！");
	return false;
}
if(checkspace(document.userinfo.youbian.value)) {
	document.userinfo.youbian.focus();
alert("对不起，请填写邮编！");
	return false;
}
if(document.userinfo.youbian.value.length!=6) {
	document.userinfo.youbian.focus();
alert("对不起，请正确填写邮编！");
	return false;
} 
if(checkspace(document.userinfo.usertel.value)) {
	document.userinfo.usertel.focus();
alert("对不起，请留下您的联系电话！");
	return false;
}
if(checkspace(document.userinfo.songhuofangshi.value)) {
	document.userinfo.songhuofangshi.focus();
alert("对不起，您还没有选择送货方式！");
	return false;
}
if(checkspace(document.userinfo.zhifufangshi.value)) {
	document.userinfo.zhifufangshi.focus();
alert("对不起，您还没有选择支付方式！");
	return false;
}
}
function checkshouhuoxx()
{
 if(checkspace(document.shouhuoxx.userzhenshiname.value)) {
	document.shouhuoxx.userzhenshiname.focus();
alert("对不起，请填写真实姓名！");
	return false;
}
if(checkspace(document.shouhuoxx.shouhuodizhi.value)) {
	document.shouhuoxx.shouhuodizhi.focus();
alert("对不起，请填写收货人详细收货地址！");
	return false;
}
if(checkspace(document.shouhuoxx.youbian.value)) {
	document.shouhuoxx.youbian.focus();
alert("对不起，请填写邮编！");
	return false;
}
if(document.shouhuoxx.youbian.value.length!=6) {
	document.shouhuoxx.youbian.focus();
alert("对不起，请正确填写邮编！");
	return false;
} 
if(checkspace(document.shouhuoxx.usertel.value)) {
	document.shouhuoxx.usertel.focus();
alert("对不起，请留下您的联系电话！");
	return false;
}
if(checkspace(document.shouhuoxx.songhuofangshi.value)) {
	document.shouhuoxx.songhuofangshi.focus();
alert("对不起，您还没有选择送货方式！");
	return false;
}
if(checkspace(document.shouhuoxx.zhifufangshi.value)) {
	document.shouhuoxx.zhifufangshi.focus();
alert("对不起，您还没有选择支付方式！");
	return false;
}
}

function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
//-->
</script>

</head>
<body>
<!--#include file="webtop.asp"-->
<%select case action
case ""%>
<table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou table-shangxia">
<tr><td height="22">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<table width="80%" align="center" border="0" cellspacing="0" cellpadding="0">
<tr><td height="40" align="center"><font color=red><strong>请用户仔细阅读<%=webname%>注册条约</strong></font>
</td></tr>
</table>
</td></tr>
<!--注册条约-->
<tr><td>
<table width="80%" border="0" align="center" cellpadding="10" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#ffffff"><td>
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select regtiaoyue from shop_config",conn,1,1
response.write trim(rs("regtiaoyue"))
rs.Close
set rs=nothing%></td></tr>
</table>
</td></tr>
</table>
<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.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 name="submit" type=submit class=go-wenbenkuang value=" 我不同意 ">
</form></td></tr>
</table>
</td></tr>
</table>
</td></tr>
</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 table-shangxia">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><p><font color="#FF3300"><b>请您务必详细填写您的信息，并核对无误，国内用户请留下您的真实中文姓名。<br>
未经您的允许，您的个人信息对外保密。(带 <font color=red>**</font> 号为必填项) </b></font></p>
<form name=userinfo method=post action="reg.asp?action=save">
<table width="80%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC" align="center">
<tr>
<td height=15 colspan=2 bgcolor="#f1f1f1"><font color="#FF3300">&gt;&gt; 用户名和密码</font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>用 户 名：</td>
<td width=70% class=pad><input class="wenbenkuang" name="username" type="text" id="username" maxlength="18">
<font color=red>**</font> 支持中文,不支持特殊符号如:*%#!-&%$</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>密　　码：</td>
<td class=pad><input class="wenbenkuang" name="userpassword" type="password" id="userpassword" maxlength="18">
<font color=red>**</font> 不支持特殊符号如:*%#!-&%$</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>确认密码：</td>
<td class=pad><input class="wenbenkuang" name="userpassword1" type="password" id="userpassword1" maxlength="18">
<font color=red>**</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>电子邮箱：</td>
<td class=pad><input class="wenbenkuang" name="useremail" type="text" id="useremail">
<font color=red>**</font></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>找回密码问题：</td>
<td class=pad><input class="wenbenkuang" name="quesion" type="text" id="quesion" maxlength="18"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=right>找回密码答案：</td>
<td class=pad><input class="wenbenkuang" name="answer" type="text" id="answer" maxlength="18"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>您的真实姓名：</td>
<td class=pad><input class="wenbenkuang" name="userzhenshiname" type="text" id="userzhenshiname" size="10">
<font color=red>**</font> 以便发货确认 </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>您的身份证号：</td>
<td class=pad><input class="wenbenkuang" name="sfz" type="text" id="sfz" maxlength="18" onKeyPress="event.returnValue=IsDigit();"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>姓　　别：</td>
<td class=pad><select name="sex" id="sex" class="selectmenu">
<option value="先生" selected>先生</option>
<option value="女士">女士</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>用户性质：</td>
<td class=pad><input type=radio name="face" value="个人用户" checked>
个人用户
<input type=radio name="face" value="企业用户">
企业用户 </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>收货(通讯)地址：</td>
<td class=pad><input class="wenbenkuang" name="shouhuodizhi" type="text" id="shouhuodizhi" size="40" maxlength="30">
<font color=red>**</font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>邮　　编：</td>
<td class=pad><input class="wenbenkuang" name="youbian" type="text" id="youbian" maxlength="6" size="10" onKeyPress="event.returnValue=IsDigit();">
<font color=red>**</font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>联系电话：</td>
<td class=pad><input class="wenbenkuang" name="usertel" maxlength="18" type="text" id="usertel">
<font color=red>**</font> </td>
</tr>
<%response.Write "<tr bgcolor=#FFFFFF><td width=30% align=right>送货方式：</td><td class=pad><select class=wenbenkuang name=songhuofangshi id=songhuofangshi>"
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_songhuo where fangshi=0 order by songidorder",conn,1,1
do while not rs2.EOF
response.Write "<option value="&rs2("songid")&">"&trim(rs2("subject"))&"</option>"
rs2.MoveNext
loop
rs2.Close
response.Write "</select><font color=red>**</font></td></tr>"
response.Write "<tr bgcolor=#FFFFFF><td width=30% align=right>支付方式：</td><td class=pad><select class=wenbenkuang name=zhifufangshi id=zhifufangshi>"
'////////////支付方式
rs2.Open "select * from shop_songhuo where fangshi=1 order by songidorder",conn,1,1
do while not rs2.EOF
response.Write "<option value="&rs2("songid")&">"&trim(rs2("subject"))&"</option>"
rs2.MoveNext
loop
rs2.Close
set rs2=nothing
response.Write "</select><font color=red>**</font></td></tr>"
%>
<tr bgcolor="#FFFFFF">
<td width=20% align="right"></td>
<td class=pad><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></td>
</tr>
</table>

<%case "save"
if session("regtimes")=1 then
response.Write "<table width=760 border=0 cellspacing=0 cellpadding=0 align=center class='table-zuoyou table-shangxia'><tr><td height=300 align=center><font color=red>对不起，您刚注册过用户，请稍后再进行注册!</font></td></tr></table>"
response.End
end if

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where username='"&trim(request("username"))&"'",conn,1,1
if rs.recordcount>0 then
response.write "<table width=760 align=center border=0 cellspacing=0 cellpadding=0 class=table-zuoyou table-shangxia><tr><td align=center>"
response.write "<table width=450 border=0 align=center cellpadding=2 cellspacing=0><tr><td height=260>"
response.write "· <font color=red>用户注册失败!</font><br>· 您输入的用户名已存在，请返回重新输入!<br>· <a href=javascript:history.go(-1)>返回上一页</a></td></tr></table></td></tr></table>"
rs.close
end if

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user]",conn,2,3
rs.addnew
rs("username")=trim(request("username"))'用户姓名
rs("sex")=request("sex")'性别
rs("userpassword")=md5(trim(request("userpassword")))'用户密码
rs("useremail")=trim(request("useremail"))'用户邮箱
rs("face")=trim(request("face"))'用户类别（个人或企业）
rs("quesion")=trim(request("quesion"))'找回密码问题
rs("answer")=trim(request("answer"))'找回密码答案
rs("userzhenshiname")=trim(request("userzhenshiname"))'用户真实姓名
rs("sfz")=trim(request("sfz"))'用户身份证号
rs("shouhuodizhi")=trim(request("shouhuodizhi"))'送货地址
rs("youbian")=trim(request("youbian"))'用户邮编
rs("usertel")=trim(request("usertel"))'用户电话
rs("songhuofangshi")=trim(request("songhuofangshi"))'用户收货方式
rs("zhifufangshi")=trim(request("zhifufangshi"))'支付方式
rs("adddate")=now()'加入时间
rs("lastlogin")=now()'最后登录时间
rs("logins")=1'登录次数
rs("reglx")=1'注册类型
rs("jifen")=0'积分初始化
rs("jiaoyijine")=0'交易金额
rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")'最后登录IP

rs.update
response.Cookies("godbook")("username")=rs("username")
response.Cookies("godbook")("userid")=rs("userid")

session("username")=rs("username")
session("userid")=rs("userid")
session("regtimes")=1'注册次数
session.Timeout=1
rs.close
set rs=nothing

set rs=server.CreateObject("adodb.recordset")
rs.Open "select * 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("userpassword"))
	
	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 & session("username")&"，您好：<br><br>"
	mailbody=mailbody & "欢迎您注册" & webname & "，我们将提供给您最好的服务！<br>"
	mailbody=mailbody & "下面是您在" & webname & "的注册信息：<br><br>"
	mailbody=mailbody & "注册名："&session("username")&"<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("useremail"))
jmail.body=mailbody
JMail.Subject=topic
if not jmail.Send ( mailaddress ) then
SendMail=""
else
SendMail="OK"
end if
	if SendMail="OK" then
	sendmsg="<p>· 您的注册信息已经发往您的邮箱，请注意查收!</p>"
	else
	sendmsg="<p>· 系统出错，注册信息资料未能发送到您的邮箱!</p>"
	end if

response.Write "<table width=774 align=center border=0 cellspacing=0 cellpadding=0 class=table-zuoyou table-shangxia><tr><td align=center> "
response.Write "<table width=450 border=0 align=center cellpadding=0 cellspacing=0><tr><td height=260>"
response.Write "<p>· <font color=red>用户注册成功!</font></p><p>· 恭喜您注册成为 ["&webname&"] 的正式用户，请记好您的用户名及密码!</p>"
response.Write "<p>· <a href=index.asp>系统将自动跳转至会员系统</a></p></td></tr></table></td></tr></table>"
response.write "<script>window.setTimeout(""location.href='Uindex/index.asp'"",500);</script>"
%>

<%end select%>

<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>