开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
UserParam.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：31k
源码类别：

数据库编程

开发平台：

ASP/ASPX

UserParam.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../../FS_Inc/Function.asp" -->
  5. <%
  6. Dim Conn,User_Conn,UserSysParaRs
  7. Dim AllowReg,AllowChinese,NeedAudit,Corp_NeedAudit,Login_Filed,OnlyMemberLogin,ID_Rule,IDRule_Array,ID_Elem,ID_Postfix,Needword,UserName_Length,UserName_Length_Max,UserName_Length_Max_Min,UserName_Length_Array,Forbid_UserName,Pwd_Length,Pwd_Length_Max,Pwd_Length_Min,Pwd_Length_Array,Pwd_Contain_Word,ResigterNeedFull,isSendMail,Email_Aduit,Reg_Help
  8. Dim CheckCodeStyle,LoginSytle,ReturnUrl,ErrorPwdTimes,ShowNumberPerPage,UpfileType,UpfileSize,MessageSize,RssFeed,LimitClass,LimitClass_Array,CertDir,LimitReviewChar,isPassCard,isYellowCheck
  9. Dim DefaultGroupID,MoneyName,MoneyUnit,RegPointmoney,RegPointmoney_Array,LoginPointmoney,LoginPointmoney_Array,PointChange,PointChange_TF,PointChange_Array,isPrompt,isPrompt_TF,isPrompt_Array,LenLoginTime,LenLoginTimeArray,ReviewTF,contrPoint,contrMoney,contrAuditPoint,contrAuditMoney
  10. MF_Default_Conn
  11. MF_User_Conn
  12. MF_Session_TF
  13. Set UserSysParaRs=server.CreateObject(G_FS_RS)
  14. UserSysParaRs.open "select top 1 RegisterTF,AllowChineseName,RegisterCheck,isCheckCorp,OnlyMemberLogin,UserNumberRule,LenUserName,LimitUserName,LenPassword,isSendMail,isValidate,RegisterNotice,VerCodeStyle, Login_Style,ReturnUrl,LoginLockNum,MemberList,UpfileType,UpfileSize,MessageSize,RssFeed,limitClass,CertDir,LimitReviewChar,MoneyName,RegPointmoney,LoginPointmoney,PointChange,isPrompt,LenLoginTime,DefaultGroupID,isYellowCheck,isPassCard,ReviewTF,contrPoint,contrMoney,contrAuditPoint,contrAuditMoney From FS_ME_SysPara",User_Conn,1,3
  15. '*****************************************************************
  16. if not UserSysParaRs.eof then
  17. 'baseParam
  18. AllowReg=UserSysParaRs("RegisterTF")
  19. AllowChinese=UserSysParaRs("AllowChineseName")
  20. NeedAudit=UserSysParaRs("RegisterCheck")
  21. Corp_NeedAudit=UserSysParaRs("isCheckCorp")
  22. OnlyMemberLogin=UserSysParaRs("OnlyMemberLogin")
  23. ID_Rule=UserSysParaRs("UserNumberRule")
  24. UserName_Length=UserSysParaRs("LenUserName")
  25. Forbid_UserName=UserSysParaRs("LimitUserName")
  26. Pwd_Length=UserSysParaRs("LenPassword")
  27. isSendMail=UserSysParaRs("isSendMail")
  28. Email_Aduit=UserSysParaRs("isValidate")
  29. Reg_Help=UserSysParaRs("RegisterNotice")
  30. 'OtherParam
  31. CheckCodeStyle=UserSysParaRs("VerCodeStyle")
  32. LoginSytle=UserSysParaRs("Login_Style")
  33. ReturnUrl=UserSysParaRs("ReturnUrl")
  34. ErrorPwdTimes=UserSysParaRs("LoginLockNum")
  35. ShowNumberPerPage=UserSysParaRs("MemberList")
  36. UpfileType=UserSysParaRs("UpfileType")
  37. UpfileSize=UserSysParaRs("UpfileSize")
  38. MessageSize=UserSysParaRs("MessageSize")
  39. RssFeed=UserSysParaRs("RssFeed")
  40. LimitClass=UserSysParaRs("limitClass")
  41. CertDir=UserSysParaRs("CertDir")
  42. LimitReviewChar=UserSysParaRs("LimitReviewChar")
  43. ReviewTF=UserSysParaRs("ReviewTF")
  44. isYellowCheck=UserSysParaRs("isYellowCheck")
  45. isPassCard=UserSysParaRs("isPassCard")
  46. DefaultGroupID=UserSysParaRs("DefaultGroupID")
  47. 'About Money
  48. MoneyName=UserSysParaRs("MoneyName")
  49. RegPointmoney=UserSysParaRs("RegPointmoney")
  50. LoginPointmoney=UserSysParaRs("LoginPointmoney")
  51. PointChange=UserSysParaRs("PointChange")
  52. isPrompt=UserSysParaRs("isPrompt")
  53. LenLoginTime=UserSysParaRs("LenLoginTime")
  54. contrPoint=UserSysParaRs("contrPoint")
  55. contrMoney=UserSysParaRs("contrMoney")
  56. contrAuditPoint=UserSysParaRs("contrAuditPoint")
  57. contrAuditMoney=UserSysParaRs("contrAuditMoney")
  58. End if
  59. '******************************************************************
  60. if len(UserName_Length)>0 then
  61. UserName_Length_Array=split(UserName_Length,",")
  62. End if
  63. if len(Pwd_Length)>0 then
  64. Pwd_Length_Array=split(Pwd_Length,",")
  65. End if
  66. if len(ID_Rule)>0 then
  67. IDRule_Array=split(ID_Rule,",")
  68. End if
  69. if Ubound(IDRule_Array)>=1 then
  70. ID_Elem=IDRule_Array(1)
  71. end if
  72. if Ubound(IDRule_Array)>=2 then
  73. ID_Postfix=IDRule_Array(2)
  74. end if
  75. if len(LimitClass)>0 then
  76. LimitClass_Array=split(LimitClass,",")
  77. End if
  78. if len(RegPointmoney)>0 then 
  79. RegPointmoney_Array=split(RegPointmoney,",")
  80. end if
  81. if len(LoginPointmoney)>0 then 
  82. LoginPointmoney_Array=split(LoginPointmoney,",")
  83. end if
  84. if len(PointChange)>0 then 
  85. PointChange_Array=split(PointChange,",")
  86. end if
  87. if ubound(PointChange_Array)>=0 then 
  88. PointChange_TF=PointChange_Array(0)
  89. end if
  90. if len(LenLoginTime)>0 then
  91. LenLoginTimeArray=split(LenLoginTime,",")
  92. end if
  93. if len(isPrompt)>0 then 
  94. isPrompt_Array=split(isPrompt,",")
  95. end if
  96. if Ubound(isPrompt_Array)>=0 then
  97. isPrompt_TF=isPrompt_Array(0)
  98. end if
  99. %>
  100. <html xmlns="http://www.w3.org/1999/xhtml">
  101. <HEAD>
  102. <TITLE>FoosunCMS</TITLE>
  103. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  104. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  105. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes>
  106. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  107.     <tr class="hback"> 
  108.       <td width="140" align="right" class="xingmu" colspan="3"><div align="left">会员系统参数设置</div></td>
  109.     </tr>
  110. <tr class="hback"> 
  111. <td width="33%"  id="Lab_Base"><div align="center"><strong><a href="#" onClick="showParamPanel(1)">基本参数设置</a></strong></div></td>
  112. <td width="33%" height="19" class="hback_1" id="Lab_Other"> <div align="center"><strong><a href="#" onClick="showParamPanel(2)">其他参数设置</a></strong></div></td>
  113. <td width="33%" height="19" class="hback_1" id="Lab_Money"> <div align="center"><strong><a href="#" onClick="showParamPanel(3)">积分金币设置</a></strong></div></td>
  114. </tr>
  115.     <tr class="hback">
  116.       <td align="right"  colspan="3">
  117.         <div id="Layer1" style="position:relative; z-index:1; left: 0px; top: 0px;"> 
  118.         <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  119.           <form action="ParamAction.asp?Act=BaseParam" method="post" name="BaseParam" id="BaseParam">
  120.             <tr class="hback">
  121.               <td width="210" align="right"><div align="right">会员注册默认会员组：</div></td>
  122.               <td><label>
  123.                 <select name="DefaultGroupID" id="DefaultGroupID">
  124. <%
  125. dim rsGroup
  126. set rsGroup = User_Conn.execute("select GroupID,GroupName from FS_ME_Group where GroupType=1 Order by GroupID asc")
  127. do while not rsGroup.eof
  128. if DefaultGroupID = rsGroup("GroupID") Then
  129. Response.Write ("<option value="""&rsGroup("GroupID")&""" selected>"&rsGroup("GroupName")&"</option>")
  130. else
  131. Response.Write ("<option value="""&rsGroup("GroupID")&""">"&rsGroup("GroupName")&"</option>")
  132. end if
  133. rsGroup.Movenext
  134. loop
  135. rsGroup.close:set rsGroup=nothing
  136. %>
  137.                 </select>
  138.               </label></td>
  139.             </tr>
  140.             <tr class="hback"> 
  141.               <td align="right">允许注册：</td>
  142.               <td> <input type="radio" name="AllowReg" value="1" <%if AllowReg=1 then Response.Write("checked") end if%>>
  143.                 是&nbsp; <input type="radio" name="AllowReg" value="0" <%if AllowReg=0 then Response.Write("checked") end if %>>
  144.                 否 </td>
  145.             </tr>
  146.             <tr class="hback"> 
  147.               <td align="right"> 允许中文名称注册：</td>
  148.               <td width="743"> <input type="radio" name="AllowChinese" value="1" <% if AllowChinese=1 then Response.Write("checked") end if%>>
  149.                 是&nbsp; <input type="radio" name="AllowChinese" value="0" <% if AllowChinese=0 then Response.Write("checked") end if%>>
  150.               否 </td>
  151.             </tr>
  152.             <tr class="hback"> 
  153.               <td align="right"> 个人注册需要审核：</td>
  154.               <td><input type="radio" name="NeedAudit" value="1" <% if NeedAudit=1 then Response.Write("checked") end if%> >
  155.                 是&nbsp; <input type="radio" name="NeedAudit" value="0" <% if NeedAudit=0 then Response.Write("checked")  end if%>>
  156.                 否</td>
  157.             </tr>
  158.             <tr class="hback"> 
  159.               <td align="right">企业注册需要审核：</td>
  160.               <td><input type="radio" name="Corp_NeedAudit" value="1" <% if Corp_NeedAudit=1 then Response.Write("checked") end if%>>
  161.                 是&nbsp; <input type="radio" name="Corp_NeedAudit" value="0" <% if Corp_NeedAudit=0 then Response.Write("checked") end if%>>
  162.                 否</td>
  163.             </tr>
  164.             <tr class="hback"> 
  165.               <td align="right">只允许一个人登录：</td>
  166.               <td><input type="radio" name="OnlyMemberLogin" value="1" <% if OnlyMemberLogin=1 then Response.Write("checked")%>/>
  167.                 是&nbsp; <input type="radio" name="OnlyMemberLogin" value="0" <% if OnlyMemberLogin=0 then Response.Write("checked")%>>
  168.                 否</td>
  169.             </tr>
  170.             <tr class="hback"> 
  171.               <td align="right">用户编号规则_前缀：</td>
  172.               <td> <input name="ID_Prefix" type="text" id="ID_Prefix2" size="50" value="<% if Ubound(IDRule_Array)>0 then Response.Write(IDRule_Array(0))%>"/>              </td>
  173.             </tr>
  174.             <tr class="hback"> 
  175.               <td align="right">用户编号规则_组成元素：</td>
  176.               <td> <input name="ID_Elem" type="checkbox" id="ID_Elem2" value="y" <%if instr(ID_Elem,"y")>0 then Response.Write("checked") end if%>/>
  177.                 年 
  178.                 <input name="ID_Elem" type="checkbox" id="ID_Elem2" value="m" <%if instr(ID_Elem,"m")>0 then Response.Write("checked") end if%>/>
  179.                 月 
  180.                 <input name="ID_Elem" type="checkbox" id="ID_Elem2" value="d" <%if instr(ID_Elem,"d")>0 then Response.Write("checked") end if%>/>
  181.                 日 
  182.                 <input name="ID_Elem" type="checkbox" id="ID_Elem2" value="h" <%if instr(ID_Elem,"h")>0 then Response.Write("checked") end if%>/>
  183.                 时 
  184.                 <input name="ID_Elem" type="checkbox" id="ID_Elem2" value="i" <%if instr(ID_Elem,"i")>0 then Response.Write("checked") end if%>/>
  185.                 分 
  186.                 <input name="ID_Elem" type="checkbox" id="ID_Elem2" value="s" <%if instr(ID_Elem,"s")>0 then Response.Write("checked") end if%>/>
  187.                 秒 </td>
  188.             </tr>
  189.             <tr class="hback"> 
  190.               <td align="right">用户编号规则_ID后缀：</td>
  191.               <td><p> 
  192.                   <label> 
  193.                   <input type="radio" name="ID_Postfix" value="2" <% if ID_Postfix=2 then Response.Write("Checked") end if%>/>
  194.                   2位随机数</label>
  195.                   <label> 
  196.                   <input type="radio" name="ID_Postfix" value="3" <% if ID_Postfix=3 then Response.Write("Checked") end if%>>
  197.                   3位随机数</label>
  198.                   <label> 
  199.                   <input type="radio" name="ID_Postfix" value="4" <% if ID_Postfix=4 then Response.Write("Checked") end if%>>
  200.                   4位随机数</label>
  201.                   <label> 
  202.                   <input type="radio" name="ID_Postfix" value="5" <% if ID_Postfix=5 then Response.Write("Checked") end if%>>
  203.                   5位随机数</label>
  204.                   <input name="needWord" type="checkbox" id="needWord2" value="w" <% if instr(ID_Rule,"w")>0 then Response.Write("checked")%> />
  205.                   字母数字组合</p></td>
  206.             </tr>
  207.             <tr class="hback"> 
  208.               <td align="right">用户编号规则_分割符：</td>
  209.               <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>
  210.             </tr>
  211.             <tr class="hback"> 
  212.               <td align="right">用户名长度限制：</td>
  213.               <td> 最小长度： 
  214.                 <input name="UserName_Length_Min" type="text" id="UserName_Length_Min" size="14" value="<% = UserName_Length_Array(0)%>"/>
  215.                 最大长度： 
  216.                 <input name="UserName_Length_Max" type="text" id="UserName_Length_Max" size="14" value="<% = UserName_Length_Array(1)%>" /> 
  217.                 <span id="UserName_Length_alert1"></span><span id="UserName_Length_alert2"></span>              </td>
  218.             </tr>
  219.             <tr class="hback"> 
  220.               <td align="right">禁止注册的用户名：</td>
  221.               <td><textarea name="Forbid_UserName" cols="50" id="textarea2" onKeyUp="ReplaceDot('Forbid_UserName')"><%=Forbid_UserName%></textarea></td>
  222.             </tr>
  223.             <tr class="hback"> 
  224.               <td align="right">密码长度限制：</td>
  225.               <td> 最小长度： 
  226.                 <input name="Pwd_Length_Min" type="text" id="Pwd_Length_Min" size="14"  value="<% = Pwd_Length_Array(0)%>"/>
  227.                 最大长度： 
  228.                 <input name="Pwd_Length_Max" type="text" id="Pwd_Length_Max" size="14"  value="<% = Pwd_Length_Array(1)%>"/> 
  229.                 <span id="Pwd_Length_alert1"></span><span id="Pwd_Length_alert2"></span ></td>
  230.             </tr>
  231.             <tr class="hback"  style="display:none"> 
  232.               <td align="right">发送电子邮件信息：</td>
  233.               <td><input type="radio" name="isSendMail" value="1">
  234.                 是&nbsp; <input type="radio" name="isSendMail" value="0" checked/>
  235.                 否 </td>
  236.             </tr>
  237.             <tr class="hback" style="display:none"> 
  238.               <td align="right">电子邮件验证：</td>
  239.               <td><input type="radio" name="Email_Aduit" value="1"/>
  240.                 是&nbsp; <input type="radio" name="Email_Aduit" value="0" checked>
  241.                 否 </td>
  242.             </tr>
  243.             <tr class="hback"> 
  244.               <td align="right">会员注册须知：<br>
  245.                 （支持html语法）<br> <span id="Reg_Alert"></span></td>
  246.               <td><textarea name="Reg_Help" cols="80" rows="10" id="Reg_Help"><%=Reg_Help%></textarea></td>
  247.             </tr>
  248.             <tr class="hback"> 
  249.               <td align="right">&nbsp;</td>
  250.               <td><input type="Button" name="BaseSubmitButton"  onClick="BaseSubmit()" value=" 保存 " /> 
  251.                 <input type="reset" name="reset" value=" 重置 " /></td>
  252.             </tr>
  253.           </form>
  254.         </table>
  255.       </div>   
  256.         
  257.       <div id="Layer2" style="position:relative;z-index:1; left: 0px; top: 0px; display:none"> 
  258.         <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  259.           <form action="ParamAction.asp?Act=OtherParam" method="post" name="OtherParam" id="OtherParam">
  260.             <tr class="hback"> 
  261.               <td align="right" width="190">登录风格： </td>
  262.               <td><select name="LoginStyle" id="LoginStyle">
  263.                   <option value="1" <%if LoginSytle=1 then Response.Write("selected") end if%>>默认风格</option>
  264.                   <option value="2" <%if LoginSytle=2 then Response.Write("selected") end if%>>银色风格</option>
  265.                   <option value="3" <%if LoginSytle=3 then Response.Write("selected") end if%>>蓝色海洋</option>
  266.                   <option value="4" <%if LoginSytle=4 then Response.Write("selected") end if%>>浪漫咖啡</option>
  267.                   <option value="5" <%if LoginSytle=5 then Response.Write("selected") end if%>>青青河草</option>
  268.                 </select></td>
  269.             </tr>
  270.             <tr class="hback"> 
  271.               <td align="right">登录成功返回页面：</td>
  272.               <td><p> 
  273.                   <label> </label>
  274.                   <label> 
  275.                   <input type="radio" name="ReturnUrl" value="0" <%if ReturnUrl=0 then Response.Write("checked") end if%>>
  276.                   会员中心 </label>
  277.                   <label> 
  278.                   <input type="radio" name="ReturnUrl" value="1" <%if ReturnUrl=1 then Response.Write("checked") end if%> />
  279.                   首页 </label>
  280.                   <label> 
  281.                   <input type="radio" name="ReturnUrl" value="2" <%if ReturnUrl=2 then Response.Write("checked") end if%>>
  282.                   之前页</label>
  283.                   <br>
  284.                 </p></td>
  285.             </tr>
  286.             <tr class="hback" style="display:none"> 
  287.               <td align="right">黄页是否审核：</td>
  288.               <td> <input type="radio" name="isYellowCheck" value="1" <%if isYellowCheck=1 then Response.Write("checked")%>>
  289.                 是 
  290.                 <input type="radio" name="isYellowCheck" value="0" <%if isYellowCheck=0 then Response.Write("checked")%>>
  291.                 否</td>
  292.             </tr>
  293.             <tr class="hback"> 
  294.               <td align="right">名片收藏需要允许：</td>
  295.               <td><input type="radio" name="isPassCard" value="1" <%if isPassCard=1 then Response.Write("checked")%>>
  296.                 是 
  297.                 <input type="radio" name="isPassCard" value="0" <%if isPassCard=0 then Response.Write("checked")%>>
  298.                 否</td>
  299.             </tr>
  300.             <tr class="hback"> 
  301.               <td align="right">防登录猜测：</td>
  302.               <td>密码错误 
  303.                 <input name="ErrorPwdTimes" type="text" id="EErrorPwdTimes" value="<%=ErrorPwdTimes%>" size="10" />
  304.                 次后，锁定该用户功能 （0为不限制） <span id="ErrorPwdTimes_alert"></span></td>
  305.             </tr>
  306.             <tr class="hback"> 
  307.               <td align="right">会员列表每页显示数：</td>
  308.               <td><input name="ShowNumberPerPage" type="text" id="PShowNumberPerPage" size="50" value="<%=ShowNumberPerPage%>" /> 
  309.                 <span id="ShowNumberPerPage_alert"></span> </td>
  310.             </tr>
  311.             <tr class="hback"> 
  312.               <td align="right">上传文件类型：</td>
  313.               <td><input name="UpfileType" type="text" id="UpfileType" size="50" onKeyUp="ReplaceDot('UpfileType')" value="<%=UpfileType%>"/>
  314.                 （用 ，隔开）</td>
  315.             </tr>
  316.             <tr class="hback"> 
  317.               <td align="right">上传大小限制：</td>
  318.               <td><input name="UpfileSize" type="text" id="UpfileSize" size="50"  value="<%=UpfileSize%>" />
  319.                 k <span id="UpfileSize_alert">&nbsp;</span>单个上传文件大小，对所有用户 </td>
  320.             </tr>
  321.             <tr class="hback"> 
  322.               <td align="right">站内短信容量:</td>
  323.               <td><input name="MessageSize" type="text" id="MessageSize" size="50" value="<%=MessageSize%>"/>
  324.                 kbyte <span id="MessageSize_alert"></span></td>
  325.             </tr>
  326.             <tr class="hback"> 
  327.               <td align="right">开通RSS订阅：</td>
  328.               <td><label> 
  329.                 <input type="radio" name="RssFeed" value="1" <%if RssFeed=1 then Response.Write("checked") end if%>>
  330.                 是 </label> <label> 
  331.                 <input type="radio" name="RssFeed" value="0" <%if RssFeed=0 then Response.Write("checked") end if%>>
  332.                 否</label></td>
  333.             </tr>
  334.             <tr class="hback" style="display:none"> 
  335.               <td align="right">信息分类(专区,文集)：</td>
  336.               <td>最多分类： 
  337.                 <input name="LimitClass" type="text" id="LimitClass" size="14"  value="<%if ubound(LimitClass_Array)>=0 then Response.Write(LimitClass_Array(0)) end if%>"> 
  338.                 &nbsp;&nbsp;分类的数量 
  339.                 <input name="LimitClass2" type="text" id="LimitClass2" size="14"  value="<%if ubound(LimitClass_Array)>=1 then Response.Write(LimitClass_Array(1)) end if%>"> 
  340.                 <span id="LimitClass_Alert1"></span>&nbsp;<span id="LimitClass_Alert2"></span>如果设置了会员默认会员组权限，此项设置不起作用</td>
  341.             </tr>
  342.             <tr class="hback" style="display:none;"> 
  343.               <td align="right">用户目录：</td>
  344.               <td><input name="MemberFile" type="text" id="MemberFile"  size="50" value=""/>
  345.                 （默认：userfiles）</td>
  346.             </tr>
  347.             <tr class="hback" style="display:none;"> 
  348.               <td align="right">认证文件目录：</td>
  349.               <td><input name="CertDir" type="text" id="CertDir"  value="<%=CertDir%>" size="50"/>
  350.                 （默认：certfiles）</td>
  351.             </tr>
  352.             <tr class="hback"> 
  353.               <td align="right">过滤评论关键字：</td>
  354.               <td><textarea name="LimitReviewChar" cols="50" onKeyUp="ReplaceDot('LimitReviewChar')" id="LimitReviewChar"><%=LimitReviewChar%></textarea></td>
  355.             </tr>
  356.             <tr class="hback"> 
  357.               <td align="right">评论是否需要审核：</td>
  358.               <td><input name="ReviewTF" type="radio" value="1" <%if ReviewTF=1 then response.Write"checked"%>/>
  359.                 是 
  360.                 <input name="ReviewTF" type="radio" value="0" <%if ReviewTF=0 then response.Write"checked"%> />
  361.                 否</td>
  362.             </tr>
  363.             <tr class="hback"> 
  364.               <td align="right">&nbsp;</td>
  365.               <td><input type="Button" name="OtherSubmitButtont" onClick="OtherSubmit()" value=" 保存 " /> 
  366.                 <input type="reset" name="Submit2" value=" 重置 " /></td>
  367.             </tr>
  368.           </form>
  369.         </table>
  370.       </div>
  371.   <div id="Layer3" style="position:relative;z-index:1; left: 0px; top: 0px; display:none"> 
  372.         <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  373.           <form action="ParamAction.asp?Act=MoneyParam" method="post" name="MoneyParam" id="MoneyParam">
  374.             <tr class="hback"> 
  375.               <td align="right">金币名称：</td>
  376.               <td width="596"> <input name="MoneyName" type="text" id="MoneyName" size="50" value="<%=MoneyName%>" />
  377.                 <span id="moneyName_alert"></span></td>
  378.             </tr>
  379.             <tr class="hback"> 
  380.               <td align="right">注册获取积分和金币：</td>
  381.               <td>积分： 
  382.                 <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%>" /> 
  383.                 &nbsp; 金币： 
  384.                 <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%>" /> 
  385.                 <span id="Reg_Point_Alert"></span>&nbsp; <span id="Reg_Money_Alert"></span></td>
  386.             </tr>
  387.             <tr class="hback"> 
  388.               <td align="right">积分金币兑换比例：</td>
  389.               <td> <input type="radio" name="PointChange" value="0" <%if PointChange_TF=0 then Response.Write("checked") end if%>/>
  390.                 不启用 
  391.                 <input type="radio" name="PointChange" value="1" <%if PointChange_TF=1 then Response.Write("checked") end if%>>
  392.                 积分换金币 
  393.                 <input type="radio" name="PointChange" value="2" <%if PointChange_TF=2 then Response.Write("checked") end if%>>
  394.                 金币换积分 
  395.                 <input type="radio" name="PointChange" value="3" <%if PointChange_TF=3 then Response.Write("checked") end if%>>
  396.                 互换</td>
  397.             </tr>
  398.             <tr class="hback"> 
  399.               <td align="right">&nbsp;</td>
  400.               <td>1金币 = 
  401.                 <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%>" />
  402.                 积分 | 1积分 = 
  403.                 <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%>" />
  404.                 金币 <span id="Money_Point_Alert"></span>&nbsp; <span id="Point_Money_Alert"></span></td>
  405.             </tr>
  406.             <tr class="hback"> 
  407.               <td align="right">投稿奖励：</td>
  408.               <td>积分： 
  409.                 <input name="txt_contrPoint" type="text" id="txt_contrPoint" value="<%=contrPoint%>">
  410.                 |&nbsp;金币： 
  411.                 <input name="txt_contrMoney" type="text" id="txt_contrMoney" value="<%=contrMoney%>"> 
  412.                 <span id="contrPoint_Alert"></span>&nbsp; <span id="contrMoney_Alert"></span>              </td>
  413.             </tr>
  414.             <tr class="hback"> 
  415.               <td align="right">投稿审核奖励：</td>
  416.               <td>积分： 
  417.                 <input name="txt_contrAuditPoint" type="text" id="txt_contrAuditPoint" value="<%=contrAuditPoint%>">
  418.                 |&nbsp;金币： 
  419.                 <input name="txt_contrAuditMoney" type="text" id="txt_contrAuditMoney" value="<%=contrAuditMoney%>"> 
  420.                 <span id="contrAuditPoint_Alert"></span>&nbsp; <span id="contrAuditMoney_Alert">              </td>
  421.             </tr>
  422.             <tr class="hback"> 
  423.               <td align="right">金币提示条件：</td>
  424.               <td> <label> 
  425.                 <input type="radio" name="isPrompt" value="1" <%if isPrompt_TF=1 then Response.Write("checked") end if%> />
  426.                 开启</label> <label> 
  427.                 <input type="radio" name="isPrompt" value="0" <%if isPrompt_TF=0 then Response.Write("checked") end if%> />
  428.                 关闭</label>
  429.                 | 金币小于 
  430.                 <input name="PromptCondition" type="text" id="PromptCondition" size="15" value="<%if ubound(isPrompt_Array)>=1 then Response.Write(isPrompt_Array(1)) end if%>"/>
  431.                 时提示 <span id="Prompt_Alert"></span> </td>
  432.             </tr>
  433.             <tr class="hback"> 
  434.               <td align="right">防作弊设置：</td>
  435.               <td>登录 
  436.                 <input name="LenLoginTime" type="text" id="LenLoginTime" size="10" value="<%if Ubound(LenLoginTimeArray)>=0 then Response.Write(LenLoginTimeArray(0))%>" />
  437.                 分后，再次登录积分增加 
  438.                 <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%>" /> 
  439.                 <span id="LenLoginTime_Alert"></span>&nbsp;<span id="Login_Point_Alert"></span>              </td>
  440.             </tr>
  441.             <tr class="hback"> 
  442.               <td align="right">&nbsp;</td>
  443.               <td>登录 
  444.                 <input name="LenLoginTime2" type="text" id="LenLoginTime2" size="10" value="<%if Ubound(LenLoginTimeArray)>=1 then Response.Write(LenLoginTimeArray(1))%>" />
  445.                 天后，再次登录金币增加 
  446.                 <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%>" /> 
  447.                 <span id="LenLoginTime2_Alert"></span>&nbsp;<span id="Login_money_Alert"></span></td>
  448.             </tr>
  449.             <tr class="hback"> 
  450.               <td align="right">&nbsp;</td>
  451.               <td><input type="Button" name="MoneySubmitButton" onClick="MoneySubmit()"value=" 保存 " /> 
  452.                 <input type="reset" name="Submit2" value=" 重置 " /></td>
  453.             </tr>
  454.           </form>
  455.         </table>
  456.       </div>   </td>
  457.     </tr>
  458. </table>
  459. </body>
  460. <%
  461. UserSysParaRs.close
  462. Set UserSysParaRs=nothing
  463. Conn.close
  464. Set Conn=nothing
  465. User_Conn.close
  466. Set User_Conn=nothing
  467. %>
  468. <script language="JavaScript" type="text/JavaScript">
  469. <!--
  470. function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  471.   if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
  472.     document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  473.   else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
  474. }
  475. MM_reloadPage(true);
  476. //-->
  477. </script>
  478. </HEAD>
  479. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  480. <script language="JavaScript" src="lib/UserJS.js" type="text/JavaScript"></script>
  481. <script>
  482. var selected="Lab_Base";
  483. function showParamPanel(param)
  484. {
  485. switch(param)
  486. {
  487. case 1:
  488. document.getElementById("Layer1").style.display="block";
  489. document.getElementById("Layer2").style.display="none";
  490. document.getElementById("Layer3").style.display="none";
  491. document.getElementById("Lab_Base").className ="";
  492. if(selected!="Lab_Base")
  493. document.getElementById(selected).className ="hback_1";
  494. selected="Lab_Base";
  495. break;
  496. case 2:
  497. document.getElementById("Layer1").style.display="none";
  498. document.getElementById("Layer2").style.display="block";
  499. document.getElementById("Layer3").style.display="none";
  500. document.getElementById("Lab_Other").className="";
  501. if(selected!="Lab_Other")
  502. document.getElementById(selected).className ="hback_1";
  503. selected="Lab_Other";
  504. break;
  505. case 3:
  506. document.getElementById("Layer1").style.display="none";
  507. document.getElementById("Layer2").style.display="none";
  508. document.getElementById("Layer3").style.display="block";
  509. document.getElementById("Lab_Money").className="";
  510. if(selected!="Lab_Money")
  511. document.getElementById(selected).className ="hback_1";
  512. selected="Lab_Money";
  513. break;
  514. }
  515. }
  516. function BaseSubmit()
  517. {
  518. var flag1=isNumber('UserName_Length_Min','UserName_Length_alert1','长度应该为正整数',true)
  519. var flag2=isNumber('UserName_Length_Max','UserName_Length_alert2','长度应该为正整数',true)
  520. var flag3=isNumber('Pwd_Length_Min','Pwd_Length_alert1','长度应该为正整数',true)
  521. var flag4=isNumber('Pwd_Length_Max','Pwd_Length_alert2','长度应该为正整数',true)
  522. var flag5=CheckContentLen('Reg_Help','Reg_alert',2000)
  523. if(flag1&&flag2&&flag3&&flag4&&flag5)
  524. document.getElementById("BaseParam").submit();
  526. }
  527. function OtherSubmit()
  528. {
  529. var flag1=isNumber('ErrorPwdTimes','ErrorPwdTimes_alert','次数应该为正整数',true)
  530. var flag2=isNumber('ShowNumberPerPage','ShowNumberPerPage_alert','页数应该为正整数',true)
  531. var flag3=isNumber('UpfileSize','UpfileSize_alert','文件大小应该为正整数',true)
  532. var flag4=isNumber('MessageSize','MessageSize_alert','短信容量应该为正整数',true)
  533. var flag5=isNumber('LimitClass','LimitClass_alert1','最多分类应该为正整数',true)
  534. var flag6=isNumber('LimitClass2','LimitClass_alert2','分类的数量应该为正整数',true)
  535. if(flag1&&flag2&&flag3&&flag4&&flag5&&flag6)
  536. document.getElementById("OtherParam").submit();
  538. }
  539. function MoneySubmit()
  540. {
  541. var flag0=isEmpty("MoneyName","MoneyName_alert");
  542. var flag1=isNumber('Reg_Point','Reg_Point_Alert','积分应该为正整数',true)
  543. var flag2=isNumber('Reg_Money','Reg_Money_Alert','金钱应该为正整数',true)
  544. var flag3=isNumber('Login_Point','Login_Point_Alert','积分应该为正整数',true)
  545. var flag4=isNumber('Login_money','Login_Money_Alert','金钱应该为正整数',true)
  546. var flag5=isNumber('Money_to_Point','Money_Point_Alert','积分应该为正数',false)
  547. var flag6=isNumber('Point_to_Money','Point_Money_Alert','金钱应该为正数',false)
  548. var flag7=isNumber('PromptCondition','Prompt_Alert','金钱应该为正整数',true)
  549. var flag8=isNumber('LenLoginTime','LenLoginTime_Alert','时间应该为正整数',true)
  550. var flag9=isNumber('LenLoginTime2','LenLoginTime2_Alert','时间应该为正整数',true)
  551. var flag10=isNumber('txt_contrPoint','contrPoint_Alert','积分应该为正整数',true)
  552. var flag11=isNumber('txt_contrMoney','contrMoney_Alert','金钱应该为正整数',true)
  553. var flag12=isNumber('txt_contrAuditPoint','contrAuditPoint_Alert','积分应该为正整数',true)
  554. var flag13=isNumber('txt_contrAuditMoney','contrAuditMoney_Alert','金钱应该为正整数',true)
  555. if(flag0&&flag1&&flag2&&flag3&&flag4&&flag5&&flag6&&flag7&&flag8&&flag9&&flag10&&flag11&&flag12&&flag13)
  556. document.getElementById("MoneyParam").submit();
  558. }
  559. </script>
  560. </html>