reg.asp

强大的后台管理功能,给用户自由制定页面,新闻、产品多级分类。 管理员后台站点关闭,后台管理员仍然可以登陆。页面是否允许使用右键和复制功能。自定义IE状态栏、版权等显示信息。 开通会员注册和产品

                    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="990" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="321" valign="bottom" bgcolor="#082421"><span>
          <%Call Page_Login()%>
        </span><img src="Skins/blak/leftad.jpg" width="321" /></td>
        <td valign="top" bgcolor="#003333"><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td valign="top" ><div class="page-head">用户注册</div>
                <div class="TABLE-Mainall">
                  <%
                Select Case Action
                Case ""
                %>
                  <form action="Reg.asp?Action=Complete" method="post" name="Complete" id="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 action="Reg.asp?Action=Save" method="post" name="Save" id="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="Ok2" 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="Ok2" align="absmiddle" />
                    </div>
                  </form>
                  <%End Select%>
              </div></td>
          </tr>
        </table></td>
      </tr>
    </table>
	<%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>