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

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

数据库编程

开发平台：

ASP/ASPX

News_Recyle.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_Inc/Function.asp"-->
  4. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  5. <!--#include file="../../FS_InterFace/NS_Function.asp" -->
  6. <!--#include file="../../FS_Inc/Func_page.asp" -->
  7. <!--#include file="lib/cls_main.asp" -->
  8. <%'Copyright (c) 2006 Foosun Inc. Code by 邓西
  9. response.buffer=true
  10. Response.CacheControl = "no-cache"
  11. Dim Conn,User_Conn,Fs_News
  12. MF_Default_Conn
  13. MF_Session_TF 
  14. '权限判断
  15. 'Call MF_Check_Pop_TF("NS_Class_000001")
  16. Dim Recyle_Type,Rec_Table_Style,strShowErr
  17. Dim Re_Sql_Str,Re_Temp,Re_ClassRecordset,Re_Temp_IsURL,Re_Class_Flag,Re_News_Flag
  18. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_
  19. Dim Page,cPageNo,fso_tmprs_,NewsSavePath
  20. Recyle_Type=Request.QueryString("Recyle_Type")
  21. Re_Class_Flag=False
  22. Re_News_Flag=False
  24. int_RPP=30 '设置每页显示数目
  25. int_showNumberLink_=8 '数字导航显示数目
  26. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  27. str_nonLinkColor_="#999999" '非热链接颜色
  28. toF_="<font face=webdings title=""首页"">9</font>"   '首页 
  29. toP10_=" <font face=webdings title=""上十页"">7</font>" '上十
  30. toP1_=" <font face=webdings title=""上一页"">3</font>" '上一
  31. toN1_=" <font face=webdings title=""下一页"">4</font>" '下一
  32. toN10_=" <font face=webdings title=""下十页"">8</font>" '下十
  33. toL_="<font face=webdings title=""最后一页"">:</font>" '尾页
  34. set Fs_News=new Cls_News
  35. %>
  36. <html>
  37. <head>
  38. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  39. <title>专题管理___Powered by foosun Inc.</title>
  40. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  41. </head>
  42. <body>
  43. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  44. <tr class="hback">
  45. <td class="xingmu"><a href="#" onMouseOver="this.T_BGCOLOR='#404040';this.T_FONTCOLOR='#FFFFFF';return escape('<div align='center'>FoosunCMS4.0<br> Code by 邓西 <BR>Copyright (c) 2006 Foosun Inc</div>')" class="sd"><strong>回收站管理</strong></a></td>
  46. </tr>
  47. <tr>
  48. <td width="100%" height="18" class="hback">
  49. <div align="left"> <a href="News_Recyle.asp">管理首页</a> | <a href="News_Recyle.asp?Recyle_Type=Class">栏目管理</a> | <a href="News_Recyle.asp?Recyle_Type=News">新闻管理</a> | <a href="News_Recyle.asp?Recyle_Type=DelAll">操作</a></div>
  50. </td>
  51. </tr>
  52. </table>
  53. <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table" id="Rec_Class" style="display:none">
  54. <form name="for_Re_ClassOPType" method="post" action="?Recyle_Type=Class&Rec_OP_Class_Type=P">
  55. <tr class="xingmu">
  56. <input name="Hi_Re_OP_Class_Type" type="hidden" value="">
  57. <td height="20" class="xingmu" width="24%">
  58. <div align="center">栏目中文</div>
  59. </td>
  60. <td class="xingmu" width="24%">
  61. <div align="center">父栏目</div>
  62. </td>
  63. <td class="xingmu" width="15%">
  64. <div align="center">栏目类型</div>
  65. </td>
  66. <td class="xingmu" width="15%">
  67. <div align="center">新闻数</div>
  68. </td>
  69. <td class="xingmu" width="20%">
  70. <div align="center">操作</div>
  71. </td>
  72. </tr>
  73. <%
  74. If Recyle_Type="Class" then
  75. Dim Recyle_OP,Resume_Sql_Str,Resume_ClassID,Resume_Rs,ReCyle_Action,Re_Class_OPType,Re_Class_I,Re_Class_P_Flag
  76. Recyle_OP=Cstr(Request.QueryString("Recyle_OP"))
  77. Resume_ClassID=Cstr(Replace(Request.QueryString("ClassID"),"'",""))
  78. Re_Class_OPType=Cstr(Request.QueryString("Rec_OP_Class_Type"))
  79. If Re_Class_OPType="P" Then
  80. Dim Re_Class_Temp_OPType,Re_Class_Temp_ID
  81. Re_Class_Temp_OPType=Cstr(Request.Form("Hi_Re_OP_Class_Type"))
  82. Re_Class_Temp_ID=Request.Form("Che_ClassOPType")
  83. If Re_Class_Temp_ID="" or IsNull(Re_Class_Temp_ID) Then
  84. strShowErr = "<li>请选择要批量操作的内容!</li>"
  85. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  86. Response.end
  87. End If
  88. If instr(Re_Class_Temp_ID,",")=0 Then
  89. Re_Class_Temp_ID=Cstr(trim(Re_Class_Temp_ID))
  90. Re_Class_P_Flag=True
  91. Else
  92. Re_Class_Temp_ID=Split(Re_Class_Temp_ID,",")
  93. int_arr_Class_ub=Ubound(Re_Class_Temp_ID)+1
  94. Re_Class_P_Flag=False
  95. End If
  96. Select Case Re_Class_Temp_OPType
  97. Case "P_Class_Del"
  98. If Re_Class_P_Flag=True Then
  99. Recyle_DelClassID(Re_Class_Temp_ID)
  100. strShowErr = "<li>批量删除成功</li>"
  101. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  102. Response.end
  103. Else
  104. For Re_Class_I=0 To Ubound(Re_Class_Temp_ID)
  105. Recyle_DelClassID(Cstr(Trim(Re_Class_Temp_ID(Re_Class_I))))
  106. Next
  107. strShowErr = "<li>批量删除成功</li>"
  108. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  109. Response.end
  110. End If
  111. Case "P_Class_Resmue"
  112. Dim obj_Ser_ParendID_Rs,str_Ser_Par_Sql,int_Class_Count,int_Class_Error_Count,int_arr_Class_ub
  113. If Re_Class_P_Flag=True Then
  114. str_Ser_Par_Sql="Select ClassID from FS_NS_NewsClass Where ParentID in(Select ClassID from FS_NS_NewsClass Where ReycleTF=1) and ClassID='"&Re_Class_Temp_ID&"'"
  115. Set obj_Ser_ParendID_Rs=Conn.execute(str_Ser_Par_Sql)
  116. If Not obj_Ser_ParendID_Rs.Eof Then
  117. strShowErr = "<li>当前栏目的父栏目在回收站中，请先恢复父栏目!</li>"
  118. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  119. Response.end
  120. Else
  121. Conn.execute("Update FS_NS_NewsClass Set ReycleTF=0 Where ClassID='"&Re_Class_Temp_ID&"'")
  122. strShowErr = "<li>恢复成功!</li>"
  123. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  124. Response.end
  125. End If 
  126. Set obj_Ser_ParendID_Rs=Nothing
  127. Else
  128. Re_Class_Temp_ID=Split(Serch_ClassID(Re_Class_Temp_ID),",")
  129. For Re_Class_I=0 To Ubound(Re_Class_Temp_ID)
  130. Conn.execute("Update FS_NS_NewsClass Set ReycleTF=0 Where ClassID='"&Cstr(trim(Re_Class_Temp_ID(Re_Class_I)))&"'")
  131. Next
  132. strShowErr = "<li>选中"&int_arr_Class_ub&"条,已恢复"&Ubound(Re_Class_Temp_ID)&",失败"&int_arr_Class_ub-Ubound(Re_Class_Temp_ID)&"条</li>"
  133. strShowErr = strShowErr&"<li>恢复成功!</li>"
  134. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  135. Response.end
  136. End If
  137. End Select
  138. End If
  140. If Recyle_OP="ResumeClass" then
  141. Resume_Sql_Str="Select ClassID from FS_NS_NewsClass Where ParentID in(Select ClassID from FS_NS_NewsClass Where ReycleTF=1) and ClassID='"&Resume_ClassID&"'"
  142. Set Resume_Rs=Conn.execute(Resume_Sql_Str)
  143. If Not Resume_Rs.Eof Then
  144. strShowErr = "<li>当前栏目的父栏目在回收站中，请先恢复父栏目!</li>"
  145. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  146. Response.end
  147. Else
  148. Conn.execute("Update FS_NS_NewsClass Set ReycleTF=0 Where ClassID='"&Resume_ClassID&"'")
  149. strShowErr = "<li>恢复成功!</li>"
  150. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  151. Response.end
  152. End if
  153. Set Resume_Rs=Nothing
  154. End if
  155. ReCyle_Action=Request.QueryString("Action")
  156. If ReCyle_Action="Submit" Then
  157. Recyle_DelClassID(Resume_ClassID)
  158. strShowErr = "<li>删除成功!</li>"
  159. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  160. Response.end
  161. End if
  162. Re_Sql_Str="Select ClassID,ClassName,IsURL from FS_NS_NewsClass where ReycleTF=1 order by parentID Asc"
  163. Set Re_ClassRecordset= CreateObject(G_FS_RS)
  164. Re_ClassRecordset.Open Re_Sql_Str,Conn,1,1
  165. If Not Re_ClassRecordset.Eof Then
  166. Re_Class_Flag=True
  168. Re_ClassRecordset.PageSize=int_RPP
  169. cPageNo=NoSqlHack(Request.QueryString("page"))
  170. If cPageNo="" Then cPageNo = 1
  171. If not isnumeric(cPageNo) Then cPageNo = 1
  172. cPageNo = Clng(cPageNo)
  173. If cPageNo<=0 Then cPageNo=1
  174. If cPageNo>Re_ClassRecordset.PageCount Then cPageNo=Re_ClassRecordset.PageCount 
  175. Re_ClassRecordset.AbsolutePage=cPageNo
  177. For int_Start=1 TO int_RPP  
  178. Re_Temp_IsURL=Re_ClassRecordset("IsURL")
  179. If Re_Temp_IsURL=0 Then
  180. Re_Temp_IsURL="内部栏目"
  181. Else
  182. Re_Temp_IsURL="外部栏目"
  183. End if
  184. %>
  185. <tr class="hback">
  186. <td height="22" class="hback" align=center><%=Re_ClassRecordset("ClassName")%></td>
  187. <%
  188. Dim Re_Sql_ParName,Re_Rs_ParName,Re_Temp_Parname
  189. Re_Sql_ParName="Select ClassName from FS_NS_NewsClass where ClassID in(Select ParentID from FS_NS_NewsClass where ClassID='"&Re_ClassRecordset("ClassID")&"')"
  190. Set Re_Rs_ParName=Conn.execute(Re_Sql_ParName)
  191. If not Re_Rs_ParName.Eof Then
  192. Re_Temp_Parname=Re_Rs_ParName("ClassName")
  193. If Re_Temp_Parname="0" then Re_Temp_Parname="顶级栏目"
  194. Else
  195. Re_Temp_Parname="顶级栏目"
  196. End if
  197. Set Re_Rs_ParName =Nothing
  198. %>
  199. <td align="center" class="hback"><%=Re_Temp_Parname%></td>
  200. <td align="center" class="hback"><%=Re_Temp_IsURL%></td>
  201. <td align="center" class="hback"><%=Conn.execute("Select Count(*) from FS_NS_News Where ClassID='"&Re_ClassRecordset("ClassID")&"'")(0)%></td>
  202. <td class="hback" align=center><a href ="?Recyle_Type=Class&Page=<%=Request.QueryString("Page")%>&Recyle_OP=ResumeClass&ClassID=<%=Re_ClassRecordset("ClassID")%>">恢复</a> | <a href ="javascript:DelOneClass('<%=Re_ClassRecordset("ClassID")%>');">删除</a> |
  203. <input type="checkbox" name="Che_ClassOPType" value="<%=Re_ClassRecordset("ClassID")%>">
  204. </td>
  205. </tr>
  206. <%
  207. Re_ClassRecordset.MoveNext
  208. If Re_ClassRecordset.Eof or Re_ClassRecordset.Bof Then Exit For
  209. Next
  210. Response.Write "<tr><td class=""hback"" colspan=""3"" align=""left"">"&fPageCount(Re_ClassRecordset,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)&"&nbsp;</td><td colspan=""2"" class=hback><table border=0 align=left cellpadding=0 cellspacing=0 class=table><tr><td class=""hback""  align=""left""><input type=""button"" value="" 批量恢复 "" name=""But_P_Class_Resmue"" onclick=""javascript:P_Class_Resmue();"">&nbsp;&nbsp;&nbsp;&nbsp;<input type=""button"" value="" 批量删除 "" name=""But_P_Class_Del"" onclick=""javascript:P_Class_Del();""></td><td class=hback>&nbsp;全选<input type=""checkbox"" name=""Che_ClassOPType"" onclick=""CheckAll('Che_ClassOPType');""></td></tr></table></td></tr>"
  211. Else
  212. Re_Class_Flag=False
  213.       Response.write"<table width=""98%"" border=0 align=center cellpadding=2 cellspacing=1 class=table><tr class=""hback""><td>回收站中没有栏目!</td></tr></table>"
  214. End if
  215. End If
  216. Set Re_ClassRecordset=Nothing
  217. %>
  218. </form>
  219. </table>
  220. <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table" id="Rec_News" style="display:none">
  221. <form name="for_Re_OPType" method="post" action="?Recyle_Type=News&Rec_OP_Type=P">
  222. <tr class="xingmu">
  223. <input name="Hi_Re_OP_Type" type="hidden" value="">
  224. <td height="25" class="xingmu" width="68%">
  225. <div align="center">新闻标题</div>
  226. </td>
  227. <td class="xingmu" width="15%">
  228. <div align="center">新闻所属栏目</div>
  229. </td>
  230. <td class="xingmu" width="15%">
  231. <div align="center">操作</div>
  232. </td>
  233. </tr>
  234. <%
  235. If Recyle_Type="News" then
  236. Dim Rec_News_OP,Rec_News_Sql_Str,Rec_News_Rs,Rec_News_ClassRs,Rec_News_Class_TempName,Rec_News_Ser_Flag,ReCyle_News_Action,Rec_OP_Type,Rec_News_Temp_Serch,Rec_News_Temp_Serch_Keyword,News_Temp_Serch_Flag
  237. News_Temp_Serch_Flag=False
  238. Rec_News_OP=Request.QueryString("Recyle_News_OP")
  239. Rec_News_NewsID=Cstr(Replace(Request.QueryString("NewsID"),"'",""))
  240. Rec_OP_Type=Cstr(Request.QueryString("Rec_OP_Type")) 
  241. If Rec_OP_Type="P" Then
  242. Dim Rec_TempOp,Rec_TempID,Rec_Temp_I,Rec_Temp_OPFlag
  243. Rec_TempOp=Request.Form("Hi_Re_OP_Type")
  244. Rec_TempID=Request.Form("Che_OPType")
  245. If Rec_TempID="" or IsNull(Rec_TempID) Then
  246. strShowErr = "<li>请选择要批量操作的内容!</li>"
  247. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  248. Response.end
  249. End If
  251. Select Case Rec_TempOp
  252. Case "P_Resmue"
  253. Conn.execute("Update FS_NS_News Set isRecyle=0 where NewsID in ('"&Replace(Replace(Rec_TempID," ",""),",","','")&"')")
  254. strShowErr = "<li>批量恢复成功</li>"
  255. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  256. Response.end
  257. Case "P_Del"
  258. '删除静态文件
  259. set fso_tmprs_ = Conn.execute("select FS_NS_News.SaveNewsPath,FS_NS_News.FileName,FS_NS_News.FileExtName,FS_NS_NewsClass.SavePath,FS_NS_NewsClass.ClassEName from FS_NS_News,FS_NS_NewsClass where FS_NS_News.NewsID in ('"&Replace(Replace(Rec_TempID," ",""),",","','")&"') and FS_NS_News.IsURL=0 and FS_NS_NewsClass.ClassID=FS_NS_News.ClassID")
  260. While Not fso_tmprs_.eof
  261. If G_VIRTUAL_ROOT_DIR = "" Then
  262. NewsSavePath = ""
  263. Else
  264. NewsSavePath = "/" & G_VIRTUAL_ROOT_DIR
  265. End If
  266. NewsSavePath=NewsSavePath&fso_tmprs_("SavePath")&"/"&fso_tmprs_("ClassEName")&fso_tmprs_("SaveNewsPath")&"/"&fso_tmprs_("FileName")&"."&fso_tmprs_("FileExtName")
  267. fso_DeleteFile(NewsSavePath)
  268. fso_tmprs_.movenext
  269. Wend
  270. '删除静态文件结束
  271. Conn.execute("Delete from FS_NS_News where NewsID in ('"&Replace(Replace(Rec_TempID," ",""),",","','")&"')")
  272. Call MF_Insert_oper_Log("回收站","批量删除了新闻",now,session("admin_name"),"NS")
  273. strShowErr = "<li>批量删除成功</li>"
  274. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  275. Response.end
  276. End Select
  277. End If
  278. If Rec_News_OP="ResumeNews" Then
  279. Dim Rec_News_NewsID,Rec_News_NewsIDRs
  280. Rec_News_Sql_Str="Select ID from FS_NS_NewsClass where ClassID in(Select ClassID from FS_NS_News Where NewsID='"&Rec_News_NewsID&"' and ReycleTF=0) "
  281. Set Rec_News_NewsIDRs=Conn.execute(Rec_News_Sql_Str)
  282. If Not Rec_News_NewsIDRs.Eof Then
  283. Conn.execute("Update FS_NS_News Set isRecyle=0 where NewsID='"&Rec_News_NewsID&"'")
  284. strShowErr = "<li>恢复成功!</li>"
  285. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  286. Response.end
  287. Else
  288. Conn.execute("Update FS_NS_News Set isRecyle=0,ClassID='0' where NewsID='"&Rec_News_NewsID&"'")
  289. strShowErr = "<li>恢复成功!</li>"
  290. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  291. Response.end
  292. End If
  293. Set Rec_News_NewsIDRs=Nothing
  294. End If
  295. ReCyle_News_Action=Request.QueryString("Action")
  296. If ReCyle_News_Action="Submit" Then
  297. '删除静态文件
  298. set fso_tmprs_ = Conn.execute("select FS_NS_News.SaveNewsPath,FS_NS_News.FileName,FS_NS_News.FileExtName,FS_NS_NewsClass.SavePath,FS_NS_NewsClass.ClassEName from FS_NS_News,FS_NS_NewsClass where FS_NS_News.NewsID in ('"&Replace(Replace(Rec_News_NewsID," ",""),",","','")&"') and FS_NS_News.IsURL=0 and FS_NS_NewsClass.ClassID=FS_NS_News.ClassID")
  299. While Not fso_tmprs_.eof
  300. If G_VIRTUAL_ROOT_DIR = "" Then
  301. NewsSavePath = ""
  302. Else
  303. NewsSavePath = "/" & G_VIRTUAL_ROOT_DIR
  304. End If
  305. NewsSavePath=NewsSavePath&fso_tmprs_("SavePath")&"/"&fso_tmprs_("ClassEName")&fso_tmprs_("SaveNewsPath")&"/"&fso_tmprs_("FileName")&"."&fso_tmprs_("FileExtName")
  306. fso_DeleteFile(NewsSavePath)
  307. fso_tmprs_.movenext
  308. Wend
  309. '删除静态文件结束
  310. Conn.execute("Delete from FS_NS_News where NewsID='"&Rec_News_NewsID&"'")
  311. strShowErr = "<li>删除成功!</li>"
  312. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  313. Response.end
  314. End if
  315. Rec_News_Ser_Flag=False
  316. Rec_News_Temp_Serch=Request.QueryString("Serch")
  317. Rec_News_Temp_Serch_Keyword=Request.Form("Ser_Keyword")
  318. If Rec_News_Temp_Serch="Submit" Then
  319. Rec_News_Sql_Str="Select NewsID,NewsTitle,ClassID From FS_NS_News where isRecyle=1 and NewsTitle like'%"&Rec_News_Temp_Serch_Keyword&"%'"
  320. News_Temp_Serch_Flag=True
  321. Else
  322. Rec_News_Sql_Str="Select NewsID,NewsTitle,ClassID From FS_NS_News where isRecyle=1"
  323. End If
  324. Set Rec_News_Rs= CreateObject(G_FS_RS)
  325. Rec_News_Rs.Open Rec_News_Sql_Str,Conn,1,1
  326. If Not Rec_News_Rs.Eof Then
  328. Rec_News_Rs.PageSize=int_RPP
  329. cPageNo=NoSqlHack(Request.QueryString("page"))
  330. If cPageNo="" Then cPageNo = 1
  331. If not isnumeric(cPageNo) Then cPageNo = 1
  332. cPageNo = Clng(cPageNo)
  333. If cPageNo<=0 Then cPageNo=1
  334. If cPageNo>Rec_News_Rs.PageCount Then cPageNo=Rec_News_Rs.PageCount 
  335. Rec_News_Rs.AbsolutePage=cPageNo
  337. Re_News_Flag=True
  338. Rec_News_Ser_Flag=True
  339. For int_Start=1 TO int_RPP  
  340. %>
  341. <tr class="hback">
  342. <td height="22" class="hback"><%=Rec_News_Rs("NewsTitle")%></td>
  343. <%
  344. Set Rec_News_ClassRs=Conn.execute("Select ClassName from FS_NS_NewsClass where ClassID='"&Rec_News_Rs("ClassID")&"'")
  345. If Not Rec_News_ClassRs.Eof Then
  346. Rec_News_Class_TempName=Rec_News_ClassRs("ClassName")
  347. Else
  348. Rec_News_Class_TempName="栏目不存在"
  349. End if
  350. Set Rec_News_ClassRs=Nothing
  351. %>
  352. <td align="center" class="hback" width="221"><%=Rec_News_Class_TempName%></td>
  353. <td align="center" class="hback" width="151"><a href="?Recyle_Type=News&Page=<%=Request.QueryString("Page")%>&Recyle_News_OP=ResumeNews&NewsID=<%=Rec_News_Rs("NewsID")%>">恢复</a> | <a href="javascript:DelOneNews('<%=Rec_News_Rs("NewsID")%>')">删除</a> |
  354. <input type="checkbox" name="Che_OPType" value="<%=Rec_News_Rs("NewsID")%>">
  355. </td>
  356. </tr>
  357. <%
  358. Rec_News_Rs.MoveNext
  359. If Rec_News_Rs.Eof or Rec_News_Rs.Bof Then Exit For
  360. Next
  364. Response.Write "<tr><td class=""hback"" colspan=""6"" align=""left""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td align=""left"">"&fPageCount(Rec_News_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)&"</td><td align=""right""><input type=""button"" value="" 批量恢复 "" name=""But_P_UnLock"" onclick=""javascript:P_Resmue();"">&nbsp;&nbsp;&nbsp;&nbsp;<input type=""button"" value="" 批量删除 "" name=""But_P_Del"" onclick=""javascript:P_Del();"">&nbsp;&nbsp;&nbsp;&nbsp;全选<input type=""checkbox"" name=""Che_OPType"" onclick=""CheckAll('Che_OPType');"" ></td></tr></table></td></tr>"
  365. Else
  366. If News_Temp_Serch_Flag=True Then
  367. strShowErr = "<li>没有找到符合条件的新闻,请重试!</li>"
  368. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  369. Response.end
  370. Else
  371.        Response.write"<table width=""98%"" border=0 align=center cellpadding=2 cellspacing=1 class=table><tr class=""hback""><td>回收站中没有新闻!</td></tr></table>"
  372. End If
  373. End if
  374. Set Rec_News_Rs=Nothing
  375. End if
  376. Response.write "<script language=""javascript"">document.all.Rec_News.style.display=""none"";</script>"
  377. %>
  378. </form>
  379. </table>
  380. <%
  381. Recyle_Type=Request.QueryString("Recyle_Type")
  382. If Recyle_Type="DelAll" Then
  383. Dim Recyle_Del_OP,Recyle_DelAll_Type
  384. Recyle_Del_OP=Request.QueryString("Recyle_Del_OP")
  385. Recyle_DelAll_Type=Request.QueryString("Action")
  386. If Recyle_DelAll_Type="S_DelAllClass" Then
  387. Conn.execute("Delete From FS_NS_News Where isRecyle=1")
  388. Call MF_Insert_oper_Log("回收站","清空了回收站所有栏目",now,session("admin_name"),"NS")
  389. strShowErr = "<li>删除成功!</li>"
  390. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  391. Response.End
  392. End If
  393. If Recyle_DelAll_Type="S_DelAllNews" Then
  394. '删除静态文件
  395. set fso_tmprs_ = Conn.execute("select FS_NS_News.SaveNewsPath,FS_NS_News.FileName,FS_NS_News.FileExtName,FS_NS_NewsClass.SavePath,FS_NS_NewsClass.ClassEName from FS_NS_News,FS_NS_NewsClass where FS_NS_News.isRecyle=1 and FS_NS_News.IsURL=0 and FS_NS_NewsClass.ClassID=FS_NS_News.ClassID")
  396. While Not fso_tmprs_.eof
  397. If G_VIRTUAL_ROOT_DIR = "" Then
  398. NewsSavePath = ""
  399. Else
  400. NewsSavePath = "/" & G_VIRTUAL_ROOT_DIR
  401. End If
  402. NewsSavePath=NewsSavePath&fso_tmprs_("SavePath")&"/"&fso_tmprs_("ClassEName")&fso_tmprs_("SaveNewsPath")&"/"&fso_tmprs_("FileName")&"."&fso_tmprs_("FileExtName")
  403. fso_DeleteFile(NewsSavePath)
  404. fso_tmprs_.movenext
  405. Wend
  406. '删除静态文件结束
  407. Conn.execute("Delete From FS_NS_News Where isRecyle=1")
  408. Call MF_Insert_oper_Log("回收站","清空了回收站所有新闻",now,session("admin_name"),"NS")
  409. strShowErr = "<li>删除成功!</li>"
  410. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  411. Response.End
  412. End If
  413. If Recyle_DelAll_Type="S_DelAll" Then
  414. '删除静态文件
  415. set fso_tmprs_ = Conn.execute("select FS_NS_News.SaveNewsPath,FS_NS_News.FileName,FS_NS_News.FileExtName,FS_NS_NewsClass.SavePath,FS_NS_NewsClass.ClassEName from FS_NS_News,FS_NS_NewsClass where FS_NS_News.isRecyle=1 and FS_NS_News.IsURL=0 and FS_NS_NewsClass.ClassID=FS_NS_News.ClassID")
  416. While Not fso_tmprs_.eof
  417. If G_VIRTUAL_ROOT_DIR = "" Then
  418. NewsSavePath = ""
  419. Else
  420. NewsSavePath = "/" & G_VIRTUAL_ROOT_DIR
  421. End If
  422. NewsSavePath=NewsSavePath&fso_tmprs_("SavePath")&"/"&fso_tmprs_("ClassEName")&fso_tmprs_("SaveNewsPath")&"/"&fso_tmprs_("FileName")&"."&fso_tmprs_("FileExtName")
  423. fso_DeleteFile(NewsSavePath)
  424. fso_tmprs_.movenext
  425. Wend
  426. '删除静态文件结束
  427. Conn.execute("Delete From FS_NS_News Where isRecyle=1")
  428. Conn.execute("Delete From FS_NS_NewsClass Where ReycleTF=1")
  429. Call MF_Insert_oper_Log("回收站","清空了回收站所有信息",now,session("admin_name"),"NS")
  430. strShowErr = "<li>清空回收站成功!</li>"
  431. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  432. Response.End
  433. End If
  434. If Recyle_Del_OP="ResumeAll" Then
  435. Conn.execute("Update FS_NS_News Set isRecyle=0 Where isRecyle=1")
  436. Conn.execute("Update FS_NS_NewsClass Set ReycleTF=0 Where ReycleTF=1")
  437. strShowErr = "<li>恢复成功!</li>"
  438. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  439. Response.end
  440. End If
  441. If Recyle_Del_OP="ResumeClass" Then
  442. Conn.execute("Update FS_NS_NewsClass Set ReycleTF=0 Where ReycleTF=1")
  443. strShowErr = "<li>恢复成功!</li>"
  444. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  445. Response.end
  446. End If
  447. If Recyle_Del_OP="ResumeNews" Then
  448. Conn.execute("Update FS_NS_News Set isRecyle=0 Where isRecyle=1")
  449. strShowErr = "<li>恢复成功!</li>"
  450. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  451. Response.end
  452. End If
  453. End If
  454. %>
  455. <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table" id="Rec_Op" style="display:none">
  456. <tr class="hback">
  457. <td height="47" align="center"><a href=?Recyle_Type=DelAll&Recyle_Del_OP=ResumeAll>全部恢复</a> | <a href=?Recyle_Type=DelAll&Recyle_Del_OP=ResumeClass>只恢复栏目</a> | <a href=?Recyle_Type=DelAll&Recyle_Del_OP=ResumeNews>只恢复新闻</a> | <a href="javascript:DelClass();">删除栏目</a> | <a href="javascript:DelNews()">删除新闻</a> | <a href="javascript:DelAll()">清空回收站</a>
  458. <div align="center"> </div>
  459. </td>
  460. </tr>
  461. </table>
  462. <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table" id="Rec_ZhuJie" style="display:none">
  463. <tr class="hback">
  464. <td height="47"><font color="#FF3300">注：
  465. <p>1、栏目管理:是对放入回收站中的栏目而进行的管理。</p>
  466. <p>2、新闻管理:是对放入回收站中的新闻而进行的管理。</p>
  467. <p>3、操作:对放入回收站中的内容进行恢复和删除操作。 
  468. </font></td>
  469. </tr>
  470. </table>
  471. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table" id="Rec_Serch" style="display:none">
  472. <form name="for_Ser_News" method="post" action="?Recyle_Type=News&Serch=Submit">
  473. <tr>
  474. <td height="18" class="hback">新闻搜索：关键字
  475. <input name="Ser_Keyword" type="text" size="20">
  476. <select name="NewsType" id="NewsType">
  477. <option value="title" selected>标题</option>
  478. </select>
  479. <input type="submit" name="But_Ser_Submit" value="  搜 索  ">
  480. </td>
  481. </tr>
  482. </form>
  483. </table>
  484. <%
  485. If Rec_News_Ser_Flag=True Then
  486. Response.write "<script language=""javascript"">document.all.Rec_Serch.style.display="""";</script>"
  487. End if
  488. %>
  489. <script language="javascript" type="text/javascript" src="../../FS_Inc/wz_tooltip.js"></script>
  490. </body>
  491. </html>
  492. <%
  493. Sub Recyle_DelClassID(ClassID)
  494. Dim Recyle_ClassID_Sql_Str,Recyle_ClassID_Rs
  495. Recyle_ClassID_Sql_Str="Select ClassID from FS_NS_NewsClass where ParentID='"&ClassID&"'"
  496. Set Recyle_ClassID_Rs=Conn.execute(Recyle_ClassID_Sql_Str)
  497. While Not Recyle_ClassID_Rs.Eof 
  498. Recyle_DelClassID(Recyle_ClassID_Rs("ClassID"))
  499. Recyle_ClassID_Rs.MoveNext
  500. Wend
  501. Conn.execute("Delete from FS_NS_NewsClass where ClassID='"&ClassID&"'")
  502. Response.write("Delete from FS_NS_NewsClass where ClassID='"&ClassID&"'")
  503. Set Recyle_ClassID_Rs=Nothing
  504. End Sub
  506. Function Serch_ClassID(arr_CLassID)
  507. Dim int_i,str_s_sql,obj_ser_pa_Rs
  508. For int_i=0 To Ubound(arr_CLassID)
  509. str_s_sql="Select ClassID from FS_NS_NewsClass Where ParentID in(Select ClassID from FS_NS_NewsClass Where ReycleTF=1) and ClassID='"&Cstr(trim(arr_CLassID(int_i)))&"'"
  510. Set obj_ser_pa_Rs=Conn.execute(str_s_sql)
  511. If obj_ser_pa_Rs.Eof Then
  512. Serch_ClassID=Serch_ClassID&arr_CLassID(int_i)&","
  513. End If 
  514. Set obj_ser_pa_Rs=Nothing
  515. Next
  516. End Function
  517. %>
  518. <script language="javascript">
  519. function DelClass()
  520. {
  521. if(confirm('此操作不可逆,将会删除所有回收站的栏目n你确定删除吗？'))
  522. {
  523. location='?Recyle_Type=DelAll&Action=S_DelAllClass';
  524. }
  525. }
  526. function DelNews()
  527. {
  528. if(confirm('此操作不可逆,将会删除所有回收站的新闻n你确定删除吗？'))
  529. {
  530. location='?Recyle_Type=DelAll&Action=S_DelAllNews';
  531. }
  532. }
  533. function DelAll()
  534. {
  535. if(confirm('此操作不可逆,将会删除所有回收站的栏目以及新闻n你确定删除吗？'))
  536. {
  537. location='?Recyle_Type=DelAll&Action=S_DelAll';
  538. }
  539. }
  540. function DelOneNews(NewsId)
  541. {
  542. if(confirm('将删除一条新闻n你确定删除吗？'))
  543. {
  544. location='?Recyle_Type=News&Page=<%=Request.QueryString("Page")%>&NewsID='+NewsId+'&Action=Submit';
  545. }
  546. }
  547. function DelOneClass(ClassID)
  548. {
  549. if(confirm('此操作将删除此栏目下的所有子栏目？n你确定删除吗？'))
  550. {
  551. location='?Recyle_Type=Class&Page=<%=Request.QueryString("Page")%>&ClassID='+ClassID+'&Action=Submit';
  552. }
  553. }
  554. function P_Class_Del()
  555. {
  556. if(confirm('此操作将删除选中栏目下的所有子栏目？n你确定删除吗？'))
  557. {
  558. document.for_Re_ClassOPType.Hi_Re_OP_Class_Type.value="P_Class_Del";
  559. document.for_Re_ClassOPType.submit();
  560. }
  561. }
  562. function P_Class_Resmue()
  563. {
  564. if(confirm('此操作将恢复选中的栏目？n你确定恢复吗？'))
  565. {
  566. document.for_Re_ClassOPType.Hi_Re_OP_Class_Type.value="P_Class_Resmue";
  567. document.for_Re_ClassOPType.submit();
  568. }
  569. }
  570. function SelectTableShow(ShowType)
  571. {
  572. switch(ShowType)
  573. {
  574. case 0://显示回收站注解首页
  575. document.all.Rec_ZhuJie.style.display="";
  576. document.all.Rec_Class.style.display="none";
  577. document.all.Rec_News.style.display="none";
  578. document.all.Rec_Serch.style.display="none";
  579. document.all.Rec_Op.style.display="none";
  580. break;
  581. case 1://显示回收站栏目管理首页
  582. <%
  583. If Re_Class_Flag=False Then
  584. Response.write "document.all.Rec_Class.style.display=""none"";"
  585. Else
  586. Response.write"document.all.Rec_Class.style.display="""";"
  587. End If
  588. %>
  589. document.all.Rec_ZhuJie.style.display="none";
  590. document.all.Rec_News.style.display="none";
  591. document.all.Rec_Serch.style.display="none";
  592. document.all.Rec_Op.style.display="none";
  593. break;
  594. case 2://显示回收站新闻管理首页
  595. <%
  596. If Re_News_Flag=False Then
  597. Response.write "document.all.Rec_News.style.display=""none"";"
  598. Response.write "document.all.Rec_Serch.style.display=""none"";"
  599. Else
  600. Response.write"document.all.Rec_News.style.display="""";"
  601. Response.write "document.all.Rec_Serch.style.display="""";"
  602. End If
  603. %>
  604. document.all.Rec_ZhuJie.style.display="none";
  605. document.all.Rec_Class.style.display="none";
  606. document.all.Rec_Op.style.display="none";
  607. break;
  608. case 3://显示回收站管理操作首页
  609. document.all.Rec_Op.style.display="";
  610. document.all.Rec_ZhuJie.style.display="none";
  611. document.all.Rec_Class.style.display="none";
  612. document.all.Rec_News.style.display="none";
  613. document.all.Rec_Serch.style.display="none";
  614. break;
  615. }
  616. }
  617. function CheckAll(CheckType)
  618. {
  619. var checkBoxArray=document.all(CheckType)
  620. if(checkBoxArray[checkBoxArray.length-1].checked)
  621. {
  622. for(var i=0;i<checkBoxArray.length-1;i++)
  623. {
  624. checkBoxArray[i].checked=true;
  626. }
  627. }else
  628. {
  629. for(var i=0;i<checkBoxArray.length-1;i++)
  630. {
  631. checkBoxArray[i].checked=false;
  632. }
  633. }
  634. }
  635. function P_Resmue()
  636. {
  637. if(confirm('此操作将恢复选中的新闻？n你确定恢复吗？'))
  638. {
  639. document.for_Re_OPType.Hi_Re_OP_Type.value="P_Resmue";
  640. document.for_Re_OPType.submit();
  641. }
  642. }
  643. function P_Del()
  644. {
  645. var chkJss_Array=document.all.Che_OPType;
  646. var chkTF=false;
  647. if (chkJss_Array[0]==null)
  648. {
  649. return 
  650. }
  651. else
  652. {
  653. //判断是否选择了记录
  654. for(var i=1;i<chkJss_Array.length;i++)
  655. {
  656. if (chkJss_Array[i].checked)
  657. {
  658. chkTF=true
  659. }
  660. }
  661. }
  662. if(chkTF)
  663. {
  664. if(confirm("确认要删除选中的记录？"))
  665. //document.for_Re_ClassOPType.submit();
  666. document.for_Re_OPType.Hi_Re_OP_Type.value="P_Del";
  667. document.for_Re_OPType.submit();
  668. }else
  669. {
  670. alert("请选择你要删除的对象");
  671. }
  672. //以上判断有没选项选中
  674. }
  675. </script>
  676. <%
  677. If Recyle_Type="" Then
  678. Response.write"<script language=""javascript"">SelectTableShow(0);</script>"
  679. Else
  680. Recyle_Type=Cstr(Recyle_Type)
  681. Select Case Recyle_Type
  682. Case "Class"
  683. Response.write"<script language=""javascript"">SelectTableShow(1);</script>"
  684. Case "News"
  685. Response.write"<script language=""javascript"">SelectTableShow(2);</script>"
  686. Case "DelAll"
  687. Response.write"<script language=""javascript"">SelectTableShow(3);</script>"
  688. Case else
  689. Response.write"<script language=""javascript"">SelectTableShow(0);</script>"
  690. End Select
  691. End IF
  692. Set Conn=Nothing
  693. %>
  694. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->