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

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

数据库编程

开发平台：

ASP/ASPX

Group_manage.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. 'on error resume next
  7. Dim Conn,User_Conn,ManageGroupRs,GType,GroupIndex,sRootDir
  8. MF_Default_Conn
  9. MF_User_Conn
  10. MF_Session_TF 
  11. if not MF_Check_Pop_TF("ME_GUser") then Err_Show 
  12. if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
  14. Dim GroupName,UpfileNum,UpfileSize,GroupDate,GroupPoint,GroupMoney,GroupType,CorpTemplet,LimitInfoNum,GroupDebateNum,JuniorDomain,KeywordsNumber,Ishtml,BcardNumber,Templetwatermark
  15. if Request.QueryString("Act")="update" then
  16. if not MF_Check_Pop_TF("ME034") then Err_Show 
  17. GType=NoSqlHack(Request.Form("GType"))
  18. GroupIndex=NoSqlHack(Request.Form("GroupIndex"))
  19. if GType="all" then
  20. User_Conn.execute("Update FS_ME_Group set GroupName='"&Request.Form("GroupName")&"',UpfileNum="&Request.Form("UpfileNum")&",UpfileSize="&Request.Form("UpfileSize")&",GroupDate="&Request.Form("GroupDate")&",GroupPoint="&Request.Form("GroupPoint")&",GroupMoney="&Request.Form("GroupMoney")&",GroupType="&Request.Form("GroupType")&",CorpTemplet='CorpTemplet',LimitInfoNum="&Request.Form("LimitInfoNum")&",GroupDebateNum='"&trim(Request.Form("GroupDebateNum_1"))&","&trim(Request.Form("GroupDebateNum_2"))&"',ProductDiscount="&trim(request.Form("ProductDiscount"))&",JuniorDomain=1,KeywordsNumber=0,isHtml="&Request.Form("isHtml")&",BcardNumber="&Request.Form("BcardNumber")&",Templetwatermark="&Request.Form("Templetwatermark"))
  21. elseif GroupIndex="user" then
  22. User_Conn.execute("Update FS_ME_Group set GroupName='"&Request.Form("GroupName")&"',UpfileNum="&Request.Form("UpfileNum")&",UpfileSize="&Request.Form("UpfileSize")&",GroupDate="&Request.Form("GroupDate")&",GroupPoint="&Request.Form("GroupPoint")&",GroupMoney="&Request.Form("GroupMoney")&",GroupType="&Request.Form("GroupType")&",CorpTemplet='CorpTemplet',LimitInfoNum="&Request.Form("LimitInfoNum")&",GroupDebateNum='"&trim(Request.Form("GroupDebateNum_1"))&","&trim(Request.Form("GroupDebateNum_2"))&"',ProductDiscount="&trim(request.Form("ProductDiscount"))&",JuniorDomain=1,KeywordsNumber=0,isHtml="&Request.Form("isHtml")&",BcardNumber="&Request.Form("BcardNumber")&",Templetwatermark="&Request.Form("Templetwatermark")&" where GroupType=1")
  23. elseif GroupIndex="corp" then
  24. User_Conn.execute("Update FS_ME_Group set GroupName='"&Request.Form("GroupName")&"',UpfileNum="&Request.Form("UpfileNum")&",UpfileSize="&Request.Form("UpfileSize")&",GroupDate="&Request.Form("GroupDate")&",GroupPoint="&Request.Form("GroupPoint")&",GroupMoney="&Request.Form("GroupMoney")&",GroupType="&Request.Form("GroupType")&",CorpTemplet='CorpTemplet',LimitInfoNum="&Request.Form("LimitInfoNum")&",GroupDebateNum='"&trim(Request.Form("GroupDebateNum_1"))&","&trim(Request.Form("GroupDebateNum_2"))&"',ProductDiscount="&trim(request.Form("ProductDiscount"))&",JuniorDomain=1,KeywordsNumber=0,isHtml="&Request.Form("isHtml")&",BcardNumber="&Request.Form("BcardNumber")&",Templetwatermark="&Request.Form("Templetwatermark")&" where GroupType=0")
  25. else
  26. User_Conn.execute("Update FS_ME_Group set GroupName='"&Request.Form("GroupName")&"',UpfileNum="&Request.Form("UpfileNum")&",UpfileSize="&Request.Form("UpfileSize")&",GroupDate="&Request.Form("GroupDate")&",GroupPoint="&Request.Form("GroupPoint")&",GroupMoney="&Request.Form("GroupMoney")&",GroupType="&Request.Form("GroupType")&",CorpTemplet='CorpTemplet',LimitInfoNum="&Request.Form("LimitInfoNum")&",GroupDebateNum='"&trim(Request.Form("GroupDebateNum_1"))&","&trim(Request.Form("GroupDebateNum_2"))&"',ProductDiscount="&trim(request.Form("ProductDiscount"))&",JuniorDomain=1,KeywordsNumber=0,isHtml="&Request.Form("isHtml")&",BcardNumber="&Request.Form("BcardNumber")&",Templetwatermark="&Request.Form("Templetwatermark")&" where GroupID="&GroupIndex)
  27. End if
  28. if err.number>0 then
  29. Response.Redirect("../error.asp?ErrCodes="&err.description&"&ErrorUrl="&Request.ServerVariables("HTTP_REFERER"))
  30. Response.End()
  31. else
  32. Response.Redirect("../success.asp?ErrCodes=<li>操作成功</li>&ErrorUrl="&Request.ServerVariables("HTTP_REFERER"))
  33. Response.End()
  34. end if
  35. elseif Request.QueryString("Act")="delete" then
  36. if not MF_Check_Pop_TF("ME036") then Err_Show 
  38. if Request.QueryString("tf")="all" then
  39. User_Conn.execute("Delete from FS_ME_Group")
  40. elseif Request.QueryString("tf")="user" then
  41. User_Conn.execute("Delete from FS_ME_Group where GroupType=1")
  42. elseif Request.QueryString("tf")="corp" then
  43. User_Conn.execute("Delete from FS_ME_Group where GroupType=0")
  44. else
  45. User_Conn.execute("Delete from FS_ME_Group where GroupID="&NoSqlHack(Request.QueryString("tf")))
  46. end if
  47. if err.number>0 then
  48. Response.Redirect("../error.asp?ErrCodes="&err.description)
  49. Response.End()
  50. else
  51. Response.Redirect("../success.asp?ErrCodes=<li>删除成功</li>&ErrorUrl=./user/Group_Manage.asp")
  52. Response.End()
  53. end if
  54. end if
  55. %>
  56. <html xmlns="http://www.w3.org/1999/xhtml">
  57. <HEAD>
  58. <TITLE>FoosunCMS</TITLE>
  59. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  60. </HEAD>
  61. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  62. <script language="JavaScript" src="lib/UserJS.js" type="text/JavaScript"></script>
  63. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  64. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes > 
  65. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table"> 
  66. <form action="?Act=update" method="post" name="ManageGroup" id="ManageGroup">  
  67.   <tr class="hback"> 
  68.     <td align="right" class="xingmu" colspan="2"><div align="left">会员组管理</div></td></tr>
  69.   <tr class="hback">
  70.     <td width="183" align="right">会员组选择：</td>
  71.     <td>会员组类型：      
  72.       <select name="GType" id="GType" onChange="getFormInfo(this)">
  73.         <option value="all">所有会员组</option>
  74.         <option value="1">个人会员组</option>
  75.         <option value="0">企业会员组</option>
  76.       </select> 
  77.       &nbsp;
  78.       <span id="GroupIndexContent"></span></td>
  79.   </tr> 
  80.         <tr class="hback"> 
  81.           <td align="right">组名称：</td> 
  82.           <td width="791"> <input name="GroupName" type="text" id="GroupName" size="50" />
  83.           <font color="#FF0000">*</font> <span class="style1" id="GroupName_Alert"></span></td> 
  84.         </tr> 
  85.       
  86. <tr class="hback">
  87.     <td align="right">文件个数限制： </td>
  88.     <td><input name="UpfileNum" type="text" id="UpfileNum"  value="0" size="50" onChange="if(length(this.value)<=9){alert('文件大小限制最多只能输入9位整数');this.value='0';}" >
  89.     <span id="UpfileNum_Alert"></span></td>
  90.   </tr>
  91. <tr class="hback">
  92.     <td align="right">文件大小限制：</td>
  93.     <td><input name="UpfileSize" type="text" id="UpfileSize" value="0" size="50">
  94.     k<span id="UpfileSize_Alert"> 会员空间占用</span></td>
  95.   <tr class="hback">
  96.   <td align="right">会员折扣：</td>
  97.   <td><input name="ProductDiscount" type="text" id="ProductDiscount" value="0" size="50" onChange="if(length(this.value)<=9){alert('最多只能输入4个字符!');this.value='0';}">比如：打八折，该处则填写0.8 <span id="ProductDiscount_Alert"></span></td>
  98.   </tr>
  99. <tr class="hback"> 
  100.                 <td align="right">组有效期限：</td> 
  101.                 <td><input name="GroupDate" type="text" id="GroupDate"  value="0" size="50" onChange="if(length(this.value)<=4){alert('组有效期限最多只能输入4位整数');this.value='0';}"/> 
  102.                 天 <span id="GroupDate_Alert"></span></td> 
  103.     </tr> 
  104.       <tr class="hback"> 
  105.           
  106.       <td align="right">积分：</td> 
  107.           <td><input name="GroupPoint" type="text" id="GroupPoint"  value="0" size="50" onChange="if(this.value>32500){alert('积分不能大于32500');this.value='0';}"/>
  108.           <span id="GroupPoint_Alert"></span></td> 
  109.     </tr>
  110.         <tr class="hback">
  111.           
  112.       <td align="right">金币：</td>
  113.           <td><input name="GroupMoney" type="text" id="GroupMoney"  value="0" size="50" onChange="if(length(this.value)>4){alert('金币数不能大于9999');this.value='0';}"/>
  114.           <span id="GroupMoney_Alert"></span></td>
  115.         </tr> 
  116.       <tr class="hback"> 
  117.           <td align="right">组类型：</td> 
  118.         <td><label>
  119.             <input name="GroupType" type="radio" value="1"> 
  120.             个人会员组</label>
  121.             <label>
  122.             <input type="radio" name="GroupType" value="0" >
  123. 企业会员组</label>&nbsp;<span id="GroupType_Alert">(企业会员组暂时应用于以后扩展使用。您目前建立并不能使用)</span></td> 
  124.     </tr> 
  125.       <tr class="hback"> 
  126.           <td align="right">信息发布数量上限：</td> 
  127.           <td><input name="LimitInfoNum" type="text" id="LimitInfoNum" value="10" size="50"/>
  128.           <span id="LimitInfoNum_Alert"></span></td> 
  129.     </tr>
  130.         <tr class="hback" style="display:none">
  131.           
  132.       <td align="right">会员模板地址：</td>
  133.           <td><input name="CorpTemplet" type="text" size="50">
  134.   <input name="Submit5" type="button" id="selNewsTemplet" value="选择模板"  onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=sRootDir %>/<% = G_TEMPLETS_DIR %>',400,300,window,document.all.CorpTemplet);document.all.CorpTemplet.focus();">
  135.   <span id="CorpTemplet_Alert"></span></td>
  136.         </tr>
  137.         <tr class="hback">                 
  138.           <td align="right">社群参数：</td>
  139.           <td>社群最大数量：
  140.             <input name="GroupDebateNum_1" type="text" id="GroupDebateNum_1" value="0" size="15"> 
  141.           &nbsp;社群最大人数
  142.           <input name="GroupDebateNum_2" type="text" id="GroupDebateNum_2" value="0" size="15" >
  143.           <span id="GroupDebateNum1_Alert"></span> &nbsp;<span id="GroupDebateNum2_Alert"></span></td>
  144.         </tr>
  145.         <tr class="hback" style="display:none">
  146.           <td align="right">开通二级域名：</td>
  147.           <td><p>
  148.             <label>
  149.             <input type="radio" name="JuniorDomain" value="1" <%if JuniorDomain=1 then Response.Write("checked") end if%>>
  150.   是</label>
  151.             <label>
  152.             <input name="JuniorDomain" type="radio" value="0" checked <%if JuniorDomain=0 then Response.Write("checked") end if%>>
  153.   否</label>
  154.             <br>
  155.           </p></td>
  156.         </tr>
  157.         <tr class="hback" style="display:none">
  158.           <td align="right">信息关键字个数：</td>
  159.           <td><input name="KeywordsNumber" type="text" id="KeywordsNumber" value="0" size="50" onChange="if(length(this.value)>3){alert('信息关键字个数不能大于999');this.value='0';}"/>
  160.           <span id="KeywordsNumber_Alert"></span></td>
  161.         </tr>
  162.         <tr class="hback" style="display:none">
  163.           <td align="right">生成静态文件：</td>
  164.           <td><label>
  165.             <input type="radio" name="Ishtml" value="1"/>
  166. 是</label>
  167.             <label>
  168.             <input name="Ishtml" type="radio" value="0" checked >
  169. 否</label></td>
  170.         </tr>
  171.         <tr class="hback" style="display:none">
  172.           <td align="right">名片收藏个数限制：</td>
  173.           <td><input name="BcardNumber" type="text" id="BcardNumber" value="0" size="50" onChange="if(length(this.value)>4){alert('名片收藏个数不能大于9999');this.value='0';}"/>
  174.           <span id="BcardNumber_Alert"></span></td>
  175.         </tr>
  176.         <tr class="hback" style="display:none">
  177.           <td align="right">开通水印：</td>
  178.           <td><label>
  179.             <input type="radio" name="Templetwatermark" value="1" >
  180. 是</label>
  181.             <label>
  182.             <input name="Templetwatermark" type="radio" value="0" checked>
  183. 否</label></td>
  184.         </tr> 
  185.       <tr class="hback"> 
  186.           <td align="right">&nbsp;</td> 
  187.         <td><input type="Button" name="ManageGroupButton" value=" 保存 " onClick="MySubmit()"/> 
  188.             <input type="reset" name="Submit2" value=" 重置 " />
  189.             <input type="Button" name="DeleteGroup_Button" value=" 删 除 " onClick="AlertBeforeDelete()"></td> 
  190.     </tr> 
  191.   </form> 
  192.   </tr> 
  193. </table> 
  194. </body>
  195. <%
  196. Conn.close
  197. Set Conn=nothing
  198. User_Conn.close
  199. Set User_Conn=nothing
  200. %>
  201. <script language="JavaScript" type="text/JavaScript">
  202. <!--
  203. function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  204.   if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
  205.     document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  206.   else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
  207. }
  208. MM_reloadPage(true);
  209. //-->
  211. function MySubmit()
  212. {
  213. var flag1=isNumber('UpfileNum','UpfileNum_Alert','文件个数应为正整数',true)
  214. var flag2=isNumber('UpfileSize','UpfileSize_Alert','文件大小应为正整数',true)
  215. var flag3=isNumber('GroupDate','GroupDate_Alert','文件大小应为正整数',true)
  216. var flag4=isNumber('GroupMoney','GroupMoney_Alert','金币数量应为正整数',true)
  217. var flag5=isNumber('LimitInfoNum','LimitInfoNum_Alert','信息数量应为正整数',true)
  218. var flag6=isNumber('GroupDebateNum_1','GroupDebateNum1_Alert','社群数量应为正整数',true)
  219. var flag7=isNumber('GroupDebateNum_2','GroupDebateNum2_Alert','社群人数应为正整数',true)
  220. //var flag8=isNumber('KeywordsNumber','KeywordsNumber_Alert','关键字个数应为正整数',true)
  221. var flag9=isNumber('BcardNumber','BcardNumber_Alert','关键字个数应为正整数',true)
  222. var flag10=isEmpty('GroupName','GroupName_Alert','组名不能为空')
  223. //var flag11=isEmpty('CorpTemplet','CorpTemplet_Alert','模版地址不能为空')
  224. //var flag12=isNumber('ProductDiscount','ProductDiscount_Alert',false)
  225. if(document.ManageGroup.GroupType[0].checked|document.ManageGroup.GroupType[1].checked)
  226. {
  227. document.getElementById("GroupType_Alert").innerHTML=""
  228. if(flag1&&flag2&&flag3&&flag4&&flag5&&flag6&&flag7&&flag9&&flag10)
  229. {
  230. if(document.getElementById("GType").value=="all")
  231. {
  232. if(confirm("确定修改所有用户组？"))
  233. {
  234. document.ManageGroup.submit();
  235. }
  236. }else if(document.getElementById("GroupIndex").value=="user")
  237. {
  238. if(confirm("确定修改所有个人会员组？"))
  239. {
  240. document.ManageGroup.submit();
  241. }
  242. }
  243. else if(document.getElementById("GroupIndex").value=="corp")
  244. {
  245. if(confirm("确定修改所有企业会员组？"))
  246. {
  247. document.ManageGroup.submit();
  248. }
  249. }
  250. else
  251. document.ManageGroup.submit();
  252. }
  253. }else
  254. {
  255. document.getElementById("GroupType_Alert").innerHTML="<font color='F43631'>组类性质必须选择</font>";
  256. }
  257. }
  258. //Ajax
  259. var request=true;
  260. var result;
  261. var ParamArray;
  262. try
  263. {
  264. request=new XMLHttpRequest();
  265. }catch(trymicrosoft)
  266. {
  267. try
  268. {
  269. request=new ActiveXObject("Msxml2.XMLHTTP")
  270. }catch(othermicrosoft)
  271. {
  272. try
  273. {
  274. request=new ActiveXObject("Microsoft.XMLHTTP")
  275. }catch(filed)
  276. {
  277. request=false;
  278. }
  279. }
  280. }
  281. if(!request) alert("Error initializing XMLHttpRequest!");
  282. function getFormInfo(Obj)
  283. {
  284. var typeID=Obj.value;
  285. if(isNaN(typeID))
  286. {
  287. document.getElementById("GroupIndexContent").innerHTML="";
  288. return ;
  289. }
  290. var url="getUserGroup.asp?page=UserGroup&id="+typeID+"&r="+Math.random();//构造url
  291. request.open("GET",url,true);//建立连接
  292. request.onreadystatechange = getFormInfoResult;
  293. request.send(null);//传送数据，因为数据通过url传递了，所以这里传递的是null
  294. }
  295. function getFormInfoResult()//当服务器响应的时候就使用这个方法
  296. {
  297. if(request.readyState ==4)//根据HTTP 就绪状态判断响应是否完成
  298. {
  299. if(request.status == 200)//判断请求是否成功
  300. {
  301. result=request.responseText;//获得响应的结果，也就是新的<select>
  302. document.getElementById("GroupIndexContent").innerHTML="|&nbsp;&nbsp;会员组："+result;//将这个结果现实在客户端
  303. }
  304. }
  305. }
  306. function getGroupParam(Obj)
  307. {
  308. var GroupID=Obj.value;
  309. if(!isNaN(GroupID))
  310. {
  311. var url="getUserGroupParam.asp?id="+GroupID+"&r="+Math.random();//构造url
  312. request.open("GET",url,true);//建立连接
  313. request.onreadystatechange = getGroupParamResult;
  314. request.send(null);//传送数据，因为数据通过url传递了，所以这里传递的是null
  315. }
  317. }
  318. //ajax end
  319. function getGroupParamResult()//当服务器响应的时候就使用这个方法
  320. {
  321. if(request.readyState ==4)//根据HTTP 就绪状态判断响应是否完成
  322. {
  323. if(request.status == 200)//判断请求是否成功
  324. {
  325. result=request.responseText;//获得响应的结果，也就是新的<select>
  326. //获取原有设置
  327. ParamArray=result.split("|");
  328. document.getElementById("GroupName").value=ParamArray[0];
  329. document.getElementById("UpfileNum").value=ParamArray[1];
  330. document.getElementById("UpfileSize").value=ParamArray[2];
  331. document.getElementById("GroupDate").value=ParamArray[3];
  332. document.getElementById("GroupPoint").value=ParamArray[4];
  333. document.getElementById("GroupMoney").value=ParamArray[5];
  334. if(ParamArray[6]==1)
  335. {
  336. document.ManageGroup.GroupType[0].checked=true;
  337. }
  338. else
  339. {
  340. document.ManageGroup.GroupType[1].checked=true;
  341. }
  342. document.getElementById("LimitInfoNum").value=ParamArray[7];
  343. document.getElementById("CorpTemplet").value=ParamArray[8];
  344. if(ParamArray[9]!=null && ParamArray[9]!="")
  345. {
  346. var TempArray=ParamArray[9].split(",");
  347. document.getElementById("GroupDebateNum_1").value=TempArray[0]
  348. document.getElementById("GroupDebateNum_2").value=TempArray[1]
  349. }
  350. if(ParamArray[10]==1)
  351. {
  352. document.ManageGroup.JuniorDomain[0].checked=true;
  353. }
  354. else
  355. {
  356. document.ManageGroup.JuniorDomain[1].checked=true;
  357. }
  358. document.getElementById("KeywordsNumber").value=ParamArray[11];
  359. if(ParamArray[12]==1)
  360. {
  361. document.ManageGroup.Ishtml[0].checked=true;
  362. }
  363. else
  364. {
  365. document.ManageGroup.Ishtml[1].checked=true;
  366. }
  367. document.getElementById("BcardNumber").value=ParamArray[13];
  368. if(ParamArray[14]==1)
  369. {
  370. document.ManageGroup.Templetwatermark[0].checked=true;
  371. }
  372. else
  373. {
  374. document.ManageGroup.Templetwatermark[1].checked=true;
  375. }
  376. document.getElementById("ProductDiscount").value=ParamArray[15];
  378. }
  379. }
  380. }
  381. //end
  382. function AlertBeforeDelete()
  383. {
  384. if(document.getElementById("GType").value=="all")
  385. {
  386. if(confirm("确定要删除所有用户组！"))
  387. location='Group_manage.asp?act=delete&tf=all'
  388. }else if(document.getElementById("GType").value==1&&document.getElementById("GroupIndex").value=="user")
  389. {
  390. if(confirm("确定要删除所有个人用户组！"))
  391. location='Group_manage.asp?act=delete&tf=user'
  392. }else  if(document.getElementById("GType").value==0&&document.getElementById("GroupIndex").value=="corp")
  393. {
  394. if(confirm("确定要删除所有企业用户组！"))
  395. location="Group_manage.asp?act=delete&tf=corp"
  396. }else
  397. {
  398. if(confirm("确定要删除该用户组！"))
  399. location='Group_manage.asp?act=delete&tf='+document.getElementById("GroupIndex").value
  400. }
  401. }
  402. </script>
  403. </html>