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

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

数据库编程

开发平台：

ASP/ASPX

Group.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=8'设置每页显示数目
  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",User_Conn,1,1
  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="hback_1"> 
  52.                 <td height="26"><a href="GroupClass.asp?Act=Add">创建社群</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='MyGroup.asp?userNumber=<%=session("FS_UserNumber")%>'>我的社群</a></td> 
  53.               </tr>
  54.               <%
  55. If Not GroupRs.eof then
  56. '分页使用-----------------------------------
  57. GroupRs.PageSize=int_RPP
  58. cPageNo=NoSqlHack(Request.QueryString("page"))
  59. If cPageNo="" Then cPageNo = 1
  60. If not isnumeric(cPageNo) Then cPageNo = 1
  61. cPageNo = Clng(cPageNo)
  62. If cPageNo>GroupRs.PageCount Then cPageNo=GroupRs.PageCount 
  63. If cPageNo<=0 Then cPageNo=1
  64. GroupRs.AbsolutePage=cPageNo
  65. End if
  66. for i=0 to int_RPP
  67. if GroupRs.eof then exit for
  68. '-------------------------------------
  69. GroupID=GroupRs("gdID")
  70. GroupName=GroupRs("title")
  71. CroupContent=GroupRs("content")
  72. InfoType=GroupRs("InfoType")
  73. ClassType=GroupRs("ClassType")
  74. AddTime=GroupRs("AddTime")
  75. GroupCreater=GroupRs("UserNumber")
  76. GroupManager=GroupRs("AdminName")
  77. isSys=GroupRs("isSys")
  78. hits=GroupRs("hits")
  79. GroupMembers=GroupRs("ClassMember")
  80. '----------------------获得管理员------------------
  81. GroupManagerArray=split(GroupManager,",")
  82. GroupManager=""
  83. for ForIndex=0 to ubound(GroupManagerArray)
  84. Set TempRs=User_Conn.execute("Select UserName from FS_ME_Users where UserNumber='"&GroupManagerArray(ForIndex)&"'")
  85. if not TempRs.eof then
  86. GroupManager=GroupManager&","&TempRs("UserName")
  87. end if
  88. next
  89. GroupManager=DelHeadAndEndDot(GroupManager)
  90. '-------------获得创建人-------------------------------
  91. if isSys=1 then
  92. GroupCreater="管理员"
  93. else
  94. Set TempRs=User_Conn.execute("Select UserName from FS_ME_Users where UserNumber='"&GroupCreater&"'")
  95. if not TempRs.eof then
  96. GroupCreater=TempRs("UserName")
  97. end if
  98. end if
  99. '-----------------获得社群所属行业----------------------
  100. Set TempRs=User_Conn.execute("select vClassName from FS_ME_VocationClass where vcid="&ClassType)
  101. if not TempRs.eof then
  102. ClassType=TempRs("vClassName")
  103. else
  104. ClassType="其他"
  105. end if
  106. '-----------------获得社群成员数----------------------
  107. if GroupMembers<>"" then
  108. GroupMembersArray=split(GroupMembers,",")
  109. end if
  110. '------------------------------------------
  111. Response.Write("<tr><td>")
  112. Response.Write("<table width='100%' height='60' border='0' cellpadding='1' cellspacing='1' class='table'>"&vbcrlf)
  113. Response.Write("<tr class='xingmu'><td colspan=10><a href='Group_unit.asp?GDID="&GroupID&"' class=""Top_Navi""><img src=""images/GroupUser.gif"" border=""0""/><strong>"&GroupName&"</strong></a></td></tr>"&vbcrlf)
  114. Response.Write("<tr height='20'>"&vbcrlf)
  115. Response.Write("<td align='center' class='hback'>现有成员</td>"&vbcrlf)
  116. Response.Write("<td class='hback' align='center' width='20%'>创建时间</td>"&vbcrlf)
  117. Response.Write("<td class='hback' align='center' width='12%'>创建人</td>"&vbcrlf)
  118. Response.Write("<td class='hback' align='center'>管理员</td>"&vbcrlf)
  119. Response.Write("<td class='hback' align='center'>所属行业</td>"&vbcrlf)
  120. Response.Write("</tr>"&vbcrlf)
  121. Response.Write("<tr>"&vbcrlf)
  122. if instr(GroupMembers,",")>0 then
  123. Response.Write("<td align='center' class='hback'>"&Ubound(GroupMembersArray)+1&"人</td>"&vbcrlf)
  124. else
  125. Response.Write("<td align='center' class='hback'>0人</td>"&vbcrlf)
  126. end if
  127. Response.Write("<td class='hback' align='center' width='20%'>"&Datevalue(AddTime)&"</td>"&vbcrlf)
  128. Response.Write("<td class='hback' align='center' width='12%'>"&GroupCreater&"</td>"&vbcrlf)
  129. Response.Write("<td class='hback' align='center'>"&GroupManager&"</td>"&vbcrlf)
  130. Response.Write("<td class='hback' align='center'>"&ClassType&"</td>"&vbcrlf)
  131. Response.Write("</tr>"&vbcrlf)
  132. Response.Write("<tr height='40'>"&vbcrlf)
  133. Response.Write("<td class='hback' colspan=5><img src=""images/GroupNews.gif""/>："&CroupContent&"</td>"&vbcrlf)
  134. Response.Write("</tr>"&vbcrlf)
  135. Response.Write("</table>")
  136. Response.Write("</td></tr>")
  137. GroupRs.movenext
  138. next
  139.   %>
  140.   <%
  141. Response.Write("<tr>"&vbcrlf)
  142. 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)
  143. Response.Write("</tr>"&vbcrlf)
  144. %>
  145.             </table></td> 
  146.           <td width="32%" valign="top"> <table width="98%"  border="0" align="center" cellpadding="1" cellspacing="1" class="table"> 
  147.               <tr> 
  148.                 <td height="27" class="xingmu"><span class="bigtitle"><strong>·热门社群</strong></span></td> 
  149.               </tr> 
  150. <%
  151. HotGroupNumber=5
  152. Set TempRs=User_Conn.execute("Select gdID,title from FS_ME_GroupDebateManage order by hits desc")
  153. for ForIndex=0 to HotGroupNumber
  154. if TempRs.eof then exit for
  155. Response.Write("<tr class='hback'>"&vbcrlf)
  156. 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)
  157. Response.Write("</tr>"&vbcrlf)
  158. TempRs.movenext
  159. next
  160. %>
  161.             </table> 
  162.             <table width="98%"  border="0" align="center" cellpadding="3" cellspacing="1" class="table"> 
  163.               <tr> 
  164.                 <td width="50%" height="27"  class="xingmu"><span class="bigtitle"><strong>·社群排行</strong></span></td> 
  165.               </tr> 
  166.   <%
  167. ForwardNumber=5
  168. Set TempRs=User_Conn.execute("Select gdID,title from FS_ME_GroupDebateManage order by ClassMemberNum desc")
  169. for ForIndex=0 to ForwardNumber
  170. if TempRs.eof then exit for
  171. Response.Write("<tr class='hback'>"&vbcrlf)
  172. 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)
  173. Response.Write("</tr>"&vbcrlf)
  174. TempRs.movenext
  175. next
  176.   %>
  177.             </table> 
  178.             <table width="98%" height="124" border="0" align="center" cellpadding="3" cellspacing="1" class="table"> 
  179.               <tr> 
  180.                 <td width="50%" height="27"  class="xingmu"><span class="bigtitle"><strong>·社群分类</strong></span></td> 
  181.               </tr> 
  182.               <tr> 
  183.                 <td height="94" valign="top" class="hback">新闻，下载，商品，房产，供求，求职，招聘，其它 </td> 
  184.               </tr> 
  185.             </table></td> 
  186.         </tr> 
  187.       </table></td> 
  188.   </tr> 
  189.   <tr class="back"> 
  190.     <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  191.         <!--#include file="Copyright.asp" --> 
  192.       </div></td> 
  193.   </tr> 
  194. </table> 
  195. </body>
  196. </html>
  197. <%
  198. Set GroupRs=nothing
  199. Set User_Conn=nothing
  200. Set TempRs=nothing
  201. Set Fs_User = Nothing
  202. %>
  203. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->