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

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

数据库编程

开发平台：

ASP/ASPX

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