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

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

数据库编程

开发平台：

ASP/ASPX

Group_unit.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="../FS_Inc/Func_Page.asp"-->
  6. <!--#include file="lib/strlib.asp" -->
  7. <!--#include file="lib/UserCheck.asp" -->
  8. <%'Copyright (c) 2006 Foosun Inc. Code by Einstein.liu
  9. Dim GroupRs,DebateRs,DebateID,GroupID,GroupName,CroupContent,InfoType,ClassType,AddTime,PerPageNum,GroupCreater,GroupManager,isSys,hits,GroupMembers,GroupMembersArray,TempRs,HotGroupNumber,ForwardNumber,ForIndex,GroupManagerArray,re,AppointUserNumber,AppointUserGroup
  10. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo,i
  11. GroupID=NoSqlHack(Request.QueryString("GDID"))
  12. Set GroupRs=Server.CreateObject(G_FS_RS)
  13. Set DebateRs=Server.CreateObject(G_FS_RS)
  15. GroupRs.open "select gdID,title,content,InfoType,ClassType,AddTime,PerPageNum,UserNumber,ClassMemberNum,AdminName,ClassMember,isSys,hits from FS_ME_GroupDebateManage where gdID="&GroupID,User_Conn,1,3
  17. DebateRs.open "select DebateID,title,content,ParentID,UserNumber,AddTime,AppointUserNumber,AppointUserGroup,AddIP from FS_ME_GroupDebate  where ClassID="&GroupID&" and ParentID=0 order by AddTime desc,DebateID desc",User_Conn,1,1
  19. PerPageNum=GroupRs("PerPageNum")
  20. '---------------------------------分页定义
  21. int_RPP=PerPageNum '设置每页显示数目
  22. int_showNumberLink_=8 '数字导航显示数目
  23. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  24. str_nonLinkColor_="#999999" '非热链接颜色
  25. toF_="<font face=webdings title=""首页"">9</font>"   '首页 
  26. toP10_=" <font face=webdings title=""上十页"">7</font>" '上十
  27. toP1_=" <font face=webdings title=""上一页"">3</font>" '上一
  28. toN1_=" <font face=webdings title=""下一页"">4</font>" '下一
  29. toN10_=" <font face=webdings title=""下十页"">8</font>" '下十
  30. toL_="<font face=webdings title=""最后一页"">:</font>" '尾页
  31. '--------------------------------------------------
  33. if NoSqlHack(Request.QueryString("act"))="join" then 
  34. GroupMembers=GroupRs("ClassMember")
  35. GroupMembers=DelHeadAndEndDot(GroupMembers)&"," &session("FS_UserNumber")
  36. GroupMembersArray=split(GroupMembers,",")
  37. GroupRs("ClassMember")=GroupMembers
  38. GroupRs("ClassMemberNum")=Ubound(GroupMembersArray)
  39. GroupRs.update
  40. GroupRs.close
  41. if err.number=0 then 
  42. Response.Redirect("lib/success.asp?ErrCodes=<li>成功加入该组</li>&ErrorURL=../Group_unit.asp?GDID="&GroupID)
  43. Response.End()
  44. else
  45. Response.Redirect("lib/error.asp?ErrCodes=<li>"&err.description&"</li>")
  46. Response.End()
  47. end if
  48. elseif NoSqlHack(Request.QueryString("act"))="exit" then
  49. GroupMembers=GroupRs("ClassMember")
  50. Set re = New RegExp '正则匹配一个逗号
  51. re.Pattern = session("FS_UserNumber")&",*"
  52. GroupMembers=re.replace(GroupMembers,"")
  53. GroupMembersArray=split(GroupMembers,",")
  54. GroupRs("ClassMember")=GroupMembers
  55. GroupRs("ClassMemberNum")=Ubound(GroupMembersArray)
  56. GroupRs.update
  57. GroupRs.close
  58. if err.number=0 then 
  59. Response.Redirect("lib/success.asp?ErrCodes=<li>成功退出该组</li>&ErrorURL=../Group_unit.asp?GDID="&GroupID)
  60. Response.End()
  61. else
  62. Response.Redirect("lib/error.asp?ErrCodes=<li>"&err.description&"</li>")
  63. Response.End()
  64. end if
  65. end if
  66. %>
  67. <html xmlns="http://www.w3.org/1999/xhtml">
  68. <title>User Manage Center-网站内容管理系统</title>
  69. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  70. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  71. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  72. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  73. <head></head>
  74. <body> 
  75. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table"> 
  76.   <tr> 
  77.     <td> <!--#include file="top.asp" --> </td> 
  78.   </tr> 
  79. </table> 
  80. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table"> 
  81.   <tr class="back"> 
  82.     <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td> 
  83.   </tr> 
  84.   <tr class="back"> 
  85.     <td width="18%" valign="top" class="hback"> <div align="left"> 
  86.         <!--#include file="menu.asp" --> 
  87.       </div></td> 
  88.     <td width="82%" valign="top" class="hback"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> 
  89.         <tr> 
  90.           <td width="72%"  valign="top"> <table width="98%" height="112" border="0" align="center" cellpadding="3" cellspacing="1" class="table"> 
  91.               <tr class="hback_1"> 
  92.                 <td height="33">&nbsp;&nbsp;&nbsp;
  93. <a href='GroupClass.asp?Act=Add'>创建社群</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  94. <a href='myGroup.asp?userNumber=<%=session("FS_UserNumber")%>'>我的社群</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  95. <a href='Group.asp'>社群首页</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  96. <a href='#'>社群帮助</a>
  97. </td> 
  98.               </tr>
  99.               <%
  100. '-------------------------------------群介绍
  101. GroupID=GroupRs("gdID")
  102. GroupName=GroupRs("title")
  103. CroupContent=GroupRs("content")
  104. InfoType=GroupRs("InfoType")
  105. ClassType=GroupRs("ClassType")
  106. AddTime=GroupRs("AddTime")
  107. GroupCreater=GroupRs("UserNumber")
  108. GroupManager=GroupRs("AdminName")
  109. isSys=GroupRs("isSys")
  110. hits=GroupRs("hits")
  111. GroupMembers=GroupRs("ClassMember")
  112. '----------------------获得管理员------------------
  113. GroupManagerArray=split(GroupManager,",")
  114. GroupManager=""
  115. for ForIndex=0 to ubound(GroupManagerArray)
  116. Set TempRs=User_Conn.execute("Select UserName from FS_ME_Users where UserNumber='"&GroupManagerArray(ForIndex)&"'")
  117. if not TempRs.eof then
  118. GroupManager=GroupManager&","&TempRs("UserName")
  119. end if
  120. next
  121. GroupManager=DelHeadAndEndDot(GroupManager)
  122. '-------------获得创建人-------------------------------
  123. if isSys=1 then
  124. GroupCreater="管理员"
  125. else
  126. Set TempRs=User_Conn.execute("Select UserName from FS_ME_Users where UserNumber='"&GroupCreater&"'")
  127. if not TempRs.eof then
  128. GroupCreater=TempRs("UserName")
  129. end if
  130. end if
  131. '-----------------获得社群所属行业----------------------
  132. Set TempRs=User_Conn.execute("select vClassName from FS_ME_VocationClass where vcid="&ClassType)
  133. if not TempRs.eof then
  134. ClassType=TempRs("vClassName")
  135. else
  136. ClassType="其他"
  137. end if
  138. '-----------------获得社群成员数----------------------
  139. if GroupMembers<>"" then
  140. GroupMembersArray=split(GroupMembers,",")
  141. end if
  142. '------------------------------------------
  143. Response.Write("<tr class='hback'><td>")
  144. Response.Write("<table width='100%' height='60' border='0' cellpadding='3' cellspacing='1' class='table'>"&Chr(10)&chr(13))
  145. Response.Write("<tr class='hback'><td colspan=9><a href='Group_unit.asp?GDID="&GroupID&"'><strong><img src=""images/GroupUser.gif"" border=""0""/> "&GroupName&"</strong></a></td></tr>"&Chr(10)&chr(13))
  146. Response.Write("<tr height='20'>"&Chr(10)&chr(13))
  147. Response.Write("<td class='hback' align='right' width='8%'>创建时间:</td><td class='hback' align='left'>"&Datevalue(AddTime)&"</td>"&Chr(10)&chr(13))
  148. 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))
  149. 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))
  150. Response.Write("<td class='hback' align='right'>所属行业:</td><td class='hback' align='left'>"&ClassType&"</td>"&Chr(10)&chr(13))
  151. Response.Write("<td class='hback' align='right'>"&Chr(10)&chr(13))
  152. if Instr(GroupMembers,session("FS_UserNumber"))=0 then
  153. Response.Write("<a href='Group_unit.asp?act=join&GDID="&GroupID&"'>加入该社区</a>")
  154. else
  155. Response.Write("<a href='Group_unit.asp?act=exit&GDID="&GroupID&"'>退出该社区</a>")
  156. end if
  157. Response.Write("</td>")
  158. Response.Write("</tr>"&Chr(10)&chr(13))
  159. Response.Write("<tr height='30'>"&Chr(10)&chr(13))
  160. Response.Write("<td class='hback' colspan=9><img src=""images/GroupNews.gif""/>"&CroupContent&"</td>"&Chr(10)&chr(13))
  161. Response.Write("</tr>"&Chr(10)&chr(13))
  162. Response.Write("</table>")
  163. Response.Write("</td></tr>")
  164. '-------------------------------------------------社群成员
  165. GroupMembers=""
  166. Set GroupMembersArray=nothing
  167. Response.Write("<tr class='hback'><td>"&Chr(10)&chr(13))
  168. Response.Write("<table width='100%' height='60' border='0' cellpadding='5' cellspacing='1' class='table'>"&Chr(10)&chr(13))
  170. Response.Write("<tr class='hback'><td align='left'><img src=""images/GroupMembers.gif"">社群成员</td></tr>")
  171. if GroupRs("ClassMember")<>"" then
  172. GroupMembersArray=split(DelHeadAndEndDot(GroupRs("ClassMember")),",")
  173. If IsArray(GroupMembersArray) Then
  174. Dim memberRs,userName
  175. for ForIndex =0 to Ubound(GroupMembersArray)
  176. Set memberRs=User_Conn.execute("Select UserName from FS_ME_Users where UserNumber='"&GroupMembersArray(ForIndex)&"'")
  177. If Not memberRs.eof Then
  178. userName="<a  href='ShowUser.asp?UserNumber="&GroupMembersArray(ForIndex)&"' title='点击查看该用户详情'>"&memberRs("UserName")&"</a>"
  179. Else
  180. userName=""
  181. End If
  182. If userName<>"" then
  183. GroupMembers=GroupMembers&"&nbsp;<img src='images/DebateUser.gif'/>&nbsp;"&userName&"</a>"
  184. End if
  185. Next
  186. If Not isNull(memberRs) Then memberRs.close()
  187. End if
  188. end if
  189. Response.Write("<tr><td  class='hback'>")
  190. Response.Write(GroupMembers)
  191. Response.Write("</td></tr>"&Chr(10)&chr(13))
  192. Response.Write("</table>"&Chr(10)&chr(13))
  193. Response.Write("</td></tr>"&Chr(10)&chr(13))
  194. '-------------------------------------------------社群讨论贴
  195. Response.Write("<tr class='hback'><td>"&Chr(10)&chr(13))
  196. Response.Write("<table width='100%' height='60' border='0' cellpadding='5' cellspacing='1' class='table'>"&Chr(10)&chr(13))
  198. Response.Write("<tr class='hback'><td align='left' colspan='2'>&nbsp;社群讨论<div align='right'><a href='Debate_Add.asp?act=new&ClassID="&GroupID&"'><img src=""images/newTopic.gif"" border=""0""/>发表主题</a></div></td></tr>"&Chr(10)&chr(13))
  200. If Not DebateRs.eof then
  201. '分页使用-----------------------------------
  202. DebateRs.PageSize=int_RPP
  203. cPageNo=NoSqlHack(Request.QueryString("page"))
  204. If cPageNo="" Then cPageNo = 1
  205. If not isnumeric(cPageNo) Then cPageNo = 1
  206. cPageNo = Clng(cPageNo)
  207. If cPageNo<=0 Then cPageNo=1
  208. If cPageNo>DebateRs.PageCount Then cPageNo=DebateRs.PageCount 
  209. DebateRs.AbsolutePage=cPageNo
  210. End if
  211. for i=0 to int_RPP
  212. if DebateRs.eof then exit for
  213. AppointUserNumber=DebateRs("AppointUserNumber")
  214. AppointUserGroup=DebateRs("AppointUserGroup")
  215. if AppointUserNumber<>"" then
  216. if instr(AppointUserNumber,Session("FS_UserNumber"))=0 then
  217. Response.Write("<tr height='20' class='hback'>")
  218. Response.Write("<td width='3%' align=""Center""><img src=""images/GroupTopic.gif""></td>")
  219. Response.Write("<td align='left'>该贴被作者隐藏</td>"&Chr(10)&chr(13))
  220. Response.Write("</tr>")
  221. else
  222. Response.Write("<tr height='20' class='hback'>")
  223. Response.Write("<td width='3%' align=""Center""><img src=""images/GroupTopic.gif""></td>")
  224. Response.Write("<td align='left'><a href='Debate_unit.asp?DebateID="&DebateRs("DebateID")&"&gdid="&GroupID&"'>"&DebateRs("title")&"</a></td>"&Chr(10)&chr(13))
  225. Response.Write("</tr>")
  226. end if
  227. elseif AppointUserGroup<>"" then
  228. if instr(AppointUserGroup,Session("FS_Group"))=0 then
  229. Response.Write("<tr height='20' class='hback'>")
  230. Response.Write("<td width='3%' align=""Center""><img src=""images/GroupTopic.gif""></td>")
  231. Response.Write("<td align='left'>该贴被作者隐藏</td>"&Chr(10)&chr(13))
  232. Response.Write("</tr>")
  233. else
  234. Response.Write("<tr height='20' class='hback'>")
  235. Response.Write("<td width='3%' align=""Center""><img src=""images/GroupTopic.gif""></td>")
  236. Response.Write("<td align='left'><a href='Debate_unit.asp?DebateID="&DebateRs("DebateID")&"&gdid="&GroupID&"'>"&DebateRs("title")&"</a></td>"&Chr(10)&chr(13))
  237. Response.Write("</tr>")
  238. end if
  239. else
  240. Response.Write("<tr height='20' class='hback'>")
  241. Response.Write("<td width='3%' align=""Center""><img src=""images/GroupTopic.gif""></td>")
  242. Response.Write("<td align='left'><a href='Debate_unit.asp?DebateID="&DebateRs("DebateID")&"&gdid="&GroupID&"'>"&DebateRs("title")&"</a></td>"&Chr(10)&chr(13))
  243. Response.Write("</tr>")
  244. end if
  245. DebateRs.movenext
  246. next
  247. Response.Write("</table>"&Chr(10)&chr(13))
  248. Response.Write("</td></tr>"&Chr(10)&chr(13))
  250.   %>
  251.   <%
  252. Response.Write("<tr>"&vbcrlf)
  253. Response.Write("<td align='right' colspan='5'  class=""hback"">"&fPageCount(DebateRs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)&"</td>"&vbcrlf)
  254. Response.Write("</tr>"&vbcrlf)
  255. %>
  256.           </table></td> 
  257.         </tr> 
  258.       </table></td> 
  259.   </tr> 
  260.   <tr class="back"> 
  261.     <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  262.         <!--#include file="Copyright.asp" --> 
  263.       </div></td> 
  264.   </tr> 
  265. </table> 
  266. </body>
  267. </html>
  268. <%
  269. GroupRs.close
  270. DebateRs.close
  271. Set GroupRs=nothing
  272. Set DebateRs=nothing
  273. Set User_Conn=nothing
  274. Set Fs_User = Nothing
  275. %>
  276. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->