reg.asp

台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.

                    Rs.addnew
                    User_Passwd=checkfSQLStr(trim(Request.form("R_Pass")))
                    Rs("User_Name")=UserName
                    Rs("User_Passwd")=Md5(User_Passwd)
                    Rs("User_Quesion")=checkfSQLStr(trim(Request.form("R_Quesion")))
                    User_Answer=checkfSQLStr(trim(Request.form("R_Answer")))
                    Rs("User_Answer")=Md5(User_Answer)
                    Rs("User_Email")=checkfSQLStr(trim(Request.form("R_Email")))
                    Rs("User_UserName")=checkfSQLStr(trim(Request.form("R_UserName")))
                    Rs("User_UserRess")=checkfSQLStr(trim(Request.form("R_UserRess")))
                    Rs("User_UserTel")=checkfSQLStr(trim(Request.form("R_UserTel")))
                    Rs("User_UserCode")=checkfSQLStr(trim(Request.form("R_UserCode")))
                    Rs("User_shopPay")=Request.form("R_Pay")
                    Rs("User_shopGive")=Request.form("R_Give")
                    Rs("User_UserQq")=checkfSQLStr(trim(Request.form("R_UserQq")))
                    Rs("User_UserMsn")=checkfSQLStr(trim(Request.form("R_UserMsn")))
                    Rs("User_UserWeb")=checkfSQLStr(trim(Request.form("R_UserWeb")))
                    Rs("User_UserLtd")=checkfSQLStr(trim(Request.form("R_UserLtd")))
                    Rs("User_Picture")=Request.form("Picture")
                    Rs("User_Group")=1
                    Rs("User_UserLtd")=checkfSQLStr(trim(Request.form("R_UserLtd")))
                    User_UserContent=trim(Request.form("R_UserContent"))
                    User_UserSigns=trim(Request.form("R_UserSigns"))
                    replaceall=Web_Const(43)
                    replaceall=split(replaceall,",")
                    For i=0 To ubound(replaceall)
                        For intTemp=0 To len(replaceall(i))
                            replacestr=replacestr & "*"
                        Next
                        User_UserContent=replace(User_UserContent,replaceall(i),replacestr)
                        User_UserSigns=replace(User_UserSigns,replaceall(i),replacestr)
                        replacestr=""
                    Next
                    IF Web_Const(42)=1 THEN
                        Rs("User_UserContent")=checkfSQLStr(User_UserContent)
                        Rs("User_UserSigns")=checkfSQLStr(User_UserSigns)
                    Else
                        Rs("User_UserContent")=nohtml(User_UserContent)
                        Rs("User_UserSigns")=nohtml(User_UserSigns)
                    End IF
                    Rs("User_regIp")=VisitorsIp
                    Rs("User_regDate")=Now()
                    Rs("User_Flag")=Web_Const(41)
                    Rs("User_LoginDate")=Now()
                    Rs("User_OldLoginDate")=Now()
                    Rs("User_LoginIp")=VisitorsIp
                    Rs("User_OldLoginIp")=VisitorsIp
                    Rs("User_LoginCount")=1
                    Rs.UpDate
                    Logincount=Rs("User_LoginCount")
                    Session("Loginuser")=UserName
                    Session("Logincount")=Logincount
                    Session.Timeout=20
                Rs.close
                Set Rs=Nothing
				IF Web_Const(61)=1 THEN
				    IF Web_Reg(9)=1 THEN
					    Title_E="用户注册成功!"
						dim EmailTo
						EmailTo=checkfSQLStr(trim(Request.form("R_Email")))
						Content_E=replace(replace(replace(replace(Web_Const(75),"{Reg_Name}",UserName),"{Reg_Pass}",User_Passwd),"{Reg_Quesion}",checkfSQLStr(trim(Request.form("R_Quesion")))),"{Reg_Answer}",User_Answer)
						Content_E=Content_E & "<BR><BR>" & Web_Const(68)
				        SendEmail EmailTo,Title_E,Content_E,Web_Const(62)
				    End IF
				End IF
                ToHistory="Userinfo.asp"
                saveok="恭喜您，注册成功！"
                Call Form_Saveok()
            End IF
        End IF
    End IF
    Page_Name="用户注册 -- " & Web_Const(0)
    Call Page_Head()
    Call Page_iHead()
    Call Page_nHead()
    %>
	<TABLE WIDTH="770"  BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
        <TR>
            <TD VALIGN="top" CLASS="TABLE-Main"><DIV CLASS="page-head">用户注册</DIV><DIV CLASS="TABLE-Mainall">
                <%
                Select Case Action
                Case ""
                %>
                    <Form NAME=Complete method=post action="Reg.asp?Action=Complete" >
                    <DIV CLASS="reg-NAME"><%=Web_Const(0)%>用户注册协议</DIV>
                    <DIV CLASS="TYPE-height2"></DIV><BR>
                    <%=Web_Const(37)%><BR>
                    <DIV CLASS="TYPE-height2"></DIV>
                    <DIV CLASS="table-tstd"><BR><A HREF="javascript:history.go(-1);"><IMG SRC="Skins/Blue/back.gif" ALIGN="absmiddle" BORDER="0"></A> <INPUT TYPE="image" SRC="Skins/Blue/next.gif" NAME="Ok" ALIGN="absmiddle"></DIV>
                    </Form>
                <%case "Complete"%>
                    <Form NAME=Save METHOD=post action="Reg.asp?Action=Save" >
                    用 户 名： <INPUT NAME="R_User" TYPE="text" CLASS="INPUTimage1" ID="R_User" SIZE="25" MAXLENGTH="25"> <INPUT TYPE="image" SRC="Skins/Blue/reg_user.gif" NAME="Ok" ALIGN="absmiddle" onClick="this.form.action='Reg.asp?Action=Detection';this.form.submit()"> <FONT color="#ff0000">*</FONT>　用户名不能超过25个字符<BR>
                    登陆密码： <INPUT NAME="R_Pass" TYPE="password" CLASS="INPUTimage1" ID="R_Pass" SIZE="15" MAXLENGTH="20"> <FONT color="#ff0000">*</FONT>　密码长度为6-20个字符<BR>
                    确认密码： <INPUT NAME="R_Passtoo" TYPE="password" CLASS="INPUTimage1" ID="R_Passtoo" VALUE="" SIZE="15"> <FONT color="#ff0000">*</FONT>　请再输入一次登陆密码<BR>
                    寻密问题： <INPUT NAME="R_Quesion" TYPE="text" CLASS="INPUTimage1" ID="R_Quesion" SIZE="20" MAXLENGTH="50"> <FONT color="#ff0000">*</FONT>　可以根据此问题找回您遗失的密码<BR>
                    密码答案： <INPUT NAME="R_Answer" TYPE="password" CLASS="INPUTimage1" ID="R_Answer" SIZE="20" MAXLENGTH="50"> <FONT color="#ff0000">*</FONT>　问题答案<BR>
                    电子邮件： <INPUT NAME="R_Email" TYPE="text" CLASS="INPUTimage1" ID="R_Email" SIZE="25" MAXLENGTH="50"> <FONT color="#ff0000">*</FONT>　正确的Email，以便我们提供更周到的服务<BR>
                    <%IF Web_Const(38)=1 THEN%>验 证 码： <INPUT NAME="VerifyCode" SIZE="7" MAXLENGTH="4" TYPE="text" CLASS="INPUTimage1" VALUE="<%If GetCode=9999 THEN%>9999<%End IF%>"> <IMG SRC="Getcode.asp" ALIGN="absmiddle"><BR><%End IF%>
                    高级选项： <INPUT ID=advcheck NAME=advshow TYPE=checkbox VALUE=1 onclick=showadv()><BR>
                    <DIV ID=adv STYLE="DISPLAY: none">
                    真实姓名： <INPUT NAME="R_UserName" TYPE="text" CLASS="INPUTimage1" ID="R_UserName" SIZE="25" MAXLENGTH="25">　您在本站订购产品的收货人姓名<BR>
                    联系地址： <INPUT NAME="R_UserRess" TYPE="text" CLASS="INPUTimage1" ID="R_UserRess" SIZE="25" MAXLENGTH="50">　如果您有订购产品，我们将按此地址给您发货<BR>
                    邮政编码： <INPUT NAME="R_UserCode" TYPE="text" CLASS="INPUTimage1" onkeypress='event.returnValue=IsDigit();'  ID="R_UserCode" SIZE="10" MAXLENGTH="6">　<BR>
                    联系电话： <INPUT NAME="R_UserTel" TYPE="text" CLASS="INPUTimage1" ID="R_UserTel" SIZE="15" MAXLENGTH="20">　请留下您的联系电话以便我们能及时与您联系<BR>
                    支付方式： <select NAME="R_Pay" CLASS="INPUTimage1"><OPTION VALUE="">请选择您最常用的支付方式</OPTION><%call Page_Pays(0)%></select>　<BR>
                    收货方式： <select NAME="R_Give" CLASS="INPUTimage1"><OPTION VALUE="">请选择您最方便的收货方式</OPTION><%call Page_Gives(0)%></select><BR>
                    QQ 号码： <INPUT NAME="R_UserQq" TYPE="text" CLASS="INPUTimage1" onkeypress='event.returnValue=IsDigit();' ID="R_UserQq" SIZE="11" MAXLENGTH="20"><BR>
                    &nbsp;　MSN ： <INPUT NAME="R_UserMsn" TYPE="text" CLASS="INPUTimage1" ID="R_UserMsn" SIZE="15" MAXLENGTH="20"><BR>
                    个人主页： <INPUT NAME="R_UserWeb" TYPE="text" VALUE="http://" CLASS="INPUTimage1" ID="R_UserWeb" SIZE="30" MAXLENGTH="30"><BR>
                    单位名称： <INPUT NAME="R_UserLtd" TYPE="text" CLASS="INPUTimage1" ID="R_UserLtd" SIZE="30" MAXLENGTH="30"><BR>
                    用户头像： <Select NAME="Picture" SIZE="1"  ID="Picture" ALIGN="absmiddle" CLASS="INPUTimage1" onChange="document.all.idface.src=options[selectedIndex].value;">
                    <%
                    Set Rs_cm=server.createobject("adodb.recordset")
                    Sql="Select * from Tx_Picture Order By Picture_Id"
                    Rs_cm.open Sql,Conn,1,1
                        While Not Rs_cm.eof
                            response.write "<OPTION VALUE='" & Rs_cm("Picture_Url") & "'>" & Rs_cm("Picture_Name") & "</OPTION>"
                            IF Picture="" THEN Picture=Rs_cm("Picture_Url")
                        Rs_cm.MoveNext
                        Wend
                    Rs_cm.Close
                    Set Rs_cm=Nothing
                    %>
                    </Select>　　　　<IMG hspace=5 SRC=<%=Picture%> vspace="3" BORDER="0" ID="idface" ALIGN="absmiddle"><BR>
                    个人简介： <TEXTAREA NAME="R_UserContent" COLS="50" CLASS="INPUTimage" ROWS="5"></TEXTAREA><BR>
                    个性签名： <TEXTAREA NAME="R_UserSigns" COLS="50" CLASS="INPUTimage" ROWS="5"></TEXTAREA><BR>
                    </DIV>
                    <DIV CLASS="table-tstd"><BR><A HREF="javascript:history.go(-1);"><IMG SRC="Skins/Blue/back.gif" ALIGN="absmiddle" BORDER="0"></A> <INPUT TYPE="image" SRC="Skins/Blue/next.gif" NAME="Ok" ALIGN="absmiddle"></DIV>
                    </Form>
                <%End Select%>
                </DIV>
            </TD>
            <TD WIDTH="5"></TD>
            <TD WIDTH="195" ALIGN="center" VALIGN="top" CLASS="TABLE-Side">
                <DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">产品搜索</SPAN></DIV>
                <DIV CLASS='TABLE-side3'><%Call page_Search("Products")%></DIV>
                <DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">订单搜索</SPAN></DIV>
                <DIV CLASS='TABLE-side3'><%Call page_Search("ShopCode")%></DIV>
            </TD>
        </TR>
    </TABLE>
    <%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>