reg.asp

采用asp+fso技术 傻瓜式的程序安装和调试 用户无需考虑系统的安装维护 美观、友好的展示铺面 设计中应用了多种网络安全技术 顾客可以方便的查询并订购商品 用户可以方便的定义各种商品信息

                            </td>
                          </tr>
                          <tr bgcolor="#FFFFFF">
                            <td width=30% align=right>姓　　别：</td>
                            <td class=pad><input type=radio name=babysex id=Select1 value=0 checked>
                              男
                                <input type=radio name=babysex id=Select1 value=1>
                                女 </td>
                          </tr>
                          <tr bgcolor="#FFFFFF">
                            <td width=30% align=right>用户性质：</td>
                            <td class=pad><input type=radio name=dadyname value="个人用户" checked>
                              个人用户
                                <input type=radio name=dadyname 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>
        <table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
          <tr>
            <td bordercolor="#FFFFFF" bgcolor="#FFFFFF">
			<%case "save"%>
                <!--#include file="md5.asp"-->
                <%call saveuser()%>
                <%
end select%>
                <%sub tiaoyue()
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
end sub

sub saveuser()
if session("regtimes")=1 then
response.Write "<table width=760 border=0 cellspacing=0 cellpadding=0 align=center><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 useremail='"&trim(request("useremail"))&"' or username='"&trim(request("username"))&"'",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 [user]",conn,1,3
rs.addnew
rs("username")=trim(request("username"))
rs("userpassword")=md5(trim(request("userpassword")),16)
rs("useremail")=trim(request("useremail"))
rs("userzhenshiname")=trim(request("userzhenshiname"))
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("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 userid,face from [user] order by userid desc")
userid=rs(0)
response.Cookies("BOB")("username")=trim(request("username"))
response.Cookies("BOB")("jiaoyijine")=0
response.Cookies("BOB")("jifen")=0
response.Cookies("BOB")("reglx")=1
response.Cookies("shangcheng").expires=date+1
session("regtimes")=1
session.Timeout=1

        '存贮论坛数据库
		set bbsrs=server.CreateObject("adodb.recordset")
		bbsrs.open "select * from [Dv_User]",bbsconn,1,3
		bbsrs.addnew
        bbsrs("UserName")=trim(request("username"))
		bbsrs("UserPassword")=MD5(trim(request("userpassword")),16)
		bbsrs("UserEmail")=trim(request("useremail"))		
		bbsrs("UserQuesion")=trim(request("quesion"))
		bbsrs("UserAnswer")=md5(trim(request("answer")),16)
		bbsrs("Userclass")="新手上路"
		bbsrs("TitlePic")="level0.gif"
		bbsrs("UserFace")="Images/userface/image1.gif"
		bbsrs("UserPost")=0
		bbsrs("UserGroupID")=9
		bbsrs("Lockuser")=0
		bbsrs("UserSex")=1
		bbsrs("UserWidth")=32
		bbsrs("Usertoday")="0|0|0|0|0"
		bbsrs("UserHeight")=32
		bbsrs("UserLogins")=1
		bbsrs("LastLogin")=now()
		bbsrs("userWealth")=100
		bbsrs("userEP")=60
		bbsrs("usercP")=30
		bbsrs("UserPower")=0
		bbsrs("UserDel")=0
		bbsrs("UserIsbest")=0
		bbsrs("UserMoney")=0
		bbsrs("UserTicket")=0
		bbsrs("UserFav")="陌生人,我的好友,黑名单"
		bbsrs("IsChallenge")=0
		bbsrs("UserHidden")=0
		bbsrs("UserLastIP")=Request.ServerVariables("REMOTE_ADDR")
		TruePassWord=Createpass()
		bbsrs("TruePassWord")=TruePassWord
		bbsrs("UserIM")="||||||||||||||||||"
		bbsrs("UserInfo")="||||||||||||||||||||||||||||||||||||||||||"
		bbsrs("UserSetting")="1|||0|||0"
		bbsrs.Update
		bbsconn.Execute("UpDate Dv_Setup Set Forum_UserNum=Forum_UserNum+1,Forum_lastUser='"&trim(request("username"))&"'")
		bbsrs.update
		bbsrs.close
		set bbsrs=nothing
		Set bbsrs2=bbsconn.execute("select top 1 userid from [Dv_user] order by userid desc")
		bbsuserid=bbsrs2(0)
		bbsrs2.close
		set bbsrs2=nothing
		'Response.Cookies("DvForum").Expires=Date+1
		Response.Cookies("DvForum")("usercookies") = 1
		Response.Cookies("DvForum")("username") = trim(request("username"))
		Response.Cookies("DvForum")("password") = TruePassWord
		Response.Cookies("DvForum")("userclass") = "新手上路"
		Response.Cookies("DvForum")("userid") = bbsuserid
		Response.Cookies("DvForum")("userhidden") = 2
		Response.Cookies("DvForum").path="/bbs/"

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

'发送邮件
'if Forum_Setting(47)=1 then
	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 & trim(request("username"))&"，您好：<br><br>"
	mailbody=mailbody & "欢迎您注册" & webname & "网上商城，我们将提供给您最好的服务！<br>"
	mailbody=mailbody & "下面是您在" & webname & "网上商城的注册信息：<br><br>"
	mailbody=mailbody & "注册名："&trim(request("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 mailbody
'end if

response.Write "<table width=760 align=center border=0 cellspacing=0 cellpadding=0 class=table-zuoyou bordercolor=#CCCCCC><tr><td bordercolor=#FFFFFF bgcolor=#FFFFFF 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>"
end if
end sub

sub usererr()
response.write "<table width=760 align=center border=0 cellspacing=0 cellpadding=0 class=table-zuoyou bordercolor=#CCCCCC><tr><td bordercolor=#FFFFFF bgcolor=#FFFFFF align=center>"
response.write "<table width=450 border=0 align=center cellpadding=2 cellspacing=0><tr><td height=260>"
response.write "<p>· <font color=red>用户注册失败!</font></p><p>· 您输入的用户名或e-mail地址已存在，请返回重新输入!</p><p>· <a href=javascript:history.go(-1)>返回上一页</a></p> </td></tr></table></td></tr></table>"
end sub
%>
            </td>
          </tr>
        </table></TD>
      <TD class=b width=7></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>