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

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

数据库编程

开发平台：

ASP/ASPX

MyGroup.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. <%
  10. Dim GroupRs,GroupID,GroupName,CroupContent,InfoType,ClassType,AddTime,GroupCreater,GroupManager,isSys,hits,GroupMembers,GroupMembersArray,TempRs,HotGroupNumber,ForwardNumber,ForIndex,GroupManagerArray
  11. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo,i
  12. '---------------------------------分页定义
  13. int_RPP=15 '设置每页显示数目
  14. int_showNumberLink_=8 '数字导航显示数目
  15. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  16. str_nonLinkColor_="#999999" '非热链接颜色
  17. toF_="<font face=webdings title=""首页"">9</font>"   '首页 
  18. toP10_=" <font face=webdings title=""上十页"">7</font>" '上十
  19. toP1_=" <font face=webdings title=""上一页"">3</font>" '上一
  20. toN1_=" <font face=webdings title=""下一页"">4</font>" '下一
  21. toN10_=" <font face=webdings title=""下十页"">8</font>" '下十
  22. toL_="<font face=webdings title=""最后一页"">:</font>" '尾页
  23. '--------------------------------------------------
  24. Set GroupRs=Server.CreateObject(G_FS_RS)
  25. GroupRs.open "select gdID,title,content,InfoType,ClassType,AddTime,UserNumber,AdminName,ClassMember,isSys,hits from FS_ME_GroupDebateManage where UserNumber like '"&session("FS_Usernumber")&"'",User_Conn,1,3
  26. %>
  27. <html xmlns="http://www.w3.org/1999/xhtml">
  28. <title>User Manage Center-网站内容管理系统</title>
  29. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  30. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  31. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  32. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  33. <head></head>
  34. <body> 
  35. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table"> 
  36.   <tr> 
  37.     <td> <!--#include file="top.asp" --> </td> 
  38.   </tr> 
  39. </table> 
  40. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table"> 
  41.   <tr class="back"> 
  42.     <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td> 
  43.   </tr> 
  44.   <tr class="back"> 
  45.     <td width="18%" valign="top" class="hback"> <div align="left"> 
  46.         <!--#include file="menu.asp" --> 
  47.       </div></td> 
  48.     <td width="82%" valign="top" class="hback"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> 
  49.         <tr> 
  50.           <td width="72%"  valign="top"> <table width="98%" height="112" border="0" align="center" cellpadding="3" cellspacing="1" class="table"> 
  51.               <tr class="xingmu"> 
  52.                 <td height="33">&nbsp;&nbsp;&nbsp;
  53. <a href='#'>创建社群</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  54. <a href='myGroup.asp?userNumber=<%=session("FS_UserNumber")%>'>我的社群</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  55. <a href='Group.asp'>社群首页</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  56. <a href='#'>社群帮助</a>
  57. </td> 
  58.               </tr>
  59.               <%
  60. If Not GroupRs.eof then
  61. '分页使用-----------------------------------
  62. GroupRs.PageSize=int_RPP
  63. cPageNo=NoSqlHack(Request.QueryString("page"))
  64. If cPageNo="" Then cPageNo = 1
  65. If not isnumeric(cPageNo) Then cPageNo = 1
  66. cPageNo = Clng(cPageNo)
  67. If cPageNo<=0 Then cPageNo=1
  68. If cPageNo>GroupRs.PageCount Then cPageNo=GroupRs.PageCount 
  69. GroupRs.AbsolutePage=cPageNo
  70. End if
  71. for i=0 to int_RPP
  72. if GroupRs.eof then exit for
  73. '-------------------------------------
  74. GroupID=GroupRs("gdID")
  75. GroupName=GroupRs("title")
  76. CroupContent=GroupRs("content")
  77. InfoType=GroupRs("InfoType")
  78. ClassType=GroupRs("ClassType")
  79. AddTime=GroupRs("AddTime")
  80. GroupCreater=GroupRs("UserNumber")
  81. GroupManager=GroupRs("AdminName")
  82. isSys=GroupRs("isSys")
  83. hits=GroupRs("hits")
  84. GroupMembers=GroupRs("ClassMember")
  85. '----------------------获得管理员------------------
  86. GroupManagerArray=split(GroupManager,",")
  87. GroupManager=""
  88. for ForIndex=0 to ubound(GroupManagerArray)
  89. Set TempRs=User_Conn.execute("Select UserName from FS_ME_Users where UserNumber='"&GroupManagerArray(ForIndex)&"'")
  90. if not TempRs.eof then
  91. GroupManager=GroupManager&","&TempRs("UserName")
  92. end if
  93. next
  94. GroupManager=DelHeadAndEndDot(GroupManager)
  95. '-------------获得创建人-------------------------------
  96. if isSys=1 then
  97. GroupCreater="管理员"
  98. else
  99. Set TempRs=User_Conn.execute("Select UserName from FS_ME_Users where UserNumber='"&GroupCreater&"'")
  100. if not TempRs.eof then
  101. GroupCreater=TempRs("UserName")
  102. end if
  103. end if
  104. '-----------------获得社群所属行业----------------------
  105. Set TempRs=User_Conn.execute("select vClassName from FS_ME_VocationClass where vcid="&ClassType)
  106. if not TempRs.eof then
  107. ClassType=TempRs("vClassName")
  108. else
  109. ClassType="其他"
  110. end if
  111. '-----------------获得社群成员数----------------------
  112. if GroupMembers<>"" then
  113. GroupMembersArray=split(GroupMembers,",")
  114. end if
  115. '------------------------------------------
  116. Response.Write("<tr><td>")
  117. Response.Write("<table width='100%' height='60' border='0' cellpadding='1' cellspacing='1' class='table'>"&vbcrlf)
  118. Response.Write("<tr class='xingmu'><td colspan=10><a href='Group_unit.asp?GDID="&GroupID&"'><img src=""images/GroupUser.gif"" border=""0""/><strong> "&GroupName&"</strong></a></td></tr>"&vbcrlf)
  119. Response.Write("<tr height='20'>"&vbcrlf)
  120. Response.Write("<td align='center' class='hback'>现有成员</td>"&vbcrlf)
  121. Response.Write("<td class='hback' align='center' width='20%'>创建时间</td>"&vbcrlf)
  122. Response.Write("<td class='hback' align='center' width='12%'>创建人</td>"&vbcrlf)
  123. Response.Write("<td class='hback' align='center'>管理员</td>"&vbcrlf)
  124. Response.Write("<td class='hback' align='center'>所属行业</td>"&vbcrlf)
  125. Response.Write("</tr>"&vbcrlf)
  126. Response.Write("<tr>"&vbcrlf)
  127. if instr(GroupMembers,",")>0 then
  128. Response.Write("<td align='center' class='hback'>"&Ubound(GroupMembersArray)&"人</td>"&vbcrlf)
  129. else
  130. Response.Write("<td align='center' class='hback'>0人</td>"&vbcrlf)
  131. end if
  132. Response.Write("<td class='hback' align='center' width='20%'>"&Datevalue(AddTime)&"</td>"&vbcrlf)
  133. Response.Write("<td class='hback' align='center' width='12%'>"&GroupCreater&"</td>"&vbcrlf)
  134. Response.Write("<td class='hback' align='center'>"&GroupManager&"</td>"&vbcrlf)
  135. Response.Write("<td class='hback' align='center'>"&ClassType&"</td>"&vbcrlf)
  136. Response.Write("</tr>"&vbcrlf)
  137. Response.Write("<tr height='40'>"&vbcrlf)
  138. Response.Write("<td class='hback' colspan=5><img src=""images/GroupNews.gif""/>"&CroupContent&"</td>"&vbcrlf)
  139. Response.Write("</tr>"&vbcrlf)
  140. Response.Write("</table>")
  141. Response.Write("</td></tr>")
  142. GroupRs.movenext
  143. next
  144.   %>
  145.   <%
  146. Response.Write("<tr>"&vbcrlf)
  147. Response.Write("<td align='right' colspan='5'  class=""hback"">"&fPageCount(GroupRs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)&"</td>"&vbcrlf)
  148. Response.Write("</tr>"&vbcrlf)
  149. %>
  150.             </table></td> 
  151.           <td width="32%" valign="top"> <table width="98%"  border="0" align="center" cellpadding="1" cellspacing="1" class="table"> 
  152.               <tr> 
  153.                 <td height="27" class="xingmu"><span class="bigtitle"><strong>·热门社群</strong></span></td> 
  154.               </tr> 
  155. <%
  156. HotGroupNumber=5
  157. Set TempRs=User_Conn.execute("Select gdID,title from FS_ME_GroupDebateManage order by hits desc")
  158. for ForIndex=0 to HotGroupNumber
  159. if TempRs.eof then exit for
  160. Response.Write("<tr class='hback'>"&vbcrlf)
  161. Response.Write("<td  valign='top' align='left' height='20'>&nbsp;"&ForIndex+1&".<a href='Group_unit.asp?GDID="&TempRs("gdID")&"'>"&TempRs("title")&"</a></td>"&vbcrlf)
  162. Response.Write("</tr>"&vbcrlf)
  163. TempRs.movenext
  164. next
  165. %>
  166.             </table> 
  167.             <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table"> 
  168.               <tr> 
  169.                 <td width="50%" height="27"  class="xingmu"><span class="bigtitle"><strong>·社群排行</strong></span></td> 
  170.               </tr> 
  171.   <%
  172. ForwardNumber=5
  173. Set TempRs=User_Conn.execute("Select gdID,title from FS_ME_GroupDebateManage order by ClassMemberNum desc")
  174. for ForIndex=0 to ForwardNumber
  175. if TempRs.eof then exit for
  176. Response.Write("<tr class='hback'>"&vbcrlf)
  177. Response.Write("<td  valign='top' align='left' height='20'>&nbsp;"&ForIndex+1&".<a href='Group_unit.asp?GDID="&TempRs("gdID")&"'>"&TempRs("title")&"</a></td>"&vbcrlf)
  178. Response.Write("</tr>"&vbcrlf)
  179. TempRs.movenext
  180. next
  181.   %>
  182.             </table> 
  183.             <table width="98%" height="124" border="0" align="center" cellpadding="3" cellspacing="1" class="table"> 
  184.               <tr> 
  185.                 <td width="50%" height="27"  class="xingmu"><span class="bigtitle"><strong>·社群分类</strong></span></td> 
  186.               </tr> 
  187.               <tr> 
  188.                 <td height="94" valign="top" class="hback">新闻，下载，商品，房产，供求，求职，招聘，其它 </td> 
  189.               </tr> 
  190.             </table></td> 
  191.         </tr> 
  192.       </table></td> 
  193.   </tr> 
  194.   <tr class="back"> 
  195.     <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  196.         <!--#include file="Copyright.asp" --> 
  197.       </div></td> 
  198.   </tr> 
  199. </table> 
  200. </body>
  201. </html>
  202. <%
  203. Set GroupRs=nothing
  204. Set User_Conn=nothing
  205. Set TempRs=nothing
  206. Set Fs_User = Nothing
  207. %>
  208. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->