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

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

数据库编程

开发平台：

ASP/ASPX

Debate_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" -->
  5. <!--#include file="lib/strlib.asp" -->
  6. <!--#include file="lib/UserCheck.asp" -->
  7. <%
  8. Dim GroupRs,DebateRs,UserGroupRs,DebateID,ClassID,GroupName,CroupContent,InfoType,ClassType,AddTime,GroupCreater,GroupManager,isSys,TempRs,ForIndex,GroupManagerArray,selectedTF,AppointUserGroup,AppointUserNumber,action,Debate_Title,Debate_Content,Debate_ID,GroupMembers,GroupID,AccessFile
  9. ClassID=NoSqlHack(Request.QueryString("classid"))
  10. DebateID=NoSqlHack(Request.QueryString("DebateID"))
  11. action=NoSqlHack(Request.QueryString("act"))
  12. Set GroupRs=Server.CreateObject(G_FS_RS)
  13. Set DebateRs=Server.CreateObject(G_FS_RS)
  14. '获得用户文件保存路径
  15. Dim str_CurrPath
  16. str_CurrPath = Replace("/"&G_VIRTUAL_ROOT_DIR &"/"&G_USERFILES_DIR&"/"&Session("FS_UserNumber"),"//","/")
  18. GroupRs.open "select gdID,title,content,InfoType,ClassType,AddTime,PerPageNum,UserNumber,AdminName,ClassMember,isSys,hits,isLock from FS_ME_GroupDebateManage where gdID="&ClassID,User_Conn,1,3
  19. If Not GroupRs.eof then
  20. GroupMembers=GroupRs("ClassMember")
  21. if Instr(GroupMembers,session("FS_UserNumber"))=0 then
  22. Response.Redirect("lib/error.asp?ErrCodes=<li>请先加入该社群</li>")
  23. Response.End()
  24. end If
  25. if GroupRs("isLock")=1 then
  26. Response.Redirect("lib/error.asp?ErrCodes=<li>该群以被锁定</li>")
  27. Response.End()
  28. end If
  29. End if
  31. if DebateID<>"" then
  32. DebateRs.open "select DebateID,title,content,ParentID,ClassID,UserNumber,AddTime,AppointUserNumber,AppointUserGroup,AddIP,AccessFile from FS_ME_GroupDebate  where DebateID="&DebateID,User_Conn,1,3
  33. else
  34. DebateRs.open "select DebateID,title,content,ParentID,ClassID,UserNumber,AddTime,AppointUserNumber,AppointUserGroup,AddIP,AccessFile from FS_ME_GroupDebate  where ClassID="&ClassID,User_Conn,1,3
  36. end if
  38. if action="addaction" then 
  39. DebateRs.addNew
  40. DebateRs("title")=Request.Form("title")
  41. DebateRs("Content")=Request.Form("Content")
  42. DebateRs("AppointUserNumber")=Request.Form("AppointUserNumber")
  43. if trim(Request.Form("userGroup"))<>"" or trim(Request.Form("corpGroup"))<>"" then
  44. DebateRs("AppointUserGroup")=trim(Request.Form("userGroup"))&","&trim(Request.Form("corpGroup"))
  45. End if
  46. DebateRs("ClassID")=ClassID
  47. DebateRs("ParentID")=0
  48. DebateRs("AddTime")=Now()
  49. DebateRs("UserNumber")=session("FS_UserNumber")
  50. DebateRs("AddIP")=request.ServerVariables("REMOTE_ADDR")
  51. If Trim(request.Form("file"))<>"" then
  52. DebateRs("AccessFile")=Trim(request.Form("file"))
  53. End if
  54. DebateRs.update
  55. DebateRs.close
  56. if err.number=0 then 
  57. Response.Redirect("lib/success.asp?ErrCodes=<li>添加成功</li>&ErrorURL=../Group_unit.asp?GDID="&ClassID)
  58. Response.End()
  59. else
  60. Response.Redirect("lib/error.asp?ErrCodes=<li>"&err.description&"</li>")
  61. Response.End()
  62. end if
  63. elseif action="edit" then
  64. Debate_ID=DebateRs("DebateID")
  65. Debate_Title=DebateRs("title")
  66. Debate_Content=DebateRs("content")
  67. AppointUserNumber=DebateRs("AppointUserNumber")
  68. If Not IsNull(DebateRs("AppointUserGroup")) Then AppointUserGroup=split(DebateRs("AppointUserGroup"),",")
  69. AccessFile=DebateRs("AccessFile")
  70. elseif action="editaction" then 
  71. DebateID=DebateRs("ParentID")
  72. if DebateID=0 then 
  73. DebateID=DebateRs("DebateID")
  74. end if
  75. DebateRs("title")=Request.Form("title")
  76. DebateRs("Content")=Request.Form("Content")
  77. DebateRs("AppointUserNumber")=Request.Form("AppointUserNumber")
  78. if trim(Request.Form("userGroup"))<>"" or trim(Request.Form("corpGroup"))<>"" then
  79. DebateRs("AppointUserGroup")=trim(Request.Form("userGroup"))&","&trim(Request.Form("corpGroup"))
  80. End if
  81. DebateRs("AddTime")=Now
  82. DebateRs("UserNumber")=session("FS_UserNumber")
  83. DebateRs("AddIP")=request.ServerVariables("REMOTE_ADDR")
  84. If  Trim(request.Form("file"))<>"" then
  85. DebateRs("AccessFile")=Trim(request.Form("file"))
  86. End if
  87. DebateRs.update
  88. DebateRs.close
  89. if err.number=0 then 
  90. Response.Redirect("lib/success.asp?ErrCodes=<li>修改成功</li>&ErrorURL=../Debate_unit.asp?gdid="&ClassID&"***DebateID="&DebateID)
  91. Response.End()
  92. else
  93. Response.Redirect("lib/error.asp?ErrCodes=<li>"&err.description&"</li>")
  94. Response.End()
  95. end if
  96. elseif action="revert" then
  97. Debate_Title="回复:"&Request.QueryString("title")
  98. elseif action="revertaction" then
  99. DebateRs.addNew
  100. DebateRs("title")=Request.Form("title")
  101. DebateRs("Content")=Request.Form("Content")
  102. DebateRs("AppointUserNumber")=Request.Form("AppointUserNumber")
  103. if trim(Request.Form("userGroup"))<>"" or trim(Request.Form("corpGroup"))<>"" then
  104. DebateRs("AppointUserGroup")=trim(Request.Form("userGroup"))&","&trim(Request.Form("corpGroup"))
  105. End if
  106. DebateRs("ClassID")=classID
  107. DebateRs("ParentID")=DebateID
  108. DebateRs("AddTime")=Now
  109. DebateRs("UserNumber")=session("FS_UserNumber")
  110. DebateRs("AddIP")=request.ServerVariables("REMOTE_ADDR")
  111. If Trim(request.Form("file"))<>"" then
  112. DebateRs("AccessFile")=Trim(request.Form("file"))
  113. End if
  114. DebateRs.update
  115. DebateRs.close
  116. if err.number=0 then 
  117. Response.Redirect("lib/success.asp?ErrCodes=<li>添加成功</li>&ErrorURL=../Debate_unit.asp?gdid="&ClassID&"***DebateID="&DebateID)
  118. Response.End()
  119. else
  120. Response.Redirect("lib/error.asp?ErrCodes=<li>"&err.description&"</li>")
  121. Response.End()
  122. end if
  123. end if
  124. if not DebateRs.eof then
  125. AppointUserNumber=DebateRs("AppointUserNumber")
  126. if DebateRs("AppointUserGroup")<>"" then
  127. AppointUserGroup=split(DebateRs("AppointUserGroup"),",")
  128. end if
  129. else
  130. AppointUserGroup=null
  131. end if
  133. %>
  134. <html xmlns="http://www.w3.org/1999/xhtml">
  135. <title>User Manage Center-网站内容管理系统</title>
  136. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  137. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  138. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  139. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  140. <head></head>
  141. <script language="JavaScript" src="../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  142. <script language="javascript" src="lib/UserJs.js" type="text/javascript"></script>
  143. <body> 
  144. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table"> 
  145.   <tr> 
  146.     <td> <!--#include file="top.asp" --> </td> 
  147.   </tr> 
  148. </table> 
  149. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table"> 
  150.   <tr class="back"> 
  151.     <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td> 
  152.   </tr> 
  153.   <tr class="back"> 
  154.     <td width="18%" valign="top" class="hback"> <div align="left"> 
  155.         <!--#include file="menu.asp" --> 
  156.       </div></td> 
  157.     <td width="82%" valign="top" class="hback"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> 
  158.         <tr> 
  159.           <td width="72%"  valign="top"> <table width="98%" height="112" border="0" align="center" cellpadding="3" cellspacing="1" class="table"> 
  160.               <tr class="hback_1"> 
  161.                 <td height="33">&nbsp;&nbsp;&nbsp;<a href='GroupClass.asp?Act=Add'>创建社群</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='myGroup.asp?userNumber=<%=session("FS_UserNumber")%>'>我的社群</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='#'>社群帮助</a></td> 
  162.               </tr>
  163.               <%
  164. '-------------------------------------群介绍
  165. ClassID=GroupRs("gdID")
  166. GroupName=GroupRs("title")
  167. CroupContent=GroupRs("content")
  168. InfoType=GroupRs("InfoType")
  169. ClassType=GroupRs("ClassType")
  170. AddTime=GroupRs("AddTime")
  171. GroupCreater=GroupRs("UserNumber")
  172. GroupManager=GroupRs("AdminName")
  173. isSys=GroupRs("isSys")
  174. '----------------------获得管理员------------------
  175. GroupManagerArray=split(GroupManager,",")
  176. GroupManager=""
  177. for ForIndex=0 to ubound(GroupManagerArray)
  178. Set TempRs=User_Conn.execute("Select UserName from FS_ME_Users where UserNumber='"&GroupManagerArray(ForIndex)&"'")
  179. if not TempRs.eof then
  180. GroupManager=GroupManager&","&TempRs("UserName")
  181. end if
  182. next
  183. GroupManager=DelHeadAndEndDot(GroupManager)
  184. '-------------获得创建人-------------------------------
  185. if isSys=1 then
  186. GroupCreater="管理员"
  187. else
  188. Set TempRs=User_Conn.execute("Select UserName from FS_ME_Users where UserNumber='"&GroupCreater&"'")
  189. if not TempRs.eof then
  190. GroupCreater=TempRs("UserName")
  191. end if
  192. end if
  193. '-----------------获得社群所属行业----------------------
  194. Set TempRs=User_Conn.execute("select vClassName from FS_ME_VocationClass where vcid="&ClassType)
  195. if not TempRs.eof then
  196. ClassType=TempRs("vClassName")
  197. else
  198. ClassType="其他"
  199. end if
  200. '-------------------------------------
  201. Response.Write("<tr class='hback'><td>")
  202. Response.Write("<table width='100%' height='60' border='0' cellpadding='3' cellspacing='1' class='table'>"&Chr(10)&chr(13))
  203. Response.Write("<tr class='hback'><td colspan=9><a href='Group_unit.asp?GDID="&ClassID&"'><strong><img src=""images/GroupUser.gif"" border=""0""/> "&GroupName&"</strong></a></td></tr>"&Chr(10)&chr(13))
  204. Response.Write("<tr height='20'>"&Chr(10)&chr(13))
  205. Response.Write("<td class='hback' align='right' width='8%'>创建时间:</td><td class='hback' align='left'>"&Datevalue(AddTime)&"</td>"&Chr(10)&chr(13))
  206. Response.Write("<td class='hback' align='right'>创建人:</td><td class='hback' align='left'><a href=""ShowUser.asp?UserName="& GroupCreater &""" target=""_blank"">"&GroupCreater&"</a></td>"&Chr(10)&chr(13))
  207. Response.Write("<td class='hback' align='right'>管理员:</td><td class='hback' align='left'><a href=""ShowUser.asp?UserName="& GroupManager &""" target=""_blank"">"&GroupManager&"</a></td>"&Chr(10)&chr(13))
  208. Response.Write("<td class='hback' align='right'>所属行业:</td><td class='hback' align='left'>"&ClassType&"</td>"&Chr(10)&chr(13))
  209. Response.Write("<td class='hback' align='right'>"&Chr(10)&chr(13))
  210. if Instr(GroupMembers,session("FS_UserNumber"))=0 then
  211. Response.Write("<a href='Group_unit.asp?act=join&GDID="&ClassID&"'>加入该社区</a>")
  212. else
  213. Response.Write("<a href='Group_unit.asp?act=exit&GDID="&ClassID&"'>退出该社区</a>")
  214. end if
  215. Response.Write("</td></tr>"&Chr(10)&chr(13))
  216. Response.Write("<tr height='30'>"&Chr(10)&chr(13))
  217. Response.Write("<td class='hback' colspan=9>&nbsp;<img src=""images/GroupNews.gif""/>"&CroupContent&"</td>"&Chr(10)&chr(13))
  218. Response.Write("</tr>"&Chr(10)&chr(13))
  219. Response.Write("</table>")
  220. Response.Write("</td></tr>")
  221.   %>
  222.   </table></td> 
  223.         </tr> 
  224. <tr>
  225. <td>
  226. <%
  227. if action="new" then 
  228. Response.Write("<form action='?act=addaction&classid="&Request.QueryString("classid")&"' method='post' name='addDebateForm' id='addDebateForm'>")
  229. elseif action="edit" then
  230. Response.Write("<form action='?act=editaction&classID="&Request.QueryString("classid")&"&DebateID="&Debate_ID&"' method='post' name='addDebateForm' id='addDebateForm'>")
  231. elseif action="revert" then
  232. Response.Write("<form action='?act=revertaction&classID="&NoSqlHack(Request.QueryString("classid"))&"&DebateID="&NoSqlHack(request.QueryString("DebateID"))&"' method='post' name='addDebateForm' id='addDebateForm'>")
  233. end if
  234. %>
  235. <table width="98%" height="110" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  236. <tr>
  237. <td width="19%" align="right" class="hback">主题：</td>
  238. <td width="81%" class="hback"><input name="title" type="text" id="title" size="50" value="<%=Debate_Title%>"><span id="title_Alert"></span></td>
  239. </tr>
  240. <tr>
  241.   <td height="35" align="right" class="hback">上传附件：</td>
  242.   <td class="hback"><input name="file" type="text" size="50" value="<%=AccessFile%>"> <input type="button" name="Submit4" value="选择图片" onClick="var TempReturnValue=OpenWindow('Commpages/SelectPic.asp?CurrPath=<% = str_CurrPath %>&f_UserNumber=<% = session("FS_UserNumber")%>',500,290,window);if (TempReturnValue!='') document.addDebateForm.file.value=TempReturnValue;"></td>
  243.   </tr>
  244. <tr>
  245.   <td height="35" align="right" class="hback">内容：</td>
  246.   <td class="hback"><textarea name="content" cols="50" rows="10" id="content"><%=Debate_Content%></textarea><span id="content_Alert"></span></td>
  247. </tr>
  248. <tr>
  249.   <td height="35" align="right" class="hback">该主题个人查看权限：</td>
  250.   <td class="hback"><textarea name="AppointUserNumber" cols="50" id="AppointUserNumber"><%=AppointUserNumber%></textarea>
  251.     [填写允许查看人的编号，用,隔开]</td>
  252.   </tr>
  253. <tr>
  254.   <td align="right" class="hback">该主题组查看权限：<br></td>
  255.   <td class="hback">
  256.   <select name="userGroup" size="10" multiple>
  257.           <option value="" style="background-color:#014952; color:#FFFFFF;">-个人用户组-</option>
  258.   <%
  259.    Set UserGroupRs=User_Conn.Execute("Select GroupID,GroupName from FS_ME_Group where GroupType=1")
  260. while not UserGroupRs.eof
  261. selectedTF=false
  262. if  isArray(AppointUserGroup) then
  263. for ForIndex=0 to Ubound(AppointUserGroup)
  264. if not isnumeric(AppointUserGroup(ForIndex)) then exit for
  265. if Cint(trim(AppointUserGroup(ForIndex)))=UserGroupRs("GroupID") then
  266. selectedTF=true
  267. exit for
  268. end if
  269. next
  270. end if
  271. if selectedTF then
  272. Response.Write("<option value='"&UserGroupRs("GroupID")&"' selected>"&UserGroupRs("GroupName")&"</option>")
  273. else
  274. Response.Write("<option value='"&UserGroupRs("GroupID")&"'>"&UserGroupRs("GroupName")&"</option>")
  275. end if
  276. UserGroupRs.movenext
  277. wend
  278.   %>
  279.         </select> 
  280.           <select name="corpGroup" size="10" multiple>
  281.             <option value="" style="background-color:#014952; color:#FFFFFF;">-企业用户组-</option>
  282. <%
  283. Set UserGroupRs=User_Conn.Execute("Select GroupID,GroupName from FS_ME_Group where GroupType=0")
  284. while not UserGroupRs.eof
  285. selectedTF=false
  286. if  not isNull(AppointUserGroup) then
  287. for ForIndex=0 to Ubound(AppointUserGroup)
  288. if not isnumeric(AppointUserGroup(ForIndex)) then exit for
  289. if Cint(trim(AppointUserGroup(ForIndex)))=UserGroupRs("GroupID") then
  290. selectedTF=true
  291. exit for
  292. end if
  293. next
  294. end if
  295. if selectedTF then
  296. Response.Write("<option value='"&UserGroupRs("GroupID")&"' selected>"&UserGroupRs("GroupName")&"</option>")
  297. else
  298. Response.Write("<option value='"&UserGroupRs("GroupID")&"'>"&UserGroupRs("GroupName")&"</option>")
  299. end if
  300. UserGroupRs.movenext
  301. wend
  302. %>
  303.             </select>
  304.           [选择的组将允许查看]</td>
  305. </tr>
  306. <tr>
  307.   <td align="right" class="hback">&nbsp;</td>
  308.   <td class="hback"><input type="Button" name="Submit" onClick="MySubming()" value="提交">
  309. &nbsp;&nbsp;
  310. <input type="reset" name="Submit2" value="重置"></td>
  311. </tr>
  312. </table>
  313. </form>
  314. </td>
  315. </tr>
  317.       </table></td> 
  318.   </tr> 
  319.   <tr class="back"> 
  320.     <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  321.         <!--#include file="Copyright.asp" --> 
  322.       </div></td> 
  323.   </tr> 
  324. </table> 
  325. </body>
  326. </html>
  327. <script language="javascript">
  328. function MySubming()
  329. {
  330. var flag1=isEmpty("title","title_Alert")
  331. var flag2=isEmpty("content","content_Alert")
  332. if(flag1&&flag2)
  333. document.addDebateForm.submit()
  334. }
  335. </script>
  336. <%
  337. Set GroupRs=nothing
  338. Set DebateRs=nothing
  339. Set UserGroupRs=nothing
  340. Set User_Conn=nothing
  341. Set Fs_User = Nothing
  342. %>
  343. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->