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

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

数据库编程

开发平台：

ASP/ASPX

Debate_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 DebateRs,GroupRs,DebateSubRs,DebateID,GroupID,UserRs,CroupContent,InfoType,ClassType,AddTime,PerPageNum,GroupCreater,GroupManager,isSys,hits,GroupMembers,GroupMembersArray,TempRs,HotGroupNumber,ForwardNumber,ForIndex,GroupManagerArray,AppointUserNumber,AppointUserGroup
  10. 'lz_usernumber 楼主用户编号,
  11. Dim lz_usernumber,creator,admin
  12. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo,i
  13. '---------------------------------分页定义
  14. int_RPP=15 '设置每页显示数目
  15. int_showNumberLink_=8 '数字导航显示数目
  16. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  17. str_nonLinkColor_="#999999" '非热链接颜色
  18. toF_="<font face=webdings title=""首页"">9</font>"   '首页 
  19. toP10_=" <font face=webdings title=""上十页"">7</font>" '上十
  20. toP1_=" <font face=webdings title=""上一页"">3</font>" '上一
  21. toN1_=" <font face=webdings title=""下一页"">4</font>" '下一
  22. toN10_=" <font face=webdings title=""下十页"">8</font>" '下十
  23. toL_="<font face=webdings title=""最后一页"">:</font>" '尾页
  24. '--------------------------------------------------
  26. DebateID=NoSqlHack(Request.QueryString("DebateID"))
  27. GroupID=NoSqlHack(Request.QueryString("gdID"))
  28. Set GroupRs=Server.CreateObject(G_FS_RS)
  29. Set DebateRs=Server.CreateObject(G_FS_RS)
  30. Set DebateSubRs=Server.CreateObject(G_FS_RS)
  31. Set UserRs=Server.CreateObject(G_FS_RS)
  33. GroupRs.open "select UserNumber,AdminName from FS_ME_GroupDebateManage where gdID="&GroupID,User_Conn,1,3
  34. if not GroupRs.eof then
  35. creator=GroupRs("UserNumber")
  36. admin=GroupRs("AdminName")
  37. End if
  38. DebateRs.open "select DebateID,title,content,ParentID,ClassID,UserNumber,AddTime,AppointUserNumber,AppointUserGroup,AddIP,AccessFile from FS_ME_GroupDebate  where DebateID="&DebateID,User_Conn,1,1
  40. DebateSubRs.open "select DebateID,title,content,ParentID,ClassID,UserNumber,AddTime,AppointUserNumber,AppointUserGroup,AddIP,AccessFile from FS_ME_GroupDebate  where ParentID="&DebateID,User_Conn,1,1
  42. Dim UserNumber,author,sHeadPic,HeadPicSize
  43. UserRs.open "Select UserNumber,UserName,HeadPic,HeadPicSize from FS_ME_Users where UserNumber='"&DebateRs("UserNumber")&"'",User_Conn,1,1
  44. author=""
  45. UserNumber=""
  46. sHeadPic=""
  47. HeadPicSize=""
  48. If Not UserRs.eof Then
  49. author=UserRs("UserName")
  50. UserNumber=UserRs("UserNumber")
  51. sHeadPic=UserRs("HeadPic")
  52. HeadPicSize=UserRs("HeadPicSize")
  53. End If
  54. If Trim(sHeadPic)="" Or IsNull(sHeadPic) Then
  55. sHeadPic="images/noHeadpic.gif"
  56. End If
  57. %>
  58. <html xmlns="http://www.w3.org/1999/xhtml">
  59. <head>
  60. <title>User Manage Center-网站内容管理系统</title>
  61. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  62. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  63. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  64. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  65. <link rel="stylesheet" href="lib/css/lightbox.css" type="text/css" media="screen" />
  66. <script type="text/javascript" src="../FS_INC/prototype.js"></script>
  67. <script type="text/javascript" src="lib/js/scriptaculous.js?load=effects"></script>
  68. <script type="text/javascript" src="lib/js/lightbox.js"></script>
  70. </head>
  71. <body onLoad="initLightbox()"> 
  72. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table"> 
  73.   <tr> 
  74.     <td> <!--#include file="top.asp" --> </td> 
  75.   </tr> 
  76. </table> 
  77. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table"> 
  78.   <tr class="back"> 
  79.     <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td> 
  80.   </tr> 
  81.   <tr class="back"> 
  82.     <td width="18%" valign="top" class="hback"> <div align="left"> 
  83.         <!--#include file="menu.asp" --> 
  84.       </div></td> 
  85.     <td width="82%" valign="top" class="hback"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> 
  86.         <tr> 
  87.           <td width="72%"  valign="top"> <table width="98%" height="112" border="0" align="center" cellpadding="3" cellspacing="1" class="table"> 
  88. <tr class="xingmu"> 
  89.                 <td height="33">&nbsp;&nbsp;&nbsp;
  90. <a href='GroupClass.asp?Act=Add'>创建社群</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  91. <a href='myGroup.asp?userNumber=<%=session("FS_UserNumber")%>'>我的社群</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  92. <a href='Group.asp'>社群首页</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  93. <a href='#'>社群帮助</a>
  94. </td> 
  95.               </tr>
  96.               <tr class="xingmu"> 
  97.                 <td height="33"><img src="images/GroupUser.gif"/><a href='Group_unit.asp?GDID=<%=DebateRs("classID")%>'><%=User_Conn.execute("select Title from FS_ME_GroupDebateManage where GDID="&DebateRs("classID"))(0)%></a></td> 
  98.               </tr>
  99.               <%
  101. '-------------------------------------------------社群讨论贴
  102. Response.Write("<tr class='xingmu'><td>"&Chr(10)&chr(13))
  103. Response.Write("<table width='100%' height='60' border='0' cellpadding='1' cellspacing='1' class='table'>"&Chr(10)&chr(13))
  105. Response.Write("<tr class='hback'><td align='left' colspan='7'>&nbsp;社群讨论</td><td align='center'><a href='Debate_Add.asp?act=new&ClassID="&DebateRs("classID")&"'><img src=""images/newDebate.gif"" border=""0""/>发表主题</a></td></tr>"&Chr(10)&chr(13))
  106. Response.Write("<tr height='20' class='hback'>"&Chr(10)&chr(13))
  107. Response.Write("<td width='3%'><img src=""images/GroupTopic.gif""></td>")
  108. Response.Write("<td align='left'><strong>"&DebateRs("title")&"</strong></td>"&Chr(10)&chr(13))
  109. Response.Write("<td align='right'>发表人：</td><td align='left'>"&author&"</td>")
  110. Response.Write("<td align='right'>发布时间：</td><td align='left'>"&DebateRs("AddTime")&"</td>")
  111. Response.Write("<td align=""center"">")
  112. lz_usernumber=DebateRs("UserNumber")
  113. if lz_usernumber=session("FS_UserNumber") then
  114. Response.Write("<a href='Debate_Add.asp?act=edit&classID="&DebateRs("ClassID")&"&DebateID="&DebateRs("DebateID")&"'>编辑</a>")
  115. end if
  116. if creator=session("FS_UserNumber") or instr(admin,session("FS_UserNumber"))>0 then
  117. Response.Write("&nbsp;|&nbsp;<a href=""#"" onClick=""if(confirm('确认进行删除操作')){location.href='Debate_action.asp?act=delete&classID="&DebateRs("ClassID")&"&DebateID="&DebateRs("DebateID")&"'}"">删除</a>")
  118. end if
  119. Response.Write("</td>")
  120. Response.Write("<td align=""center""><a href='Debate_Add.asp?act=revert&title="&DebateRs("title")&"&classID="&DebateRs("ClassID")&"&DebateID="&DebateRs("DebateID")&"'>参与讨论</a></td>")
  121. Response.Write("</tr>"&Chr(10)&chr(13))
  122. Response.Write("<tr height='30'><td colspan=8>"&Chr(10)&chr(13))
  123. Response.Write("<table width='100%' height='100' border='0' cellpadding='1' cellspacing='1' class='table'>"&Chr(10)&chr(13))
  124. Response.Write("<tr><td width=""80"" class=""hback""><img src="""&sHeadPic&""" width=""80"" height=""80""></td>")
  125. Response.Write("<td class='hback' align='left'><div>"&Encode(DebateRs("content"))&"</div>")
  126. If DebateRs("AccessFile")<>"" Then
  127. Response.write("<div><br><a href='"&DebateRs("AccessFile")&"' rel=""lightbox"" title="""&DebateRs("title")&"""><img src='"&DebateRs("AccessFile")&"' width='80' height='80' border=0/></a></div></td></tr>"&Chr(10)&chr(13))
  128. Else
  129. Response.write("</td></tr>"&Chr(10)&chr(13))
  130. End if
  131. Response.Write("</table>")
  132. Response.Write("</td></tr>")
  133. UserRs.close
  134. If Not DebateSubRs.eof then
  135. '分页使用-----------------------------------
  136. DebateSubRs.PageSize=int_RPP
  137. cPageNo=NoSqlHack(Request.QueryString("page"))
  138. If cPageNo="" Then cPageNo = 1
  139. If not isnumeric(cPageNo) Then cPageNo = 1
  140. cPageNo = Clng(cPageNo)
  141. If cPageNo>DebateSubRs.PageCount Then cPageNo=DebateSubRs.PageCount 
  142. If cPageNo<=0 Then cPageNo=1
  143. DebateSubRs.AbsolutePage=cPageNo
  144. End if
  145. for i=0 to int_RPP
  146. if DebateSubRs.eof then exit For
  147. if not DebateSubRs.eof then 
  148. Set UserRs=User_Conn.execute("Select UserNumber,UserName,HeadPic,HeadPicSize from FS_ME_Users where UserNumber='"&DebateSubRs("UserNumber")&"'")
  149. end If
  150. If Not UserRs.eof Then
  151. author=UserRs("UserName")
  152. UserNumber=UserRs("UserNumber")
  153. sHeadPic=UserRs("HeadPic")
  154. HeadPicSize=UserRs("HeadPicSize")
  155. End If
  156. AppointUserNumber=DebateSubRs("AppointUserNumber")
  157. AppointUserGroup=DebateSubRs("AppointUserGroup")
  158. Response.Write("<tr height='20' class='hback'>"&Chr(10)&chr(13))
  159. Response.Write("<td width='3%'><img src=""images/Groupreplay.gif""></td>")
  160. Response.Write("<td align='left'><strong>"&DebateSubRs("title")&"</strong></td>"&Chr(10)&chr(13))
  161. Response.Write("<td align='right'>发表人：</td><td lign='left'>"&author&"</td>")
  162. Response.Write("<td align='right'>发布时间：</td><td lign='left'>"&DebateSubRs("AddTime")&"</td>")
  163. Response.Write("<td align=""center"">")
  164. if DebateSubRs("UserNumber")=session("FS_UserNumber") then
  165. Response.Write("<a href='Debate_Add.asp?act=edit&classID="&DebateSubRs("ClassID")&"&DebateID="&DebateSubRs("DebateID")&"'>编辑</a>")
  166. end if
  167. if creator=session("FS_UserNumber") or instr(admin,session("FS_UserNumber"))>0 then
  168. Response.Write("&nbsp;|&nbsp;<a href=""#"" onClick=""if(confirm('确认进行删除操作')){location.href='Debate_action.asp?act=delete&classID="&DebateSubRs("ClassID")&"&DebateID="&DebateSubRs("DebateID")&"'}"">删除</a>")
  169. end if
  170. Response.Write("</td>")
  171. Response.Write("<td>&nbsp;</td>")
  172. Response.Write("</tr>")
  173. Response.Write("<tr height='30'><td  colspan=8>"&Chr(10)&chr(13))
  174. Response.Write("<table width='100%' height='100' border='0' cellpadding='1' cellspacing='1' class='table'>"&Chr(10)&chr(13))
  175. Response.Write("<tr><td width='80' class='hback' aling='center' valign='middle'><img src='"&sHeadPic&"' width='80' height='80'></td>")
  176. if AppointUserNumber<>"" then
  177. if instr(AppointUserNumber,Session("FS_UserNumber"))=0 then
  178. Response.Write("<td class='hback'>该贴已被作者隐藏</td></tr>"&Chr(10)&chr(13))
  179. else
  180. Response.Write("<td class='hback'><div>"&Encode(DebateSubRs("content"))&"</div>")
  181. If DebateSubRs("AccessFile")<>"" Then
  182. Response.write("<div><br><a href='"&DebateSubRs("AccessFile")&"' rel=""lightbox"" title="""&DebateSubRs("title")&"""><img src='"&DebateSubRs("AccessFile")&"' width='80' height='80' border='0'/></a></div></td></tr>"&Chr(10)&chr(13))
  183. Else
  184. Response.write("</td></tr>"&Chr(10)&chr(13))
  185. End If
  186. End if
  187. elseif AppointUserGroup<>"" Then
  188. if instr(AppointUserGroup,Session("FS_Group"))=0 then
  189. Response.Write("<td class='hback'>该贴已被作者隐藏</td></tr>"&Chr(10)&chr(13))
  190. else
  191. Response.Write("<td class='hback'><div>"&Encode(DebateSubRs("content"))&"</div>")
  192. If DebateSubRs("AccessFile")<>"" Then
  193. Response.write("<div><br><a href='"&DebateSubRs("AccessFile")&"' rel=""lightbox"" title="""&DebateSubRs("title")&"""><img src='"&DebateSubRs("AccessFile")&"' width='80' height='80' border='0'/></a></div></td></tr>"&Chr(10)&chr(13))
  194. Else
  195. Response.write("</td></tr>"&Chr(10)&chr(13))
  196. End If
  197. End if
  198. else
  199. Response.Write("<td class='hback'><div>"&Encode(DebateSubRs("content"))&"</div>")
  200. If DebateSubRs("AccessFile")<>"" Then
  201. Response.write("<div><br><a href="""&DebateSubRs("AccessFile")&""" rel=""lightbox"" title="""&DebateSubRs("title")&"""><img src='"&DebateSubRs("AccessFile")&"' width='80' height='80' border='0'/></a></div></td></tr>"&Chr(10)&chr(13))
  202. Else
  203. Response.write("</td></tr>"&Chr(10)&chr(13))
  204. End if
  205. end if
  206. Response.Write("</table>")
  207. Response.Write("</td></tr>")
  208. DebateSubRs.movenext
  209. next
  210. Response.Write("</table>"&Chr(10)&chr(13))
  211. Response.Write("</td></tr>"&Chr(10)&chr(13))
  213.   %>
  214. <%
  215. Response.Write("<tr>"&vbcrlf)
  216. Response.Write("<td align='right' colspan='5'  class=""hback"">"&fPageCount(DebateSubRs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)&"</td>"&vbcrlf)
  217. Response.Write("</tr>"&vbcrlf)
  218. %>
  219.           </table></td> 
  220.         </tr> 
  221.       </table></td> 
  222.   </tr> 
  223.   <tr class="back"> 
  224.     <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  225.         <!--#include file="Copyright.asp" --> 
  226.       </div></td> 
  227.   </tr> 
  228. </table> 
  229. </body>
  230. </html>
  231. <%
  232. Set UserRs=nothing
  233. Set DebateRs=nothing
  234. Set DebateSubRs=nothing
  235. Set User_Conn=nothing
  236. Set Fs_User = Nothing
  237. %>
  238. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->