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

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

数据库编程

开发平台：

ASP/ASPX

AddEditDebate.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,OperateDebateRs,DebateID,title,content,ParentID,parentIDRs,Classid,AppointUserNumber,AppointUserGroup,isLock,AccessFile,TopicRs,TopicRs1,TopicRs2,ClassRs,UserGroupRs,CorpGroupRs,ArrayCount,selectedTF,currentTopicRs,i,ChildDebateArray
  8. Admin_Login_State
  9. MF_Default_Conn
  10. MF_User_Conn
  11. MF_Session_TF
  12. AppointUserGroup=null
  13. function getChildID(ID,self)
  14. Dim F_Rs,F_ChildID
  15. Set F_Rs=User_Conn.Execute("select DebateID,ParentID from FS_ME_GroupDebate where parentID="&ID)
  16. while not F_Rs.eof
  17. F_ChildID=F_Rs("DebateID")&","&getChildID(F_Rs("DebateID"),false)
  18. F_Rs.movenext
  19. wend
  20. F_Rs.close
  21. Set F_Rs=nothing
  22. if self then
  23. getChildID=ID&","&F_ChildID
  24. else
  25. getChildID=F_ChildID
  26. end if
  27. end function
  28. function getParentNum(parentID)
  29. Dim F_Parent_Count,F_Rs
  30. F_Parent_Count=1
  31. if not isnumeric(parentID) then exit function
  32. Set F_Rs=User_Conn.execute("Select DebateID,ParentID from FS_ME_GroupDebate where DebateID="&parentID)
  33. if not F_Rs.eof then
  34. F_Parent_Count=F_Parent_Count+getParentNum(F_Rs("ParentID"))
  35. end if
  36. F_Rs.close
  37. Set F_Rs=nothing
  38. getParentNum=F_Parent_Count
  39. end function
  40. '************************************Update
  41. if Request.QueryString("Act")="edit" then'修改界面
  42. DebateID=Request.QueryString("DebateID")
  43. Set OperateDebateRs=server.CreateObject(G_FS_RS)
  44. OperateDebateRs.open "select DebateID,title,content,addtime,ParentID,classid,AppointUserNumber,AppointUserGroup,AddTime,isLock,AccessFile from FS_ME_GroupDebate where DebateID="&DebateID,User_Conn,1,3
  45. if not OperateDebateRs.eof then
  46. title=OperateDebateRs("title")
  47. content=OperateDebateRs("content")
  48. ParentID=OperateDebateRs("ParentID")
  49. classid=OperateDebateRs("classid")
  50. AppointUserNumber=OperateDebateRs("AppointUserNumber")
  51. if OperateDebateRs("AppointUserGroup")<>"" then
  52. AppointUserGroup=split(OperateDebateRs("AppointUserGroup"),",")
  53. end if
  54. isLock=OperateDebateRs("isLock")
  55. AccessFile=OperateDebateRs("AccessFile")
  56. end if
  57. elseif Request.QueryString("Act")="EditDebate" then'修改动作
  58. if Request.Form("currentValue")<>"" then
  59. parentID=Request.Form("currentValue")
  60. elseif Request.Form("topic2")<>"" then
  61. parentID=Request.Form("topic2")
  62. elseif Request.Form("topic1")<>"" then
  63. parentID=Request.Form("topic1")
  64. elseif Request.Form("topic")<>"" then
  65. parentID=Request.Form("topic")
  66. end if 
  67. if request.Form("userGroup")="" and Request.Form("corpGroup")<>"" then
  68. AppointUserGroup=Request.Form("corpGroup")
  69. elseif request.Form("userGroup") <> "" and Request.Form("corpGroup")="" then
  70. AppointUserGroup=Request.Form("userGroup")
  71. elseif request.Form("userGroup") <> "" and Request.Form("corpGroup")<>"" then
  72. AppointUserGroup=trim(request.Form("userGroup"))&","&trim(Request.Form("corpGroup"))
  73. end if
  75. '****************验证修改数据的合理性
  76. ChildDebateArray=split(DelHeadAndEndDot(getChildID(NoSqlHack(Request("DebateID")),true)),",")
  77. for i=0 to Ubound(ChildDebateArray)
  78. if parentID=ChildDebateArray(i) then
  79. Response.Redirect("../error.asp?ErrCodes=<li>1.自己不能是自己的父类</li><li>2.自己的子类不能作为父类</li>")
  80. Response.End()
  81. end if
  82. next
  83.  if getParentNum(parentID)+Ubound(ChildDebateArray)>4 then
  84. Response.Redirect("../error.asp?ErrCodes=<li>总层级数不能大于4</li>")
  85. Response.End()
  86.  end if
  87. '****************************************
  89. User_Conn.Execute("Update FS_ME_GroupDebate set title='"&Request.Form("title")&"',content='"&Request.Form("Content")&"',parentid="&parentid&",classid="&Request.Form("DebateClass")&",AppointUserNumber='"&Request.Form("AppointUserNumber")&"',AppointUserGroup='"&AppointUserGroup&"',addtime='"&Now()&"',isLock="&Request.Form("isLock")&",AccessFile='"&Request.Form("AccessFile")&"' where DebateID="&NoSqlHack(Request("DebateID")))
  90. if err.number>0 then
  91. Response.Redirect("../error.asp?ErrCodes="&err.description&"&ErrorUrl=./user/GroupDebate_manage.asp")
  92. Response.End()
  93. else
  94. Response.Redirect("../success.asp?ErrCodes=<li>操作成功</li>&ErrorUrl=./user/GroupDebate_manage.asp")
  95. Response.End()
  96. end if
  97. elseif Request("Act")="AddDebate" then'添加动作
  98. Set OperateDebateRs=server.CreateObject(G_FS_RS)
  99. if Request("currentValue")<>"" then
  100. parentID=Request("currentValue")
  101. elseif Request("topic2")<>"" then
  102. parentID=Request("topic2")
  103. elseif Request("topic1")<>"" then
  104. parentID=Request("topic1")
  105. elseif Request("topic")<>"" then
  106. parentID=Request("topic")
  107. end if 
  108. if request.Form("userGroup")="" and Request.Form("corpGroup")<>"" then
  109. AppointUserGroup=Request.Form("corpGroup")
  110. elseif request.Form("userGroup") <> "" and Request.Form("corpGroup")="" then
  111. AppointUserGroup=Request.Form("userGroup")
  112. elseif request.Form("userGroup") <> "" and Request.Form("corpGroup")<>"" then
  113. AppointUserGroup=trim(request.Form("userGroup"))&","&trim(Request.Form("corpGroup"))
  114. end if
  115. OperateDebateRs.open "select title,content,ParentID,ClassID,addtime,AppointUserNumber,AppointUserGroup,isLock,AccessFile from FS_ME_GroupDebate",User_Conn,1,3
  116. OperateDebateRs.addNew
  117. OperateDebateRs("title")=Request.Form("title")
  118. OperateDebateRs("content")=Request.Form("Content")
  119. OperateDebateRs("ParentID")=parentID
  120. OperateDebateRs("ClassID")=Request.Form("DebateClass")
  121. OperateDebateRs("addtime")=Now()
  122. if Request.Form("AppointUserNumber")<>"" then
  123. OperateDebateRs("AppointUserNumber")=Request.Form("AppointUserNumber")
  124. end if
  125. if AppointUserGroup<>"" then
  126. OperateDebateRs("AppointUserGroup")=AppointUserGroup
  127. end if
  128. OperateDebateRs("islock")=Request.Form("islock")
  129. OperateDebateRs("AccessFile")=Request.Form("AccessFile")
  130. OperateDebateRs.update
  131. OperateDebateRs.close
  132. if err.number>0 then
  133. Response.Redirect("../error.asp?ErrCodes="&err.description&"&ErrorUrl=./user/GroupDebate_manage.asp")
  134. Response.End()
  135. else
  136. Response.Redirect("../success.asp?ErrCodes=<li>操作成功</li>&ErrorUrl=./user/GroupDebate_manage.asp")
  137. Response.End()
  138. end if
  139. end if
  140. %>
  141. <html xmlns="http://www.w3.org/1999/xhtml">
  142. <HEAD>
  143. <TITLE>FoosunCMS</TITLE>
  144. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  145. </HEAD>
  146. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  147. <script language="JavaScript" src="lib/UserJS.js" type="text/JavaScript"></script>
  148. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  149. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes  oncontextmenu="return false;"> 
  150. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table"> 
  151. <%
  152. if Request.QueryString("Act")="edit" then
  153. Response.Write("<form action='?Act=EditDebate&DebateID="&DebateID&"' method='post' name='operateDebate' id='operateDebate'>")
  154. elseif Request.QueryString("Act")="add" or Request.QueryString("Act")="AddChild" then
  155. Response.Write("<form action='?Act=AddDebate' method='post' name='operateDebate' id='operateDebate'>")
  156. end if
  157. %>
  158.   <tr class="hback"> 
  159.     <td align="right" class="xingmu" ><div align="left">社群管理</div></td>
  160. <td align="right" class="xingmu"><div align="right"><a href="GroupDebate_manage.asp">返回</a></div></td>
  161. </tr> 
  162.         <tr class="hback"> 
  163.           <td align="right">社群主题：</td> 
  164.           <td width="631"> <input name="Title" type="text" id="Title" value="<%=title%>" size="50" />
  165.           <font color="#FF0000">*</font><span id="Title_Alert"></span> </td> 
  166.         </tr>      
  167. <tr class="hback">
  168.     <td align="right">讨论内容： </td>
  169.     <td>    <textarea name="Content" cols="80" rows="10" id="Content"><%=content%></textarea>
  170.     <font color="#FF0000">*</font><span id="Content_Alert"></span></td>
  171.   </tr>
  172. <tr class="hback">
  173.   <td align="right">所属主题：</td>
  174.   <td>
  175.   <%
  176. if Request.QueryString("act")<>"AddChild" then
  177. Set TopicRs=User_Conn.Execute("Select DebateID,Title,ParentID from FS_ME_GroupDebate where ParentID=0 order by addtime desc")
  178. Response.Write("<select name='Topic' id='topic' onchange=""getDebate(this,'Topic1')"">"&Chr(10)&Chr(13))
  179. Response.Write("<option value=''>请选择一级主题</option>")
  180. Response.Write("<option value='0'>一级主题</option>")
  181. while not TopicRs.eof
  182. Response.Write("<option value='"&TopicRs("DebateID")&"'>"&TopicRs("title")&"</option>")
  183. TopicRs.movenext
  184. wend
  185. Response.Write("</select>")
  186. end if
  187.   %>
  188.   <span id="Topic1_Container">
  189.   </span>&nbsp;
  190.   <span id="Topic2_Container">
  191.   </span>
  192.   <span id="current">
  193. <%
  194. Response.Write("<select name='currentValue' id='currentValue' size='1' multiple>")
  195. if Request.QueryString("act")="AddChild" then
  196. Set currentTopicRs=User_Conn.Execute("Select DebateID,title from FS_ME_Groupdebate where  DebateID="&Request.QueryString("DebateID"))
  197. if not currentTopicRs.eof then
  198. ParentID=currentTopicRs("DebateID")
  199. if ParentID=0 then
  200. Response.Write("<option value='0' selected>一级主题</option>")
  201. else
  202. Response.Write("<option value='"&ParentID&"' selected>"&currentTopicRs("title")&"</option>")
  203. end if
  204. end if
  205. else
  206. if ParentID=0 then
  207. Response.Write("<option value='0' selected>一级主题</option>")
  208. else
  209. Response.Write("<option value='"&ParentID&"' selected>"&User_Conn.execute("select title from FS_ME_Groupdebate where DebateID="&ParentID)(0)&"</option>")
  210. end if
  211. end if
  212. Response.Write("</select>")
  213. %>
  214.   </span>
  215.   </td>
  216. </tr>
  217. <tr class="hback"> 
  218. <td align="right">所属分类：</td> 
  219.     <td>
  220.   <%
  221.    i=0
  222. Set ClassRs=User_Conn.Execute("Select ClassID,Title from FS_ME_GroupDebateClass")
  223. Response.Write("<select name='DebateClass'>"&Chr(10)&Chr(13))
  224. while not ClassRs.eof
  225. if classid=ClassRs("ClassID") then
  226. Response.Write("<option value='"&ClassRs("ClassID")&"' selected>"&ClassRs("title")&"</option>")
  227. else
  228. Response.Write("<option value='"&ClassRs("ClassID")&"'>"&ClassRs("title")&"</option>")
  229. end if
  230. ClassRs.movenext
  231. wend
  232.   %>
  233. </td> 
  234.   </tr> 
  235.       <tr class="hback"> 
  236.           <td align="right">指定用户查看：</td> 
  237.           <td><textarea name="AppointUserNumber" cols="80" id="AppointUserNumber" onKeyUp="ReplaceDot('AppointUserNumber')"><%=AppointUserNumber%></textarea>
  238. </td> 
  239.       </tr>
  240.       <tr class="hback">
  241.         <td align="right">指定用户组查看：</td>
  242.         <td><select name="userGroup" size="10" multiple>
  243.           <option value="user_all" style="background-color:#014952; color:#FFFFFF;">-个人用户组-</option>
  244.   
  245.   <%
  246.    Set UserGroupRs=User_Conn.Execute("Select GroupID,GroupName from FS_ME_Group where GroupType=1")
  247. while not UserGroupRs.eof
  248. selectedTF=false
  249. if  not isNull(AppointUserGroup) then
  250. for ArrayCount=0 to Ubound(AppointUserGroup)
  251. if not isnumeric(AppointUserGroup(ArrayCount)) then exit for
  252. if Cint(trim(AppointUserGroup(ArrayCount)))=UserGroupRs("GroupID") then
  253. selectedTF=true
  254. exit for
  255. end if
  256. next
  257. end if
  258. if selectedTF then
  259. Response.Write("<option value='"&UserGroupRs("GroupID")&"' selected>"&UserGroupRs("GroupName")&"</option>")
  260. else
  261. Response.Write("<option value='"&UserGroupRs("GroupID")&"'>"&UserGroupRs("GroupName")&"</option>")
  262. end if
  263. UserGroupRs.movenext
  264. wend
  265.   %>
  266.         </select> 
  267.           <select name="corpGroup" size="10" multiple>
  268.             <option value="corp_all" style="background-color:#014952; color:#FFFFFF;">-企业用户组-</option>
  269. <%
  270. Set UserGroupRs=User_Conn.Execute("Select GroupID,GroupName from FS_ME_Group where GroupType=0")
  271. while not UserGroupRs.eof
  272. selectedTF=false
  273. if  not isNull(AppointUserGroup) then
  274. for ArrayCount=0 to Ubound(AppointUserGroup)
  275. if not isnumeric(AppointUserGroup(ArrayCount)) then exit for
  276. if Cint(trim(AppointUserGroup(ArrayCount)))=UserGroupRs("GroupID") then
  277. selectedTF=true
  278. exit for
  279. end if
  280. next
  281. end if
  282. if selectedTF then
  283. Response.Write("<option value='"&UserGroupRs("GroupID")&"' selected>"&UserGroupRs("GroupName")&"</option>")
  284. else
  285. Response.Write("<option value='"&UserGroupRs("GroupID")&"'>"&UserGroupRs("GroupName")&"</option>")
  286. end if
  287. UserGroupRs.movenext
  288. wend
  289. %>
  290.             </select></td>
  291.       </tr>
  292.       <tr class="hback">
  293.         <td align="right">锁定：</td>
  294.         <td>
  295. <%
  296. if Request.QueryString("Act")="edit" then
  297. if isLock=1 then
  298. Response.Write("<input type='radio' name='isLock' value='1' checked>是"&Chr(10)&Chr(13))
  299. Response.Write("<input type='radio' name='isLock' value='0' >否"&Chr(10)&Chr(13))
  300. elseif isLock=0 then
  301. Response.Write("<input type='radio' name='isLock' value='1' >是"&Chr(10)&Chr(13))
  302. Response.Write("<input type='radio' name='isLock' value='0' checked>否"&Chr(10)&Chr(13))
  303. end if
  304. else
  305. Response.Write("<input type='radio' name='isLock' value='1' >是"&Chr(10)&Chr(13))
  306. Response.Write("<input type='radio' name='isLock' value='0' checked>否"&Chr(10)&Chr(13))
  307. end if
  308. %>
  309. </td>
  310.       </tr>
  311.       <tr class="hback">
  312.         <td align="right">附件地址：</td>
  313.         <td><input name="AccessFile" type="text" id="AccessFile" size="50" value="<%=AccessFile%>"><span id="AccessFile_Alert"></span></td>
  314.       </tr> 
  315.       <tr class="hback"> 
  316.           <td align="right">&nbsp;</td> 
  317.           <td><input type="Button" name="OperateDebateButton" value=" 保存 " onClick="OperateDebateSubmit()"/> 
  318.             <input type="reset" name="Submit2" value=" 重置 " /></td> 
  319.       </tr> 
  320.     </form>
  321. </table> 
  322. </body>
  323. <%
  324. if Request.QueryString("Act")="edit" then
  325. TopicRs.close
  326. Set TopicRs=nothing
  327. ClassRs.close
  328. Set ClassRs=nothing
  329. OperateDebateRs.close
  330. Set OperateDebateRs=nothing
  331. UserGroupRs.close
  332. Set UserGroupRs=nothing
  333. Conn.close
  334. Set Conn=nothing
  335. User_Conn.close
  336. Set User_Conn=nothing
  337. elseif  Request.QueryString("Act")="EditDebate" then
  338. parentIDRs.close
  339. Set parentIDRs=nothing
  340. elseif Request.QueryString("Act")="AddChile" then
  341. currentTopicRs.close
  342. Set currentTopicRs=nothing
  343. end if
  344. %>
  345. <script language="JavaScript" type="text/JavaScript">
  346. <!--
  347. function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  348.   if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
  349.     document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  350.   else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
  351. }
  352. MM_reloadPage(true);
  353. //-->
  354. var request=true;
  355. var result;
  356. var ParamArray;
  357. try
  358. {
  359. request=new XMLHttpRequest();
  360. }catch(trymicrosoft)
  361. {
  362. try
  363. {
  364. request=new ActiveXObject("Msxml2.XMLHTTP")
  365. }catch(othermicrosoft)
  366. {
  367. try
  368. {
  369. request=new ActiveXObject("Microsoft.XMLHTTP")
  370. }catch(filed)
  371. {
  372. request=false;
  373. }
  374. }
  375. }
  376. if(!request) alert("Error initializing XMLHttpRequest!");
  377. function getDebate(Obj,Str)
  378. {
  379. var debateID=Obj.value;
  380. if(isNaN(debateID))
  381. {
  382. document.getElementById("Topic1_Container").innerHTML="";
  383. document.getElementById("Topic2_Container").innerHTML="";
  384. return ;
  385. }else if(debateID==0)
  386. {
  387. document.getElementById("Topic1_Container").innerHTML="";
  388. document.getElementById("Topic2_Container").innerHTML="";
  389. document.getElementById("current").innerHTML="";
  390. return ;
  391. }
  392. document.getElementById("current").innerHTML="";
  393. var url="getGroupDebate.asp?name="+Str+"&debateid="+debateID+"&r="+Math.random();//构造url
  394. request.open("GET",url,true);//建立连接
  395. request.onreadystatechange = getDebateResult;
  396. request.send(null);//传送数据，因为数据通过url传递了，所以这里传递的是null
  397. }
  398. function getDebateResult()//当服务器响应的时候就使用这个方法
  399. {
  400. if(request.readyState ==4)//根据HTTP 就绪状态判断响应是否完成
  401. {
  402. if(request.status == 200)//判断请求是否成功
  403. {
  404. result=request.responseText;//获得响应的结果，也就是新的<select>
  405. if(result.indexOf("name='Topic1'")>0)
  406. {
  407. document.getElementById("Topic1_Container").innerHTML="|&nbsp;&nbsp;"+result;//将这个结果现实在客户端
  408. document.getElementById("Topic2_Container").innerHTML=""
  409. }
  410. if(result.indexOf("name='Topic2'")>0)
  411. {
  412. document.getElementById("Topic2_Container").innerHTML="|&nbsp;&nbsp;"+result;//将这个结果现实在客户端
  413. }
  414. }
  415. }
  416. }
  417. function OperateDebateSubmit()
  418. {
  419. var flag1=isEmpty('Title','Title_Alert');
  420. var flag2=isEmpty('Content','Content_Alert');
  421. var flag3=isEmpty('AccessFile','AccessFile_Alert');
  422. if(flag1&&flag2&&flag3)
  423. {
  424. document.operateDebate.submit();
  425. }
  426. }
  427. </script>
  428. </html>