userparam.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

            <tr class="hback"> 
              <td align="right">用户编号规则_分割符：</td>
              <td><input name="ID_Devide" type="text" id="ID_Devide2" size="50" value="<% if Ubound(IDRule_Array)>=3 then Response.Write(IDRule_Array(3))%>"/></td>
            </tr>
            <tr class="hback"> 
              <td align="right">用户名长度限制：</td>
              <td> 最小长度： 
                <input name="UserName_Length_Min" type="text" id="UserName_Length_Min" size="14" value="<% = UserName_Length_Array(0)%>"/>
                最大长度： 
                <input name="UserName_Length_Max" type="text" id="UserName_Length_Max" size="14" value="<% = UserName_Length_Array(1)%>" /> 
                <span id="UserName_Length_alert1"></span><span id="UserName_Length_alert2"></span>              </td>
            </tr>
            <tr class="hback"> 
              <td align="right">禁止注册的用户名：</td>
              <td><textarea name="Forbid_UserName" cols="50" id="textarea2" onKeyUp="ReplaceDot('Forbid_UserName')"><%=Forbid_UserName%></textarea></td>
            </tr>
            <tr class="hback"> 
              <td align="right">密码长度限制：</td>
              <td> 最小长度： 
                <input name="Pwd_Length_Min" type="text" id="Pwd_Length_Min" size="14"  value="<% = Pwd_Length_Array(0)%>"/>
                最大长度： 
                <input name="Pwd_Length_Max" type="text" id="Pwd_Length_Max" size="14"  value="<% = Pwd_Length_Array(1)%>"/> 
                <span id="Pwd_Length_alert1"></span><span id="Pwd_Length_alert2"></span ></td>
            </tr>
            <tr class="hback"  style="display:none"> 
              <td align="right">发送电子邮件信息：</td>
              <td><input type="radio" name="isSendMail" value="1">
                是&nbsp; <input type="radio" name="isSendMail" value="0" checked/>
                否 </td>
            </tr>
            <tr class="hback" style="display:none"> 
              <td align="right">电子邮件验证：</td>
              <td><input type="radio" name="Email_Aduit" value="1"/>
                是&nbsp; <input type="radio" name="Email_Aduit" value="0" checked>
                否 </td>
            </tr>
            <tr class="hback"> 
              <td align="right">会员注册须知：<br>
                （支持html语法）<br> <span id="Reg_Alert"></span></td>
              <td><textarea name="Reg_Help" cols="80" rows="10" id="Reg_Help"><%=Reg_Help%></textarea></td>
            </tr>
            <tr class="hback"> 
              <td align="right">&nbsp;</td>
              <td><input type="Button" name="BaseSubmitButton"  onClick="BaseSubmit()" value=" 保存 " /> 
                <input type="reset" name="reset" value=" 重置 " /></td>
            </tr>
          </form>
        </table>
      </div>	  
        
      <div id="Layer2" style="position:relative;z-index:1; left: 0px; top: 0px; display:none"> 
        <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
          <form action="ParamAction.asp?Act=OtherParam" method="post" name="OtherParam" id="OtherParam">
            <tr class="hback"> 
              <td align="right" width="190">登录风格： </td>
              <td><select name="LoginStyle" id="LoginStyle">
                  <option value="1" <%if LoginSytle=1 then Response.Write("selected") end if%>>默认风格</option>
                  <option value="2" <%if LoginSytle=2 then Response.Write("selected") end if%>>银色风格</option>
                  <option value="3" <%if LoginSytle=3 then Response.Write("selected") end if%>>蓝色海洋</option>
                  <option value="4" <%if LoginSytle=4 then Response.Write("selected") end if%>>浪漫咖啡</option>
                  <option value="5" <%if LoginSytle=5 then Response.Write("selected") end if%>>青青河草</option>
                </select></td>
            </tr>
            <tr class="hback"> 
              <td align="right">登录成功返回页面：</td>
              <td><p> 
                  <label> </label>
                  <label> 
                  <input type="radio" name="ReturnUrl" value="0" <%if ReturnUrl=0 then Response.Write("checked") end if%>>
                  会员中心 </label>
                  <label> 
                  <input type="radio" name="ReturnUrl" value="1" <%if ReturnUrl=1 then Response.Write("checked") end if%> />
                  首页 </label>
                  <label> 
                  <input type="radio" name="ReturnUrl" value="2" <%if ReturnUrl=2 then Response.Write("checked") end if%>>
                  之前页</label>
                  <br>
                </p></td>
            </tr>
            <tr class="hback" style="display:none"> 
              <td align="right">黄页是否审核：</td>
              <td> <input type="radio" name="isYellowCheck" value="1" <%if isYellowCheck=1 then Response.Write("checked")%>>
                是 
                <input type="radio" name="isYellowCheck" value="0" <%if isYellowCheck=0 then Response.Write("checked")%>>
                否</td>
            </tr>
            <tr class="hback"> 
              <td align="right">名片收藏需要允许：</td>
              <td><input type="radio" name="isPassCard" value="1" <%if isPassCard=1 then Response.Write("checked")%>>
                是 
                <input type="radio" name="isPassCard" value="0" <%if isPassCard=0 then Response.Write("checked")%>>
                否</td>
            </tr>
            <tr class="hback"> 
              <td align="right">防登录猜测：</td>
              <td>密码错误 
                <input name="ErrorPwdTimes" type="text" id="EErrorPwdTimes" value="<%=ErrorPwdTimes%>" size="10" />
                次后，锁定该用户功能 （0为不限制） <span id="ErrorPwdTimes_alert"></span></td>
            </tr>
            <tr class="hback"> 
              <td align="right">会员列表每页显示数：</td>
              <td><input name="ShowNumberPerPage" type="text" id="PShowNumberPerPage" size="50" value="<%=ShowNumberPerPage%>" /> 
                <span id="ShowNumberPerPage_alert"></span> </td>
            </tr>
            <tr class="hback"> 
              <td align="right">上传文件类型：</td>
              <td><input name="UpfileType" type="text" id="UpfileType" size="50" onKeyUp="ReplaceDot('UpfileType')" value="<%=UpfileType%>"/>
                （用 ，隔开）</td>
            </tr>
            <tr class="hback"> 
              <td align="right">上传大小限制：</td>
              <td><input name="UpfileSize" type="text" id="UpfileSize" size="50"  value="<%=UpfileSize%>" />
                k <span id="UpfileSize_alert">&nbsp;</span>单个上传文件大小，对所有用户 </td>
            </tr>
            <tr class="hback"> 
              <td align="right">站内短信容量:</td>
              <td><input name="MessageSize" type="text" id="MessageSize" size="50" value="<%=MessageSize%>"/>
                kbyte <span id="MessageSize_alert"></span></td>
            </tr>
            <tr class="hback"> 
              <td align="right">开通RSS订阅：</td>
              <td><label> 
                <input type="radio" name="RssFeed" value="1" <%if RssFeed=1 then Response.Write("checked") end if%>>
                是 </label> <label> 
                <input type="radio" name="RssFeed" value="0" <%if RssFeed=0 then Response.Write("checked") end if%>>
                否</label></td>
            </tr>
            <tr class="hback" style="display:none"> 
              <td align="right">信息分类(专区,文集)：</td>
              <td>最多分类： 
                <input name="LimitClass" type="text" id="LimitClass" size="14"  value="<%if ubound(LimitClass_Array)>=0 then Response.Write(LimitClass_Array(0)) end if%>"> 
                &nbsp;&nbsp;分类的数量 
                <input name="LimitClass2" type="text" id="LimitClass2" size="14"  value="<%if ubound(LimitClass_Array)>=1 then Response.Write(LimitClass_Array(1)) end if%>"> 
                <span id="LimitClass_Alert1"></span>&nbsp;<span id="LimitClass_Alert2"></span>如果设置了会员默认会员组权限，此项设置不起作用</td>
            </tr>
            <tr class="hback" style="display:none;"> 
              <td align="right">用户目录：</td>
              <td><input name="MemberFile" type="text" id="MemberFile"  size="50" value=""/>
                （默认：userfiles）</td>
            </tr>
            <tr class="hback" style="display:none;"> 
              <td align="right">认证文件目录：</td>
              <td><input name="CertDir" type="text" id="CertDir"  value="<%=CertDir%>" size="50"/>
                （默认：certfiles）</td>
            </tr>
            <tr class="hback"> 
              <td align="right">过滤评论关键字：</td>
              <td><textarea name="LimitReviewChar" cols="50" onKeyUp="ReplaceDot('LimitReviewChar')" id="LimitReviewChar"><%=LimitReviewChar%></textarea></td>
            </tr>
            <tr class="hback"> 
              <td align="right">评论是否需要审核：</td>
              <td><input name="ReviewTF" type="radio" value="1" <%if ReviewTF=1 then response.Write"checked"%>/>
                是 
                <input name="ReviewTF" type="radio" value="0" <%if ReviewTF=0 then response.Write"checked"%> />
                否</td>
            </tr>
            <tr class="hback"> 
              <td align="right">&nbsp;</td>
              <td><input type="Button" name="OtherSubmitButtont" onClick="OtherSubmit()" value=" 保存 " /> 
                <input type="reset" name="Submit2" value=" 重置 " /></td>
            </tr>
          </form>
        </table>
      </div>
	  <div id="Layer3" style="position:relative;z-index:1; left: 0px; top: 0px; display:none"> 
        <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
          <form action="ParamAction.asp?Act=MoneyParam" method="post" name="MoneyParam" id="MoneyParam">
            <tr class="hback"> 
              <td align="right">金币名称：</td>
              <td width="596"> <input name="MoneyName" type="text" id="MoneyName" size="50" value="<%=MoneyName%>" /> 
                <span id="moneyName_alert"></span></td>
            </tr>
            <tr class="hback"> 
              <td align="right">注册获取积分和金币：</td>
              <td>积分： 
                <input name="Reg_Point" type="text" id="Reg_Point" size="15"  value="<%if ubound(RegPointmoney_Array)>=0 then Response.Write(RegPointmoney_Array(0)) end if%>" /> 
                &nbsp; 金币： 
                <input name="Reg_Money" type="text" id="Reg_Money" size="15"  value="<%if ubound(RegPointmoney_Array)>=1 then Response.Write(RegPointmoney_Array(1)) end if%>" /> 
                <span id="Reg_Point_Alert"></span>&nbsp; <span id="Reg_Money_Alert"></span></td>
            </tr>
            <tr class="hback"> 
              <td align="right">积分金币兑换比例：</td>
              <td> 
			  <input type="radio" name="PointChange" value="0" <%if PointChange_TF=0 then Response.Write("checked") end if%> onClick="DisAbledPorM('dd','dd');"/>
                不启用 
                <input type="radio" name="PointChange" value="1" <%if PointChange_TF=1 then Response.Write("checked") end if%> onClick="DisAbledPorM('dd','d');">
                积分换金币 
                <input type="radio" name="PointChange" value="2" <%if PointChange_TF=2 then Response.Write("checked") end if%> onClick="DisAbledPorM('d','dd');">
                金币换积分 
                <input type="radio" name="PointChange" value="3" <%if PointChange_TF=3 then Response.Write("checked") end if%> onClick="DisAbledPorM('d','d');">
                互换</td>
            </tr>
            <%
				Dim DisAbledPoint,DisAbledMoney,PointAutoV,MoneyAutoV
				IF PointChange_TF=0 Then
					DisAbledPoint = " disabled"
					DisAbledMoney = " disabled"
					PointAutoV = "300"
					MoneyAutoV = "0.0001"
				ElseIf PointChange_TF=1 Then
					DisAbledPoint = " disabled"
					DisAbledMoney = ""
					PointAutoV = "300"
					if Ubound(PointChange_Array) >= 2 then 
						MoneyAutoV = PointChange_Array(2) 
					Else 
						MoneyAutoV =  "0.0001" 
					End if
				ElseIF PointChange_TF=2 Then
					DisAbledPoint = ""		
					DisAbledMoney = " disabled"
					if Ubound(PointChange_Array) >= 1 then