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

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

数据库编程

开发平台：

ASP/ASPX

AddUserGroup.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" -->
  6. <%
  7. on error resume next
  8. Dim Conn,User_Conn,AddGroupRs,if_repage_RS
  9. Dim GroupName,AllowUpFile,UpfileNum,UpfileSize,GroupDate,GroupPoint,GroupMoney,GroupType,CorpTemplet,LimitInfoNum,GroupDebateNum,GroupDebateNum_Array,JuniorDomain,KeywordsNumber,Ishtml,BcardNumber,Templetwatermark
  10. Admin_Login_State
  11. '************************************Update
  12. if Request("Act")="addGroup" then
  13. MF_Default_Conn
  14. MF_User_Conn
  15. MF_Session_TF
  16. Set AddGroupRs=server.CreateObject(G_FS_RS)
  17. AddGroupRs.open "select GroupName,UpfileNum,UpfileSize,GroupDate,GroupPoint,GroupMoney,GroupType,CorpTemplet,LimitInfoNum,GroupDebateNum,JuniorDomain,KeywordsNumber,isHtml,BcardNumber,Templetwatermark From FS_ME_Group",User_Conn,1,3
  18. AddGroupRs.addNew
  19. AddGroupRs("GroupName")=Request.Form("GroupName")
  20. AddGroupRs("UpfileNum")=Request.Form("UpfileNum")
  21. AddGroupRs("UpfileSize")=Request.Form("UpfileSize")
  22. AddGroupRs("GroupDate")=Request.Form("GroupDate")
  23. AddGroupRs("GroupPoint")=Request.Form("GroupPoint")
  24. AddGroupRs("GroupMoney")=Request.Form("GroupMoney")
  25. AddGroupRs("GroupType")=Request.Form("GroupType")
  26. AddGroupRs("CorpTemplet")=Request.Form("CorpTemplet")
  27. AddGroupRs("LimitInfoNum")=Request.Form("LimitInfoNum")
  28. AddGroupRs("GroupDebateNum")=trim(Request.Form("GroupDebateNum_1"))&","&trim(Request.Form("GroupDebateNum_2"))
  29. AddGroupRs("JuniorDomain")=Request.Form("JuniorDomain")
  30. AddGroupRs("KeywordsNumber")=Request.Form("KeywordsNumber")
  31. AddGroupRs("isHtml")=Request.Form("isHtml")
  32. AddGroupRs("BcardNumber")=Request.Form("BcardNumber")
  33. AddGroupRs("Templetwatermark")=Request.Form("Templetwatermark")
  34. '判断是否名字重复
  35. Set if_repage_RS=User_Conn.execute("Select GroupName from FS_ME_Group where GroupName='"&trim(Request.Form("GroupName"))&"'")
  36. if not if_repage_RS.eof then
  37. Response.Redirect("../error.asp?ErrCodes=<li>组名不能重复</li>")
  38. Response.End()
  39. End if
  40. AddGroupRs.update
  41. if err.number=0 then 
  42. Response.Redirect("../success.asp?ErrCodes=操作成功")
  43. Response.End()
  44. else
  45. Response.Redirect("../error.asp?ErrCodes=<li>"&err.description&"</li>")
  46. Response.End()
  47. end if
  48. end if
  50. %>
  51. <html xmlns="http://www.w3.org/1999/xhtml">
  52. <HEAD>
  53. <TITLE>FoosunCMS</TITLE>
  54. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  55. <script language="JavaScript" type="text/JavaScript">
  56. <!--
  57. function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  58.   if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
  59.     document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  60.   else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
  61. }
  62. MM_reloadPage(true);
  63. //-->
  64. function AddGroupSubmit()
  65. {
  66. var flag1=isEmpty('GroupName','GroupName_Alert')
  67. var flag2=isNumber('UpfileNum','UpfileNum_Alert','文件个数应为正整数',true)
  68. var flag3=isNumber('UpfileSize','UpfileSize_Alert','文件大小应为正整数',true)
  69. var flag4=isNumber('GroupDate','GroupDate_Alert','有效期限应为正整数',true)
  70. var flag5=isNumber('GroupPoint','GroupPoint_Alert','积分应为正整数',true)
  71. var flag6=isNumber('GroupMoney','GroupMoney_Alert','金币应为正整数',true)
  72. var flag7=isNumber('LimitInfoNum','CorpTemplet_Alert','金币应为正整数',true)
  73. var flag8=isNumber('GroupDebateNum_1','GroupDebateNum_Alert1','社群最大数量应为正整数',true)
  74. var flag9=isNumber('GroupDebateNum_2','GroupDebateNum_Alert2','社群最大人数应为正整数',true)
  75. var flag10=isNumber('KeywordsNumber','KeywordsNumber_Alert','关键字个数应为正整数',true)
  76. var flag11=isNumber('BcardNumber','BcardNumber_Alert','名片收藏个数应为正整数',true)
  77. var flag12=isEmpty('CorpTemplet','CorpTemplet_Alert')
  78. if(flag1&&flag2&&flag3&&flag4&&flag5&&flag6&&flag7&&flag8&&flag9&&flag10&&flag11&&flag12)
  79. document.AddGroup.submit();
  80. }
  81. </script>
  82. </HEAD>
  83. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  84. <script language="JavaScript" src="UserJS.js" type="text/JavaScript"></script>
  85. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  86. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes  oncontextmenu="return false;"> 
  87. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table"> 
  88.   <tr class="hback"> 
  89.     <td align="right" class="xingmu" colspan="2"><div align="left">添加用户组</div></td></tr> 
  90.     <form action="?Act=addGroup" method="post" name="AddGroup" id="AddGroup">  
  91.         <tr class="hback"> 
  92.           <td width="150" align="right">组名称：</td> 
  93.           <td width="537"> <input name="GroupName" type="text" id="GroupName" size="50" />
  94.           <font color="#FF0000">*</font><span id="GroupName_Alert"></span></td> 
  95.         </tr> 
  96.       
  97. <tr class="hback">
  98.     <td align="right">文件个数限制： </td>
  99.     <td><input name="UpfileNum" type="text" id="UpfileNum"  value="0" size="50">
  100.     k<span id="UpfileNum_Alert"></span></td>
  101.   </tr>
  102. <tr class="hback">
  103.     <td align="right">文件大小限制：</td>
  104.     <td><input name="UpfileSize" type="text" id="UpfileSize" value="0" size="50">
  105.     <span id="UpfileSize_Alert"></span></td>
  106.   </tr>
  107. <tr class="hback"> 
  108.                 <td align="right">组有效期限：</td> 
  109.                 <td><input name="GroupDate" type="text" id="GroupDate"  value="0" size="50"/> 
  110.                 天 <span id="GroupDate_Alert"></span></td> 
  111.         </tr> 
  112.       <tr class="hback"> 
  113.           <td align="right">该组所需积分：</td> 
  114.           <td><input name="GroupPoint" type="text" id="GroupPoint" value="0" size="50"/>
  115.           <span id="GroupPoint_Alert"></span></td> 
  116.         </tr>
  117.         <tr class="hback">
  118.           <td align="right">该组所需金币：</td>
  119.           <td><input name="GroupMoney" type="text" id="GroupMoney" value="0" size="50"/>
  120.           <span id="GroupMoney_Alert"></span></td>
  121.         </tr> 
  122.       <tr class="hback"> 
  123.           <td align="right">组类型：</td> 
  124.           <td><label>
  125.             <input name="GroupType" type="radio" value="1" checked <%if GroupType=1 then response.Write("checked") end if%>> 
  126.             个人会员组</label>
  127.             <label>
  128.             <input type="radio" name="GroupType" value="0" <%if GroupType=0 then response.Write("checked") end if%>>
  129. 企业会员组</label></td> 
  130.         </tr> 
  131.       <tr class="hback"> 
  132.           <td align="right">信息发布数量上限：</td> 
  133.           <td><input name="LimitInfoNum" type="text" id="LimitInfoNum" value="10" size="50"/>
  134.           <span id="LimitInfoNum_Alert"></span></td> 
  135.         </tr>
  136.         <tr class="hback">
  137.           <td align="right">企业会员模板地址：</td>
  138.           <td><input name="CorpTemplet" type="text" size="50"><span id="CorpTemplet_Alert"></span></td>
  139.         </tr>
  140.         <tr class="hback">
  141.           <td align="right">社群参数：</td>
  142.           <td>社群最大数量：
  143.             <input name="GroupDebateNum_1" type="text" id="GroupDebateNum_1" value="0" size="15"> 
  144.           &nbsp;社群最大人数
  145.           <input name="GroupDebateNum_2" type="text" id="GroupDebateNum_2" value="0" size="15">
  146.           <span id="GroupDebateNum_Alert1"></span>&nbsp; <span id="GroupDebateNum_Alert2"></span></td>
  147.         </tr>
  148.         <tr class="hback">
  149.           <td align="right">开通二级域名：</td>
  150.           <td><p>
  151.             <label>
  152.             <input type="radio" name="JuniorDomain" value="1" <%if JuniorDomain=1 then Response.Write("checked") end if%>>
  153.   是</label>
  154.             <label>
  155.             <input type="radio" name="JuniorDomain" value="0" <%if JuniorDomain=0 then Response.Write("checked") end if%>>
  156.   否</label>
  157.             <br>
  158.           </p></td>
  159.         </tr>
  160.         <tr class="hback">
  161.           <td align="right">信息关键字个数：</td>
  162.           <td><input name="KeywordsNumber" type="text" id="KeywordsNumber"  value="0" size="50"/>
  163.           <span id="KeywordsNumber_Alert"></span></td>
  164.         </tr>
  165.         <tr class="hback">
  166.           <td align="right">生成静态文件：</td>
  167.           <td><label>
  168.             <input type="radio" name="Ishtml" value="1" <%if Ishtml=1 then Response.Write("checked") end if%>>
  169. 是</label>
  170.             <label>
  171.             <input type="radio" name="Ishtml" value="0" <%if Ishtml=0 then Response.Write("checked") end if%>>
  172. 否</label></td>
  173.         </tr>
  174.         <tr class="hback">
  175.           <td align="right">名片收藏个数限制：</td>
  176.           <td><input name="BcardNumber" type="text" id="BcardNumber" value="0" size="50"/>
  177.           <span id="BcardNumber_Alert"></span></td>
  178.         </tr>
  179.         <tr class="hback">
  180.           <td align="right">开通水印：</td>
  181.           <td><label>
  182.             <input type="radio" name="Templetwatermark" value="1" <%if Templetwatermark=1 then Response.Write("checked") end if%>>
  183. 是</label>
  184.             <label>
  185.             <input name="Templetwatermark" type="radio" value="0" checked <%if Templetwatermark=0 then Response.Write("checked") end if%>>
  186. 否</label></td>
  187.         </tr> 
  188.       <tr class="hback"> 
  189.           <td align="right">&nbsp;</td> 
  190.           <td><input type="Button" name="AddGroupButton" value=" 保存 " onClick="AddGroupSubmit()"/> 
  191.             <input type="reset" name="Submit2" value=" 重置 " /></td> 
  192.         </tr> 
  193.     </form> 
  194.   </tr> 
  195. </table> 
  196. </body>
  197. <%
  198. if Request("Act")="addGroup" then
  199. AddGroupRs.close
  200. set AddGroupRs=nothing
  201. Conn.close
  202. Set Conn=nothing
  203. User_Conn.close
  204. Set User_Conn=nothing
  205. if_repage_RS.close
  206. Set if_repage_RS=nothing
  207. end if
  208. %>
  209. </html>