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

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

数据库编程

开发平台：

ASP/ASPX

News_Manage.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="lib/cls_main.asp" -->
  4. <!--#include file="../../FS_Inc/Function.asp"-->
  5. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  6. <!--#include file="../../FS_InterFace/NS_Function.asp" -->
  7. <!--#include file="../../FS_Inc/Func_page.asp" -->
  8. <%'Copyright (c) 2006 Foosun Inc. Code by Simpwind.Xie
  9. Dim Conn,User_Conn
  10. Dim CharIndexStr
  11. Dim Fs_news,obj_news_rs,obj_news_rs_1,isUrlStr,str_Href,obj_cnews_rs,news_count,str_Href_title,str_action,str_ClassID,news_SQL
  12. Dim obj_newslist_rs,newslist_sql,strpage,str_showTF,str_ClassID_1,str_Editor,str_Keyword,str_GetKeyword,str_ktype
  13. Dim select_count,select_pagecount,i,Str_GetPopID,Str_PopID,str_check,str_UrlTitle,icNum,str_addType,str_addType_1
  14. Dim str_Rec,str_isTop,str_hot,str_pic,str_highlight,str_bignews,str_filt,str_Constr,str_Top,tmp_pictf
  15. Dim str_s_classIDarray,tmp_splitarrey_id,tmp_splitarrey_Classid,tmp_i,str_Move_type,str_t_classID,C_NewsIDarrey,Tmp_rs,Tmp_TF_Rs
  16. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  17. Dim StrSql,ArrSql(),temp_j,str_rep_type,str_rep_select_type,str_AdvanceTF,str_s_Content,str_t_Content,str_start_char,str_end_char,f_PLACE_OBJ
  18. Dim str_SpecialEname,SQL_SpecialEname,str_Get_Special,sp_i
  19. Dim fso_tmprs_,NewsSavePath
  20. int_RPP=30 '设置每页显示数目
  21. int_showNumberLink_=8 '数字导航显示数目
  22. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  23. str_nonLinkColor_="#999999" '非热链接颜色
  24. toF_="<font face=webdings title=""首页"">9</font>"   '首页
  25. toP10_=" <font face=webdings title=""上十页"">7</font>" '上十
  26. toP1_=" <font face=webdings title=""上一页"">3</font>" '上一
  27. toN1_=" <font face=webdings title=""下一页"">4</font>" '下一
  28. toN10_=" <font face=webdings title=""下十页"">8</font>" '下十
  29. toL_="<font face=webdings title=""最后一页"">:</font>"
  31. MF_Default_Conn
  32. MF_User_Conn
  33. MF_Session_TF
  34. set Fs_news = new Cls_News
  35. Fs_News.GetSysParam()
  36. If Not Fs_news.IsSelfRefer Then response.write "非法提交数据":Response.end
  37. str_ClassID = NoSqlHack(Request.QueryString("ClassID"))
  38. str_SpecialEname = NoSqlHack(Request.QueryString("specialEname"))
  39. if Request("Action")="makehtml" then
  40. if not Get_SubPop_TF(str_ClassID,"NS011","NS","news") then Err_Show
  41. response.Redirect "Get_NewsHtml.asp?Id="&server.URLEncode(Replace(request.Form("C_NewsID")," ",""))&"&ClassId="&Request.QueryString("ClassId")&"&type=makenews"
  42. End if
  43. if Request("Action")="Toold" then
  44. response.Redirect "Get_OldNews.asp?Id="&server.URLEncode(Replace(request.Form("C_NewsID")," ",""))&"&ClassId="&Request.QueryString("ClassId")&""
  45. end if
  46. if Request("Action") = "signDel" then
  47. if not Get_SubPop_TF(str_ClassID,"NS003","NS","news") then Err_Show
  48. Dim strShowErr
  49. if fs_news.ReycleTF = 1 then
  50. Conn.execute("Update FS_NS_News set isRecyle = 1 where NewsID='"& NoSqlHack(Request.QueryString("NewsID"))&"'")
  51. strShowErr = "<li>"& Fs_news.allInfotitle &"已经删除</li><li>"& Fs_news.allInfotitle &"已经临时放到回收站中</li>"
  52. Else
  53. strShowErr = "<li>"& Fs_news.allInfotitle &"已经彻底删除</li>"
  55. ''===============
  56. ''删除图片文件
  57. set fso_tmprs_ = Conn.execute("select NewsPicFile from FS_NS_News where NewsID='"& NoSqlHack(Request.QueryString("NewsID"))&"'")
  58. if not fso_tmprs_.eof then
  59. fso_DeleteFile(fso_tmprs_(0))
  60. end if
  61. fso_tmprs_.close
  62. ''小图
  63. set fso_tmprs_ = Conn.execute("select NewsSmallPicFile from FS_NS_News where NewsID='"& NoSqlHack(Request.QueryString("NewsID"))&"'")
  64. if not fso_tmprs_.eof then
  65. fso_DeleteFile(fso_tmprs_(0))
  66. end If
  67. '删除静态文件
  68. 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 NewsID='"& NoSqlHack(Request.QueryString("NewsID"))&"' and FS_NS_News.IsURL=0 and FS_NS_NewsClass.ClassID=FS_NS_News.ClassID")
  69. If G_VIRTUAL_ROOT_DIR = "" Then
  70. NewsSavePath = ""
  71. Else
  72. NewsSavePath = "/" & G_VIRTUAL_ROOT_DIR
  73. End If
  74. If Not fso_tmprs_.eof Then
  75. NewsSavePath=NewsSavePath&fso_tmprs_("SavePath")&"/"&fso_tmprs_("ClassEName")&fso_tmprs_("SaveNewsPath")&"/"&fso_tmprs_("FileName")&"."&fso_tmprs_("FileExtName")
  76. fso_DeleteFile(NewsSavePath)
  77. End If
  78. '删除静态文件结束
  79. fso_tmprs_.close
  80. ''===============
  81. Conn.execute("Delete From FS_NS_News where NewsID='"& NoSqlHack(Request.QueryString("NewsID"))&"'")
  82. '删除浏览权限新闻，以防产生垃圾信息
  83. Conn.execute("Delete From  FS_MF_Pop  where InfoID='"& NoSqlHack(Request.QueryString("NewsID"))&"' and PopType='NS'")
  84. '删除静态文件
  85. End if
  86. set conn=nothing:set user_conn=nothing
  87. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  88. Response.end
  89. End if
  90. if Request("Action") = "singleCheck" then
  91. if not Get_SubPop_TF(str_ClassID,"NS004","NS","news") then Err_Show
  92. Conn.execute("Update FS_NS_News set isLock = 0 where NewsID='"& NoSqlHack(Request.QueryString("NewsID"))&"'")
  93. strShowErr = "<li>"& Fs_news.allInfotitle &"审核成功</li>"
  94. set conn=nothing:set user_conn=nothing
  95. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  96. Response.end
  97. Elseif Request("Action") = "singleUnCheck" then
  98. if not Get_SubPop_TF(str_ClassID,"NS005","NS","news") then Err_Show
  99. Conn.execute("Update FS_NS_News set isLock = 1 where NewsID='"& NoSqlHack(Request.QueryString("NewsID"))&"'")
  100. strShowErr = "<li>"& Fs_news.allInfotitle &"锁定成功</li>"
  101. set conn=nothing:set user_conn=nothing
  102. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  103. Response.end
  104. End if
  105. if Request("Action") = "signUnTop" then
  106. if not Get_SubPop_TF(str_ClassID,"NS006","NS","news") then Err_Show
  107. Conn.execute("Update FS_NS_News set popid =0 where NewsID='"& NoSqlHack(Request.QueryString("NewsID"))&"'")
  108. strShowErr = "<li>"& Fs_news.allInfotitle &"解固成功</li>"
  109. set conn=nothing:set user_conn=nothing
  110. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  111. Response.end
  112. End if
  113. if Request("Action") = "signTop" then
  114. if not Get_SubPop_TF(str_ClassID,"NS006","NS","news") then Err_Show
  115. Conn.execute("Update FS_NS_News set popid =5 where NewsID='"& NoSqlHack(Request.QueryString("NewsID"))&"'")
  116. set conn=nothing:set user_conn=nothing
  117. strShowErr = "<li>"& Fs_news.allInfotitle &"总固顶成功</li><li>如果需要区域固顶,请在修改中设定</li>"
  118. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  119. Response.end
  120. End if
  121. If Request.Form("Action") = "Del" then
  122. if not Get_SubPop_TF(str_ClassID,"NS003","NS","news") then Err_Show
  123. Dim DelID,Str_Tmp,Str_Tmp1
  124. DelID = request.Form("C_NewsID")
  125. if DelID = "" then
  126. strShowErr = "<li>你必须选择一项再删除</li>"
  127. set conn=nothing:set user_conn=nothing
  128. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  129. Response.end
  130. End if
  131. if fs_news.ReycleTF = 1 then
  132. Conn.execute("Update FS_NS_News set isRecyle=1 where ID in ("&DelID&")")
  133. set conn=nothing:set user_conn=nothing
  134. strShowErr = "<li>"& Fs_news.allInfotitle &"已经删除</li><li>"& Fs_news.allInfotitle &"已经临时放到回收站中</li>"
  135. Else
  137. ''===============
  138. ''删除图片文件
  139. set fso_tmprs_ = Conn.execute("select NewsPicFile from FS_NS_News where ID in ("&DelID&")")
  140. do while not fso_tmprs_.eof
  141. fso_DeleteFile(fso_tmprs_(0))
  142. fso_tmprs_.movenext
  143. loop
  144. fso_tmprs_.close
  145. ''小图
  146. set fso_tmprs_ = Conn.execute("select NewsSmallPicFile from FS_NS_News where ID in ("&DelID&")")
  147. do while not fso_tmprs_.eof
  148. fso_DeleteFile(fso_tmprs_(0))
  149. fso_tmprs_.movenext
  150. loop
  151. fso_tmprs_.close
  152. ''===============
  153. '删除静态文件
  154. 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.ID in ("& DelID &") and FS_NS_News.IsURL=0 and FS_NS_NewsClass.ClassID=FS_NS_News.ClassID")
  155. While Not fso_tmprs_.eof
  156. If G_VIRTUAL_ROOT_DIR = "" Then
  157. NewsSavePath = ""
  158. Else
  159. NewsSavePath = "/" & G_VIRTUAL_ROOT_DIR
  160. End If
  161. NewsSavePath=NewsSavePath&fso_tmprs_("SavePath")&"/"&fso_tmprs_("ClassEName")&fso_tmprs_("SaveNewsPath")&"/"&fso_tmprs_("FileName")&"."&fso_tmprs_("FileExtName")
  162. fso_DeleteFile(NewsSavePath)
  163. fso_tmprs_.movenext
  164. Wend
  165. '删除静态文件结束
  166. Conn.execute("Delete From FS_NS_News where ID in ("&DelID&")")
  167. set conn=nothing:set user_conn=nothing
  168. strShowErr = "<li>您选择的"& Fs_news.allInfotitle &"已经彻底删除了</li>"
  169. End if
  170. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../News_manage.asp?ClassID="&Request("ClassID")&"")
  171. Response.end
  172. End if
  173. If Request.Form("Action") = "unlock" then
  174. if not Get_SubPop_TF(str_ClassID,"NS008","NS","news") then Err_Show
  175. Dim str_UnLockID
  176. str_UnLockID = request.Form("C_NewsID")
  177. if str_UnLockID = "" then
  178. set conn=nothing:set user_conn=nothing
  179. strShowErr = "<li>你必须选择一项再操作</li>"
  180. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  181. Response.end
  182. End if
  183. Conn.execute("Update FS_NS_News set isLock = 0 where ID in ("& str_UnLockID &")")
  184. strShowErr = "<li>"& Fs_news.allInfotitle &"审核成功</li>"
  185. set conn=nothing:set user_conn=nothing
  186. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  187. Response.end
  188. End if
  189. If Request.Form("Action") = "lock" then
  190. if not Get_SubPop_TF(str_ClassID,"NS005","NS","news") then Err_Show
  191. Dim str_LockID
  192. str_LockID = request.Form("C_NewsID")
  193. if str_LockID = "" then
  194. strShowErr = "<li>你必须选择一项再操作</li>"
  195. set conn=nothing:set user_conn=nothing
  196. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  197. Response.end
  198. End if
  199. Conn.execute("Update FS_NS_News set isLock = 1 where ID in ("& str_LockID &")")
  200. strShowErr = "<li>"& Fs_news.allInfotitle &"锁定成功</li>"
  201. set conn=nothing:set user_conn=nothing
  202. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  203. Response.end
  204. End if
  205. If Request.Form("Action") = "Move_News" then
  206. if not Get_SubPop_TF(str_ClassID,"NS009","NS","news") then Err_Show
  207. str_s_classIDarray =Replace(Request.Form("s_Classid")," ","")
  208. str_t_classID=Replace(Request.Form("t_Classid")," ","")
  209. str_Move_type = Trim(Replace(Request.Form("Move_type")," ",""))
  210. C_NewsIDarrey = Trim(Replace(Request.Form("C_NewsID")," ",""))
  211. '判断是否是外部栏目
  212. Set Tmp_TF_Rs = Conn.execute("select isUrl From FS_NS_NewsClass Where ClassID = '"& str_t_classID &"'")
  213. if Tmp_TF_Rs(0)=1 then
  214. set conn=nothing:set user_conn=nothing
  215. strShowErr = "<li>目标"& Fs_news.allInfotitle &"栏目不能为外部栏目</li>"
  216. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  217. Response.end
  218. End if
  219. Tmp_TF_Rs.close:set Tmp_TF_Rs =nothing
  220. if str_Move_type = "" then
  221. strShowErr = "<li>请选择转移类型</li>"
  222. set conn=nothing:set user_conn=nothing
  223. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  224. Response.end
  225. End if
  226. if  str_Move_type = "id" then
  227. if Trim(C_NewsIDarrey)="" then
  228. strShowErr = "<li>请选择要转移的"& Fs_news.allInfotitle &"!</li>"
  229. set conn=nothing:set user_conn=nothing
  230. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  231. Response.end
  232. End if
  233. tmp_splitarrey_id = split(C_NewsIDarrey,",")
  234. for tmp_i = LBound(tmp_splitarrey_id) to UBound(tmp_splitarrey_id)
  235. Set Tmp_rs=server.CreateObject(G_FS_RS)
  236. Tmp_rs.open "select Classid From [FS_NS_News] where isRecyle=0 and ID="&tmp_splitarrey_id(tmp_i)&" order by id desc",Conn,1,3
  237. if Not Tmp_rs.eof then
  238. Tmp_rs("ClassID") = str_t_classID
  239. Tmp_rs.update
  240. End if
  241. Next
  242. Elseif  str_Move_type = "ClassID" then
  243. if Trim(str_s_classIDarray)="" then
  244. strShowErr = "<li>请选择要转移栏目下的"& Fs_news.allInfotitle &"!</li>"
  245. set conn=nothing:set user_conn=nothing
  246. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  247. Response.end
  248. End if
  249. tmp_splitarrey_Classid = split(str_s_classIDarray,",")
  250. for tmp_i = LBound(tmp_splitarrey_Classid) to UBound(tmp_splitarrey_Classid)
  251. Set Tmp_rs=server.CreateObject(G_FS_RS)
  252. Tmp_rs.open "select Classid From [FS_NS_News] where isRecyle=0 and ClassID='"&tmp_splitarrey_Classid(tmp_i)&"' order by id desc",Conn,1,3
  253. do while Not Tmp_rs.eof
  254. Tmp_rs("ClassID") = str_t_classID
  255. Tmp_rs.update
  256. Tmp_rs.movenext
  257. Loop
  258. Next
  259. End if
  260. Tmp_rs.close:set Tmp_rs=nothing
  261. strShowErr = "<li>转移成功</li><li>需要重新生成才生效!</li>"
  262. set conn=nothing:set user_conn=nothing
  263. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  264. Response.end
  265. End if
  266. If Request.Form("Action") = "Replace_News" then
  267. if not Get_SubPop_TF(str_ClassID,"NS010","NS","news") then Err_Show
  268. Call Replace_News()
  269. End If
  270. If Request.Form("Action") = "Copy_News" then
  271. if not Get_SubPop_TF(str_ClassID,"NS007","NS","news") then Err_Show
  272. str_s_classIDarray =Replace(Request.Form("s_Classid")," ","")
  273. str_t_classID=Replace(Request.Form("t_Classid")," ","")
  274. str_Move_type = Trim(Replace(Request.Form("Move_type")," ",""))
  275. C_NewsIDarrey = Trim(Replace(Request.Form("C_NewsID")," ",""))
  276. '判断是否是外部栏目
  277. If str_t_classID="" Then
  278. strShowErr = "<li>请选择目标"& Fs_news.allInfotitle &"栏目</li>"
  279. set conn=nothing:set user_conn=nothing
  280. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  281. Response.End
  282. End if
  283. Set Tmp_TF_Rs = Conn.execute("select isUrl From FS_NS_NewsClass Where ClassID = '"& str_t_classID &"'")
  284. if Tmp_TF_Rs(0)=1 then
  285. set conn=nothing:set user_conn=nothing
  286. strShowErr = "<li>目标"& Fs_news.allInfotitle &"栏目不能为外部栏目</li>"
  287. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  288. Response.end
  289. End if
  290. Tmp_TF_Rs.close:set Tmp_TF_Rs =nothing
  291. if str_Move_type = "" then
  292. strShowErr = "<li>请选择复制类型</li>"
  293. set conn=nothing:set user_conn=nothing
  294. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  295. Response.end
  296. End if
  297. if  str_Move_type = "id" then
  298. if Trim(C_NewsIDarrey)="" then
  299. strShowErr = "<li>请选择要复制的"& Fs_news.allInfotitle &"!</li>"
  300. set conn=nothing:set user_conn=nothing
  301. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  302. Response.end
  303. End if
  304. tmp_splitarrey_id = split(C_NewsIDarrey,",")
  305. for tmp_i = LBound(tmp_splitarrey_id) to UBound(tmp_splitarrey_id)
  306. StrSql="INSERT INTO FS_NS_News([NewsID],[PopId],[ClassID],[SpecialEName],[NewsTitle],[CurtTitle],[NewsNaviContent],[isShowReview],[TitleColor],[titleBorder],[TitleItalic],[IsURL],[URLAddress],[Content],[isPicNews],[NewsPicFile],[NewsSmallPicFile],[Templet],[isPop],[Source],[Editor],[Keywords],[Author],[Hits],[SaveNewsPath],[FileName],[FileExtName],[NewsProperty],[TodayNewsPic],[isLock],[isRecyle],[addtime],[isdraft]) VALUES ("
  307. Set Tmp_rs=server.CreateObject(G_FS_RS)
  308. Tmp_rs.open "select * From [FS_NS_News] where isRecyle=0 and ID="&tmp_splitarrey_id(tmp_i)&" order by id desc",Conn,1,3
  309. if Not Tmp_rs.eof then
  310. StrSql=StrSql & "'"&GetRamCode(15)&"'"
  311. StrSql=StrSql & ","&NUllToStr(Tmp_rs("PopId"))&""
  312. StrSql=StrSql & ",'"&str_t_classID&"'"
  313. StrSql=StrSql & ",'"&Tmp_rs("SpecialEName")&"'"
  314. StrSql=StrSql & ",'"&Tmp_rs("NewsTitle")&"'"
  315. StrSql=StrSql & ",'"&Tmp_rs("CurtTitle")&"'"
  316. StrSql=StrSql & ",'"&Tmp_rs("NewsNaviContent")&"'"
  317. StrSql=StrSql & ","&NUllToStr(Tmp_rs("isShowReview"))&""
  318. StrSql=StrSql & ",'"&Tmp_rs("TitleColor")&"'"
  319. StrSql=StrSql & ","&NUllToStr(Tmp_rs("titleBorder"))&""
  320. StrSql=StrSql & ","&NUllToStr(Tmp_rs("TitleItalic"))&""
  321. StrSql=StrSql & ","&NUllToStr(Tmp_rs("IsURL"))&""
  322. StrSql=StrSql & ",'"&Tmp_rs("URLAddress")&"'"
  323. StrSql=StrSql & ",'"&Tmp_rs("Content")&"'"
  324. StrSql=StrSql & ","&NUllToStr(Tmp_rs("isPicNews"))&""
  325. StrSql=StrSql & ",'"&Tmp_rs("NewsPicFile")&"'"
  326. StrSql=StrSql & ",'"&Tmp_rs("NewsSmallPicFile")&"'"
  327. StrSql=StrSql & ",'"&Tmp_rs("Templet")&"'"
  328. StrSql=StrSql & ","&NUllToStr(Tmp_rs("isPop"))&""
  329. StrSql=StrSql & ",'"&Tmp_rs("Source")&"'"
  330. StrSql=StrSql & ",'"&Tmp_rs("Editor")&"'"
  331. StrSql=StrSql & ",'"&Tmp_rs("Keywords")&"'"
  332. StrSql=StrSql & ",'"&Tmp_rs("Author")&"'"
  333. StrSql=StrSql & ","&NUllToStr(Tmp_rs("Hits"))&""
  334. StrSql=StrSql & ",'"&Fs_news.SaveNewsPath(Fs_news.fileDirRule)&"'"
  335. StrSql=StrSql & ",'"&GetRamCode(4)&"'"
  336. StrSql=StrSql & ",'"&Tmp_rs("FileExtName")&"'"
  337. StrSql=StrSql & ",'"&Tmp_rs("NewsProperty")&"'"
  338. StrSql=StrSql & ","&NUllToStr(Tmp_rs("TodayNewsPic"))&""
  339. StrSql=StrSql & ","&NUllToStr(Tmp_rs("isLock"))&""
  340. StrSql=StrSql & ","&NUllToStr(Tmp_rs("isRecyle"))&""
  341. StrSql=StrSql & ",'"&Tmp_rs("addtime")&"'"
  342. StrSql=StrSql & ","&NUllToStr(Tmp_rs("isdraft"))&""
  343. StrSql=StrSql & ")"
  344. 'Response.Write(StrSql&"<br>")
  345. Conn.ExeCute(StrSql)
  346. End if
  347. Next
  348. Elseif  str_Move_type = "ClassID" then
  349. if Trim(str_s_classIDarray)="" then
  350. strShowErr = "<li>请选择要复制栏目下的"& Fs_news.allInfotitle &"!</li>"
  351. set conn=nothing:set user_conn=nothing
  352. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  353. Response.end
  354. End if
  356. tmp_splitarrey_Classid = split(str_s_classIDarray,",")
  357. for tmp_i = LBound(tmp_splitarrey_Classid) to UBound(tmp_splitarrey_Classid)
  358. Set Tmp_rs=server.CreateObject(G_FS_RS)
  359. Tmp_rs.open "select * From [FS_NS_News] where isRecyle=0 and ClassID='"&tmp_splitarrey_Classid(tmp_i)&"' order by id desc",Conn,1,3
  360. ReDim ArrSql(0)
  361. while Not Tmp_rs.eof
  362. StrSql="INSERT INTO FS_NS_News([NewsID],[PopId],[ClassID],[SpecialEName],[NewsTitle],[CurtTitle],[NewsNaviContent],[isShowReview],[TitleColor],[titleBorder],[TitleItalic],[IsURL],[URLAddress],[Content],[isPicNews],[NewsPicFile],[NewsSmallPicFile],[Templet],[isPop],[Source],[Editor],[Keywords],[Author],[Hits],[SaveNewsPath],[FileName],[FileExtName],[NewsProperty],[TodayNewsPic],[isLock],[isRecyle],[addtime],[isdraft]) VALUES ("
  363. StrSql=StrSql & "'"&GetRamCode(15)&"'"
  364. StrSql=StrSql & ","&NUllToStr(Tmp_rs("PopId"))&""
  365. StrSql=StrSql & ",'"&str_t_classID&"'"
  366. StrSql=StrSql & ",'"&Tmp_rs("SpecialEName")&"'"
  367. StrSql=StrSql & ",'"&Tmp_rs("NewsTitle")&"'"
  368. StrSql=StrSql & ",'"&Tmp_rs("CurtTitle")&"'"
  369. StrSql=StrSql & ",'"&Tmp_rs("NewsNaviContent")&"'"
  370. StrSql=StrSql & ","&NUllToStr(Tmp_rs("isShowReview"))&""
  371. StrSql=StrSql & ",'"&Tmp_rs("TitleColor")&"'"
  372. StrSql=StrSql & ","&NUllToStr(Tmp_rs("titleBorder"))&""
  373. StrSql=StrSql & ","&NUllToStr(Tmp_rs("TitleItalic"))&""
  374. StrSql=StrSql & ","&NUllToStr(Tmp_rs("IsURL"))&""
  375. StrSql=StrSql & ",'"&Tmp_rs("URLAddress")&"'"
  376. StrSql=StrSql & ",'"&Tmp_rs("Content")&"'"
  377. StrSql=StrSql & ","&NUllToStr(Tmp_rs("isPicNews"))&""
  378. StrSql=StrSql & ",'"&Tmp_rs("NewsPicFile")&"'"
  379. StrSql=StrSql & ",'"&Tmp_rs("NewsSmallPicFile")&"'"
  380. StrSql=StrSql & ",'"&Tmp_rs("Templet")&"'"
  381. StrSql=StrSql & ","&NUllToStr(Tmp_rs("isPop"))&""
  382. StrSql=StrSql & ",'"&Tmp_rs("Source")&"'"
  383. StrSql=StrSql & ",'"&Tmp_rs("Editor")&"'"
  384. StrSql=StrSql & ",'"&Tmp_rs("Keywords")&"'"
  385. StrSql=StrSql & ",'"&Tmp_rs("Author")&"'"
  386. StrSql=StrSql & ","&NUllToStr(Tmp_rs("Hits"))&""
  387. StrSql=StrSql & ",'"&Fs_news.SaveNewsPath(Fs_news.fileDirRule)&"'"
  388. StrSql=StrSql & ",'"&GetRamCode(4)&"'"
  389. StrSql=StrSql & ",'"&Tmp_rs("FileExtName")&"'"
  390. StrSql=StrSql & ",'"&Tmp_rs("NewsProperty")&"'"
  391. StrSql=StrSql & ","&NUllToStr(Tmp_rs("TodayNewsPic"))&""
  392. StrSql=StrSql & ","&NUllToStr(Tmp_rs("isLock"))&""
  393. StrSql=StrSql & ","&NUllToStr(Tmp_rs("isRecyle"))&""
  394. StrSql=StrSql & ",'"&Tmp_rs("addtime")&"'"
  395. StrSql=StrSql & ","&NUllToStr(Tmp_rs("isdraft"))&""
  396. StrSql=StrSql & ")"
  397. ArrSql(Ubound(ArrSql))=StrSql
  398. ReDim Preserve ArrSql(Ubound(ArrSql)+1)
  399. Tmp_rs.movenext
  400. Wend
  401. 'Response.Write Ubound(ArrSql)
  402. For temp_j=Lbound(ArrSql) to Ubound(ArrSql)
  403. Response.Write(ArrSql(temp_j)&temp_j&"|<br>")
  404. If ArrSql(temp_j)<>"" Then
  405. Conn.Execute(ArrSql(temp_j))
  406. End If
  407. Next
  408. Next
  409. End if
  410. Tmp_rs.close:set Tmp_rs=nothing
  411. strShowErr = "<li>复制成功</li><li>需要重新生成才生效!</li>"
  412. set conn=nothing:set user_conn=nothing
  413. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  414. Response.end
  415. End if
  416. if Request.Form("Action") = "setup_News" then
  417. if not Get_SubPop_TF(str_ClassID,"NS002","NS","news") then Err_Show
  418. Dim str_set_type,C_Set_NewsIDarrey
  419. Dim str_NewsProperty_Rec,str_NewsProperty_mar,str_NewsProperty_rev,str_NewsProperty_constr,str_NewsProperty_tt,str_NewsProperty_hots,str_NewsProperty_jc,str_NewsProperty_unr,str_NewsProperty_ann,str_NewsProperty_filt,str_NewsProperty_Remote
  420. Dim str_NewsProperty_Rec_1,str_NewsProperty_mar_1,str_NewsProperty_rev_1,str_NewsProperty_constr_1,str_NewsProperty_tt_1,str_NewsProperty_hots_1,str_NewsProperty_jc_1,str_NewsProperty_unr_1,str_NewsProperty_ann_1,str_NewsProperty_filt_1,str_NewsProperty_Remote_1
  421. str_s_classIDarray =Replace(Request.Form("s_Classid")," ","")
  422. str_set_type = Trim(Replace(Request.Form("set_type")," ",""))
  423. C_Set_NewsIDarrey = Trim(Replace(Request.Form("Set_NewsID")," ",""))
  424. str_NewsProperty_Rec = Trim(Request.Form("NewsProperty_Rec"))
  425. str_NewsProperty_mar = Trim(Request.Form("NewsProperty_mar"))
  426. str_NewsProperty_rev = Trim(Request.Form("NewsProperty_rev"))
  427. str_NewsProperty_constr =  Trim(Request.Form("NewsProperty_constr"))
  428. str_NewsProperty_tt =   Trim(Request.Form("NewsProperty_tt"))
  429. str_NewsProperty_hots=   Trim(Request.Form("NewsProperty_hots"))
  430. str_NewsProperty_jc=   Trim(Request.Form("NewsProperty_jc"))
  431. str_NewsProperty_unr = Trim(Request.Form("NewsProperty_unr"))
  432. str_NewsProperty_ann = Trim(Request.Form("NewsProperty_ann"))
  433. str_NewsProperty_filt = Trim(Request.Form("NewsProperty_filt"))
  434. str_NewsProperty_Remote = Trim(Request.Form("NewsProperty_Remote"))
  435. if str_set_type = "" then
  436. strShowErr = "<li>请选择是选定的"& Fs_news.allInfotitle &"批量设置还是栏目下"& Fs_news.allInfotitle &"批量设置</li>"
  437. set conn=nothing:set user_conn=nothing
  438. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  439. Response.end
  440. End if
  441. If isnumeric(Trim(Request.Form("hits"))) =false then
  442. strShowErr = "<li>请正确填写点击率</li>"
  443. set conn=nothing:set user_conn=nothing
  444. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  445. Response.end
  446. End if
  447. If isdate(Trim(Request.Form("addtime"))) =false then
  448. strShowErr = "<li>请填写正确的时间格式</li>"
  449. set conn=nothing:set user_conn=nothing
  450. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  451. Response.end
  452. End if
  453. if  str_set_type = "newsid" then
  454. if Trim(C_Set_NewsIDarrey)="" then
  455. strShowErr = "<li>请选择要设置的"& Fs_news.allInfotitle &"ID!</li>"
  456. set conn=nothing:set user_conn=nothing
  457. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  458. Response.end
  459. End if
  460. tmp_splitarrey_id = split(C_Set_NewsIDarrey,",")
  461. for tmp_i = LBound(tmp_splitarrey_id) to UBound(tmp_splitarrey_id)
  462. Set Tmp_rs=server.CreateObject(G_FS_RS)
  463. Tmp_rs.open "select Classid,isUrl,NewsProperty,Templet,PopID,isShowReview,Keywords,hits,addtime,FileExtName From [FS_NS_News] where isRecyle=0 and ID="&tmp_splitarrey_id(tmp_i)&" order by id desc",Conn,1,3
  464. if Not Tmp_rs.eof then
  465. '开始更新新闻数据
  466. if Tmp_rs("isurl") <>1 then
  467. '得到新闻类型参数
  468. if str_NewsProperty_Rec <>"" then:str_NewsProperty_Rec_1 = 1:else:str_NewsProperty_Rec_1 = 0:End if
  469. if str_NewsProperty_mar <>"" then:str_NewsProperty_mar_1 = 1:else:str_NewsProperty_mar_1 = 0:End if
  470. if str_NewsProperty_rev <>"" then:str_NewsProperty_rev_1 = 1:else:str_NewsProperty_rev_1 = 0:End if
  471. if str_NewsProperty_constr <>"" then:str_NewsProperty_constr_1 = 1:else:str_NewsProperty_constr_1 = 0:End if
  472. if str_NewsProperty_tt <>"" then:str_NewsProperty_tt_1 = 1:else:str_NewsProperty_tt_1 = 0:End if
  473. if str_NewsProperty_hots <>"" then:str_NewsProperty_hots_1 = 1:else:str_NewsProperty_hots_1 = 0:End if
  474. if str_NewsProperty_jc <>"" then:str_NewsProperty_jc_1 = 1:else:str_NewsProperty_jc_1 = 0:End if
  475. if str_NewsProperty_unr <>"" then:str_NewsProperty_unr_1 = 1:else:str_NewsProperty_unr_1 = 0:End if
  476. if str_NewsProperty_ann <>"" then:str_NewsProperty_ann_1 = 1:else:str_NewsProperty_ann_1 = 0:End if
  477. if str_NewsProperty_filt <>"" then:str_NewsProperty_filt_1 = 1:else:str_NewsProperty_filt_1 = 0:End if
  478. if str_NewsProperty_Remote <>"" then:str_NewsProperty_Remote_1 = 1:else:str_NewsProperty_Remote_1 = 0:End if
  479. Tmp_rs("NewsProperty") = str_NewsProperty_Rec_1&","&str_NewsProperty_mar_1&","&str_NewsProperty_rev_1&","&str_NewsProperty_constr_1&","&str_NewsProperty_Remote_1&","&str_NewsProperty_tt_1&","&str_NewsProperty_hots_1&","&str_NewsProperty_jc_1&","&str_NewsProperty_unr_1&","&str_NewsProperty_ann_1&","&str_NewsProperty_filt_1
  480. Tmp_rs("Templet")  = Request.Form("Templet")
  481. Tmp_rs("PopID")  = Request.Form("PopID")
  482. if Request.Form("isShowReview")<>"" then
  483. Tmp_rs("isShowReview")  = 1
  484. Else
  485. Tmp_rs("isShowReview")  = 0
  486. End if
  487. Tmp_rs("Keywords")  = Replace(Request.Form("KeywordText")," ","")
  488. Tmp_rs("hits")  = Request.Form("hits")
  489. Tmp_rs("addtime")  = Request.Form("addtime")
  490. Tmp_rs("FileExtName")  = Request.Form("FileExtName")
  491. Tmp_rs.update
  492. End if
  493. End if
  494. Next
  495. Elseif  str_set_type = "classid" then
  496. if Trim(str_s_classIDarray)="" then
  497. strShowErr = "<li>请选择要设定栏目下的"& Fs_news.allInfotitle &"!</li>"
  498. set conn=nothing:set user_conn=nothing
  499. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  500. Response.end
  501. End if
  502. tmp_splitarrey_Classid = split(str_s_classIDarray,",")
  503. for tmp_i = LBound(tmp_splitarrey_Classid) to UBound(tmp_splitarrey_Classid)
  504. Set Tmp_rs=server.CreateObject(G_FS_RS)
  505. Tmp_rs.open "select Classid,isUrl,NewsProperty,Templet,PopID,isShowReview,Keywords,hits,addtime,FileExtName From [FS_NS_News] where isRecyle=0 and ClassID='"&tmp_splitarrey_Classid(tmp_i)&"' order by id desc",Conn,1,3
  506. do while Not Tmp_rs.eof
  507. if Tmp_rs("isUrl")<>1 Then
  508. '更新数据
  509. '得到新闻类型参数
  510. if str_NewsProperty_Rec <>"" then:str_NewsProperty_Rec_1 = 1:else:str_NewsProperty_Rec_1 = 0:End if
  511. if str_NewsProperty_mar <>"" then:str_NewsProperty_mar_1 = 1:else:str_NewsProperty_mar_1 = 0:End if
  512. if str_NewsProperty_rev <>"" then:str_NewsProperty_rev_1 = 1:else:str_NewsProperty_rev_1 = 0:End if
  513. if str_NewsProperty_constr <>"" then:str_NewsProperty_constr_1 = 1:else:str_NewsProperty_constr_1 = 0:End if
  514. if str_NewsProperty_tt <>"" then:str_NewsProperty_tt_1 = 1:else:str_NewsProperty_tt_1 = 0:End if
  515. if str_NewsProperty_hots <>"" then:str_NewsProperty_hots_1 = 1:else:str_NewsProperty_hots_1 = 0:End if
  516. if str_NewsProperty_jc <>"" then:str_NewsProperty_jc_1 = 1:else:str_NewsProperty_jc_1 = 0:End if
  517. if str_NewsProperty_unr <>"" then:str_NewsProperty_unr_1 = 1:else:str_NewsProperty_unr_1 = 0:End if
  518. if str_NewsProperty_ann <>"" then:str_NewsProperty_ann_1 = 1:else:str_NewsProperty_ann_1 = 0:End if
  519. if str_NewsProperty_filt <>"" then:str_NewsProperty_filt_1 = 1:else:str_NewsProperty_filt_1 = 0:End if
  520. if str_NewsProperty_Remote <>"" then:str_NewsProperty_Remote_1 = 1:else:str_NewsProperty_Remote_1 = 0:End if
  521. Tmp_rs("NewsProperty") = str_NewsProperty_Rec_1&","&str_NewsProperty_mar_1&","&str_NewsProperty_rev_1&","&str_NewsProperty_constr_1&","&str_NewsProperty_Remote_1&","&str_NewsProperty_tt_1&","&str_NewsProperty_hots_1&","&str_NewsProperty_jc_1&","&str_NewsProperty_unr_1&","&str_NewsProperty_ann_1&","&str_NewsProperty_filt_1
  522. Tmp_rs("Templet")  = Request.Form("Templet")
  523. Tmp_rs("PopID")  = Request.Form("PopID")
  524. if Request.Form("isShowReview")<>"" then
  525. Tmp_rs("isShowReview")  = 1
  526. Else
  527. Tmp_rs("isShowReview")  = 0
  528. End if
  529. Tmp_rs("Keywords")  = Replace(Request.Form("KeywordText")," ","")
  530. Tmp_rs("hits")  = Request.Form("hits")
  531. Tmp_rs("addtime")  = Request.Form("addtime")
  532. Tmp_rs("FileExtName")  = Request.Form("FileExtName")
  533. Tmp_rs.update
  534. Tmp_rs.movenext
  535. Else
  536. Tmp_rs.movenext
  537. End if
  538. Loop
  539. Next
  540. End if
  541. Tmp_rs.close:set Tmp_rs=nothing
  542. strShowErr = "<li>批量设置成功</li><li>需要重新生成才生效!</li>"
  543. set conn=nothing:set user_conn=nothing
  544. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  545. Response.end
  546. End if
  547. %>
  548. <html xmlns="http://www.w3.org/1999/xhtml">
  549. <head>
  550. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  551. <title>新闻管理___Powered by foosun Inc.</title>
  552. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  553. <script language="JavaScript" type="text/JavaScript" src="../../FS_Inc/PublicJS.js"></script>
  554. </head>
  555. <body>
  556. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  557. <tr class="hback">
  558. <td colspan="3" 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><a href="../../help?Lable=NS_News_Manage" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a>
  559. <%
  560. if Trim(Request.QueryString("ClassID")) <>"" Then
  561. Response.Write "位置：<a href=""News_Manage.asp"" class=""sd""><b>新闻管理</b></a>&nbsp;>>&nbsp;"&Fs_news.GetAdd_ClassName(Request.QueryString("ClassID"))&"  ┆您选择的专题："& server.HTMLEncode(Request.QueryString("SpecialCName"))&""
  562. Else
  563. Response.Write"位置：所有新闻管理  ┆您选择的专题："& server.HTMLEncode(Request.QueryString("SpecialCName"))&""
  564. End if
  565. if str_ClassID<>"" then
  566. news_SQL = "Select Orderid,id,ClassID,ClassName,ClassEName,IsUrl,AddNewsType from FS_NS_NewsClass where Parentid  = '"& str_ClassID &"' and ReycleTF=0 Order by Orderid desc,ID desc"
  567. Else
  568. news_SQL = "Select Orderid,id,ClassID,ClassName,ClassEName,IsUrl,AddNewsType from FS_NS_NewsClass where Parentid  = '0'  and ReycleTF=0  Order by Orderid desc,ID desc"
  569. End if
  570. Set obj_news_rs = server.CreateObject(G_FS_RS)
  571. obj_news_rs.Open news_SQL,Conn,1,3
  572. if fs_news.addNewsType = 1 then str_addType_1 ="News_add.asp":else:str_addType_1 ="News_add_Conc.asp":end if
  573. %>
  574. </td>
  575. </tr>
  576. <tr>
  577. <form name="form1" method="post" action="">
  578. <td width="48%" height="18" class="hback">
  579. <div align="left"><a href="News_Manage.asp">首页</a>┆
  580. <%Response.Write"<a href="""& str_addType_1 &"?ClassID="& Request.QueryString("ClassID")&""">添加"& Fs_news.allInfotitle &"</a>|"%>
  581. <a href="News_Manage.asp?ClassID=<%=Request.QueryString("ClassID")%>">所有<% =  Fs_news.allInfotitle %>
  582. </a> ┆<a href="News_Manage.asp?ClassID=<%=Request.QueryString("ClassID")%>&isCheck=1&Keyword=<%=Request("keyword")%>&ktype=<%=Request("ktype")%>&SpecialEName=<%=str_SpecialEName%>">已审核</a>┆ <a href="News_Manage.asp?ClassID=<%=Request.QueryString("ClassID")%>&SpecialEName=<%=str_SpecialEName%>&isCheck=0&Keyword=<%=Request("keyword")%>&ktype=<%=Request("ktype")%>">未审核</a>┆<a href="News_Manage.asp?ClassID=<%=Request.QueryString("ClassID")%>&SpecialEName=<%=str_SpecialEName%>&NewsTyp=Constr&Keyword=<%=Request("keyword")%>&ktype=<%=Request("ktype")%>">投稿</a>
  583. <%if Request.QueryString("NewsTyp")="Constr" then%>
  584. ┆<a href="Constr_stat.asp">稿件统计</a>
  585. <%end if%>
  586. </div>
  587. </td>
  588. <td width="43%" class="hback">
  589. <div align="center"><a href="News_Manage.asp?ClassID=<%=Request.QueryString("ClassID")%>&SpecialEName=<%=str_SpecialEName%>&NewsTyp=recTF">推荐 </a> ┆<a href="News_Manage.asp?ClassID=<%=Request.QueryString("ClassID")%>&SpecialEName=<%=str_SpecialEName%>&NewsTyp=isTop&Keyword=<%=Request("keyword")%>&ktype=<%=Request("ktype")%>">置顶 </a> ┆<a href="News_Manage.asp?ClassID=<%=Request.QueryString("ClassID")%>&SpecialEName=<%=str_SpecialEName%>&NewsTyp=hot&Keyword=<%=Request("keyword")%>&ktype=<%=Request("ktype")%>">热点 </a> ┆<a href="News_Manage.asp?ClassID=<%=Request.QueryString("ClassID")%>&SpecialEName=<%=str_SpecialEName%>&NewsTyp=pic&Keyword=<%=Request("keyword")%>&ktype=<%=Request("ktype")%>">图片 </a> ┆<a href="News_Manage.asp?ClassID=<%=Request.QueryString("ClassID")%>&SpecialEName=<%=str_SpecialEName%>&NewsTyp=highlight&Keyword=<%=Request("keyword")%>&ktype=<%=Request("ktype")%>">精彩 </a> ┆<a href="News_Manage.asp?ClassID=<%=Request.QueryString("ClassID")%>&SpecialEName=<%=str_SpecialEName%>&NewsTyp=bignews&Keyword=<%=Request("keyword")%>&ktype=<%=Request("ktype")%>">头条 </a> ┆<a href="News_Manage.asp?ClassID=<%=Request.QueryString("ClassID")%>&SpecialEName=<%=str_SpecialEName%>&NewsTyp=filt&Keyword=<%=Request("keyword")%>&ktype=<%=Request("ktype")%>">幻灯片</a>　　</div>
  590. </td>
  591. <td width="9%" class="hback"><a href="Class_Rss.asp?Class=<%=Request.QueryString("ClassID")%>"><img src="../Images/rss200.png" height="15" border="0"></a></td>
  592. </form>
  593. </tr>
  594. </table>
  595. <%
  596.   if Not obj_news_rs.eof then
  597. Response.Write("<table width=""98%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""table""> <tr class=""hback""><td>")
  598. Response.Write("<table width=""100%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" >")
  599. Response.Write("<tr>")
  600. icNum = 0
  601. Do while Not obj_news_rs.eof
  602. if obj_news_rs("AddNewsType") =1 then
  603. str_addType = "News_add.asp"
  604. Else
  605. str_addType ="News_add_Conc.asp"
  606. End if
  607. if obj_news_rs("IsUrl") = 1 then
  608. isUrlStr = "(<span class=""tx"">外</span>)"
  609. str_Href = ""
  610. str_Href_title = ""& obj_news_rs("ClassName") &""
  611. Else
  612. isUrlStr = ""
  613. str_Href = "<a href="& str_addType &"?ClassID="&obj_news_rs("ClassID")&"><img src=""../images/add.gif"" border=""0"" alt=""添加"& Fs_news.allInfotitle &"""></a>"
  614. str_Href_title = "<a href=""News_Manage.asp?ClassID="& obj_news_rs("ClassID") &"&SpecialEName="&str_SpecialEName&""" title=""点击进入下一级栏目"">"& obj_news_rs("ClassName") &"</a>"
  615. End if
  616. Set obj_news_rs_1 = server.CreateObject(G_FS_RS)
  617. obj_news_rs_1.Open "Select Count(ID) from FS_NS_NewsClass where ParentID='"& obj_news_rs("ClassID") &"'",Conn,1,1
  618. if obj_news_rs_1(0)>0 then
  619. str_action=  "<img src=""images/+.gif""></img>"& str_Href_title &""
  620. Else
  621. str_action=  "<img src=""images/-.gif""></img>"& str_Href_title &""
  622. End if
  623. obj_news_rs_1.close:set obj_news_rs_1 =nothing
  624. '得到新闻数量
  625. if obj_news_rs("IsUrl") = 0 then
  626. Set obj_cnews_rs = server.CreateObject(G_FS_RS)
  627. obj_cnews_rs.Open "Select ID from FS_NS_News where ClassID='"& obj_news_rs("ClassID") &"' and  isRecyle=0 and isdraft=0 ",Conn,1,1
  628. news_count = "("&obj_cnews_rs.recordcount&"/"&fs_news.GetTodayNewsCount(obj_news_rs("ClassID"))
  629. obj_cnews_rs.close:set obj_cnews_rs = nothing
  630. Else
  631. news_count = ""
  632. End if
  633. Response.Write"<td height=""22"">"
  634. Response.Write str_action&isUrlStr&news_count&str_Href
  635. Response.Write "</td>"
  636. obj_news_rs.MoveNext
  637. icNum = icNum + 1
  638. if icNum mod 4 = 0 then
  639. Response.Write("</tr><tr>")
  640. End if
  641. loop
  642. Response.Write("</tr></table></td></tr></table>")
  643. End if
  644. If Request.Form("Action") = "SetUp" then
  645. Call GetSetUp()
  646. ElseIf Request.Form("Action") = "move" then
  647. Call GetMove()
  648. Elseif Request.Form("Action") = "copy" then
  649. Call GetCopy()
  650. Elseif Request.Form("Action") = "replace" then
  651. Call Getreplace()
  652. Else
  653. Call Main()
  654. End if
  655. Sub Main()
  656. Call GetFunctionstr
  657. if Request("NewsTyp") = "recTF" Then:str_Rec=" and "& CharIndexStr &"(NewsProperty,1,1)='1'":Else:str_Rec="":End if
  658. if Request("NewsTyp") = "isTop" Then:str_isTop=" and PopID=4 or PoPID=5":Else:str_isTop="":End if
  659. if Request("NewsTyp") = "hot" Then:str_hot=" and "& CharIndexStr &"(NewsProperty,13,1)='1'":Else:str_hot="":End if
  660. if Request("NewsTyp") = "pic" Then:str_pic=" and  isPicNews=1":Else:str_pic="":End if
  661. if Request("NewsTyp") = "highlight" Then:str_highlight=" and "& CharIndexStr &"(NewsProperty,15,1)='1'":Else:str_highlight="":End if
  662. if Request("NewsTyp") = "bignews" Then:str_bignews="  and "& CharIndexStr &"(NewsProperty,11,1)='1'":Else:str_bignews="":End if
  663. if Request("NewsTyp") = "filt" Then:str_filt=" and "& CharIndexStr &"(NewsProperty,21,1)='1'":Else:str_filt="":End if
  664. if Request("NewsTyp") = "Constr" Then:str_Constr=" and "& CharIndexStr &"(NewsProperty,7,1)='1'":Else:str_Constr="":End if
  665. if Trim(Request("Editor")) <>"" then:str_Editor = " and Editor = '"& Request("Editor")&"'":Else:str_Editor = "":End if
  666. if str_ClassID<>"" and len(str_ClassID)=15 then str_ClassID_1 = " and ClassID='"& str_ClassID &"'":Else:str_ClassID_1 = "":End if
  667. if str_SpecialEname<>"" and not isnull(str_SpecialEname) then
  668. if G_IS_SQL_DB=0 then
  669. SQL_SpecialEname = " and instr(1,SpecialEName,'"&str_SpecialEname&"',1)>0"
  670. else
  671. SQL_SpecialEname = " and charindex('"&str_SpecialEname&"',SpecialEName)>0"
  672. end if
  673. Else
  674. SQL_SpecialEname=""
  675. End if
  676. if Request("isCheck") = "1" then
  677. str_check = " and islock=0"
  678. elseif Request("isCheck") = "0" then
  679. str_check = " and islock=1"
  680. Else
  681. str_Check = ""
  682. End if
  683. str_Keyword = Trim(Request("keyword"))
  684. str_ktype =  Trim(Request("ktype"))
  685. if Trim(str_Keyword) <>"" then
  686. if str_ktype = "title" then
  687. str_GetKeyword = " and NewsTitle like '%"& str_Keyword &"%'"
  688. Elseif str_ktype = "content" then
  689. str_GetKeyword = " and content like '%"& str_Keyword &"%'"
  690. Elseif str_ktype = "author" then
  691. str_GetKeyword = " and author like '%"& str_Keyword &"%'"
  692. Elseif str_ktype = "editor" then
  693. str_GetKeyword = " and editor like '%"& str_Keyword &"%'"
  694. End if
  695. Else
  696. str_GetKeyword = ""
  697. End if
  698. strpage=request("page")
  699. if isnull(strpage) or strpage="" or not isnumeric(strpage) Then:strpage=1:end if
  700. if cbool(strpage)<1 then strpage=1
  701. newslist_sql = "Select ID,NewsID,PopID,ClassID,NewsTitle,SpecialEName,IsURL,isPicNews,URLAddress,Editor,Hits,NewsProperty,isLock,isRecyle,addtime,author,source from FS_NS_News where isRecyle=0 and isdraft=0 "& str_Editor & str_Rec & str_isTop & str_hot & str_pic & str_highlight & str_bignews & str_filt & str_Constr & str_ClassID_1 & str_check & SQL_SpecialEname & str_GetKeyword &" Order by PopID desc,addtime desc,ID desc"
  702. Set obj_newslist_rs = Server.CreateObject(G_FS_RS)
  703. obj_newslist_rs.Open newslist_sql,Conn,1,1
  704. %>
  705. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  706. <form name="myForm" method="post" action="">
  707. <tr class="xingmu">
  708. <td colspan="3" class="xingmu">
  709. <div align="center"> </div>
  710. <div align="center">
  711. <% =  Fs_news.allInfotitle %>
  712. 标题</div>
  713. </td>
  714. <td width="12%" class="xingmu">
  715. <div align="center">录入者/编辑</div>
  716. </td>
  717. <td width="9%" class="xingmu">
  718. <div align="center">点击</div>
  719. </td>
  720. <td width="5%" class="xingmu">
  721. <div align="center">审核</div>
  722. </td>
  723. <td width="22%" class="xingmu">
  724. <div align="center">操作</div>
  725. </td>
  726. </tr>
  727. <%
  728. if obj_newslist_rs.eof then
  729.    obj_newslist_rs.close
  730.    set obj_newslist_rs=nothing
  731.    Response.Write"<TR  class=""hback""><TD colspan=""7""  class=""hback"" height=""40"">没有"& Fs_news.allInfotitle &"。</TD></TR>"
  732. else
  733. str_showTF = 1
  734. obj_newslist_rs.PageSize=int_RPP
  735. cPageNo=NoSqlHack(Request.QueryString("Page"))
  736. If cPageNo="" Then cPageNo = 1
  737. If not isnumeric(cPageNo) Then cPageNo = 1
  738. cPageNo = Clng(cPageNo)
  739. If cPageNo<=0 Then cPageNo=1
  740. If cPageNo>obj_newslist_rs.PageCount Then cPageNo=obj_newslist_rs.PageCount
  741. obj_newslist_rs.AbsolutePage=cPageNo
  742. for i=1 to obj_newslist_rs.pagesize
  743. if obj_newslist_rs.eof Then exit For
  744. Str_GetPopID = obj_newslist_rs("PopID")
  745. if Str_GetPopID = 5 then
  746. Str_PopID = "<IMG Src=""images/newstype/5.gif"" border=""0"" alt=""总置顶"& Fs_news.allInfotitle &",点击查看简洁内容"">"
  747. str_Top = "<a href=News_Manage.asp?NewsID="& obj_newslist_rs("NewsID")&"&Action=signUnTop  onClick=""{if(confirm('确定解除总固顶吗？')){return true;}return false;}"">解固</a>"
  748. Elseif Str_GetPopID = 4 then
  749. Str_PopID = "<IMG Src=""images/newstype/4.gif"" border=""0"" alt=""栏目置顶"& Fs_news.allInfotitle &",点击查看简洁内容"">"
  750. str_Top = "<a href=News_Manage.asp?NewsID="& obj_newslist_rs("NewsID")&"&Action=signUnTop  onClick=""{if(confirm('确定解除栏目固顶吗？')){return true;}return false;}"">解固</a>"
  751. Elseif Str_GetPopID = 3 then
  752. Str_PopID = "<IMG Src=""images/newstype/3.gif"" border=""0"" alt=""总推荐"& Fs_news.allInfotitle &",点击查看简洁内容"">"
  753. str_Top = "<a href=News_Manage.asp?NewsID="& obj_newslist_rs("NewsID")&"&Action=signTop  onClick=""{if(confirm('确定固顶吗？')){return true;}return false;}"">固顶</a>"
  754. Elseif Str_GetPopID = 2 then
  755. Str_PopID = "<IMG Src=""images/newstype/2.gif"" border=""0"" alt=""栏目推荐"& Fs_news.allInfotitle &",点击查看简洁内容"">"
  756. str_Top = "<a href=News_Manage.asp?NewsID="& obj_newslist_rs("NewsID")&"&Action=signTop onClick=""{if(confirm('确定固顶吗？')){return true;}return false;}"">固顶</a>"
  757. Elseif Str_GetPopID = 0 then
  758. Str_PopID = "<IMG Src=""images/newstype/0.gif"" border=""0"" alt=""一般"& Fs_news.allInfotitle &",点击查看简洁内容"">"
  759. str_Top = "<a href=News_Manage.asp?NewsID="& obj_newslist_rs("NewsID")&"&Action=signTop onClick=""{if(confirm('确定固顶吗？')){return true;}return false;}"">固顶</a>"
  760. End if
  761. if obj_newslist_rs("isUrl") = 1 then
  762. str_UrlTitle = "<a href="""& obj_newslist_rs("URLAddress") &""" target=""_blank""><Img src=""../images/folder/url.gif"" border=""0"" alt=""标题新闻,点击转到标题地址""></img></a>"
  763. Else
  764. str_UrlTitle = ""
  765. if obj_newslist_rs("isPicNews") = 1 then
  766. tmp_pictf="<a href=""javascript:m_PicUrl('News_Pic_Modify.asp?NewsID="&obj_newslist_rs("NewsID")&"')""><Img src=""../images/folder/img.gif"" alt=""图片新闻,点击更改图片"" border=""0""></img></a>"
  767. else
  768. tmp_pictf="<Img src=""../images/folder/folder_1.gif"" alt=""文字新闻""></img>"
  769. end if
  770. end if
  771. %>
  772. <tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
  773. <td width="3%" class="hback">
  774. <div align="center">
  775. <input name="C_NewsID" type="checkbox" id="C_NewsID" value="<% = obj_newslist_rs("ID")%>">
  776. </div>
  777. </td>
  778. <td width="3%" height="18" class="hback" id=item$pval[CatID]) style="CURSOR: hand"  onmouseup="opencat(M_Newsid<% = obj_newslist_rs("ID")%>);"  language=javascript>
  779. <% = Str_PopID %>
  780. </td>
  781. <td width="46%" class="hback">
  782. <% = str_UrlTitle %>
  783. <% = tmp_pictf %>
  784. <a href="News_edit.asp?NewsID=<% = obj_newslist_rs("NewsID")%>&ClassID=<% = obj_newslist_rs("ClassID")%>" title="添加日期：<% = obj_newslist_rs("addtime")%>">
  785. <% = GotTopic(obj_newslist_rs("Newstitle"),50)%>
  786. </a></td>
  787. <td class="hback">
  788. <div align="center"> <a href="News_Manage.asp?ClassID=<% = Request.QueryString("ClassID")%>&Editor=<% = obj_newslist_rs("Editor")%>">
  789. <% = obj_newslist_rs("Editor")%>
  790. </a> </div>
  791. </td>
  792. <td class="hback">
  793. <div align="center"> <font style="font-size:10px">
  794. <% = obj_newslist_rs("hits")%>
  795. </font> </div>
  796. </td>
  797. <td class="hback">
  798. <div align="center">
  799. <%if obj_newslist_rs("isLock")=1 then response.Write"<a href=""News_Manage.asp?NewsID="& obj_newslist_rs("NewsId") &"&Action=singleCheck"" onClick=""{if(confirm('确定通过审核吗？')){return true;}return false;}""><span class=""tx""><b>×</b></span></a>":else response.Write"<a href=""News_Manage.asp?NewsID="& obj_newslist_rs("NewsId") &"&Action=singleUnCheck"" onClick=""{if(confirm('确定锁定吗？')){return true;}return false;}""><b>√</b></a>"%>
  800. </div>
  801. </td>
  802. <td class="hback">
  803. <div align="center"><a href="News_Review.asp?NewsID=<% = obj_newslist_rs("NewsID")%>&ClassID=<% = obj_newslist_rs("ClassID")%>" target="_blank">预览</a>｜
  804. <% = str_Top%>
  805. ｜<a href="javascript:OpenWindow('lib/Frame.asp?FileName=NewsToJs.asp&Types=PicJs&PageTitle=添加到JS&NewsID=<% = obj_newslist_rs("ID")%>',350,135,window)">加入JS</a> ｜<a href="News_Manage.asp?NewsID=<% = obj_newslist_rs("NewsID")%>&Action=signDel"  onClick="{if(confirm('确定要删除吗？nn如果你在系统参数设置中设置删除<% =  Fs_news.allInfotitle %>到回收站n<% =  Fs_news.allInfotitle %>将删除到回收站中!n必要时候可还原')){return true;}return false;}">删除</a></div>
  806. </td>
  807. </tr>
  808. <tr id="M_Newsid<% = obj_newslist_rs("ID")%>" style="display:none">
  809. <td height="35" colspan="7" class="hback">
  810. <table width="100%" border="0" cellspacing="0" cellpadding="5">
  811. <tr class="hback_1">
  812. <td width="45%" height="20" class="hback_1"><font style="font-size:12px">
  813. <% =  Fs_news.allInfotitle %>
  814. 类型：
  815. <%
  816. if trim(obj_newslist_rs("NewsProperty")) <>"" then
  817. if  split(obj_newslist_rs("NewsProperty"),",")(0) then Response.Write("荐｜")
  818. if  split(obj_newslist_rs("NewsProperty"),",")(1) then Response.Write("滚｜")
  819. if  split(obj_newslist_rs("NewsProperty"),",")(2) then Response.Write("评｜")
  820. if  split(obj_newslist_rs("NewsProperty"),",")(3) then Response.Write("稿｜")
  821. if  split(obj_newslist_rs("NewsProperty"),",")(4) then Response.Write("远图｜")
  822. if  split(obj_newslist_rs("NewsProperty"),",")(5) then Response.Write("头｜")
  823. if  split(obj_newslist_rs("NewsProperty"),",")(6) then Response.Write("热｜")
  824. if  split(obj_newslist_rs("NewsProperty"),",")(7) then Response.Write("精｜")
  825. if  split(obj_newslist_rs("NewsProperty"),",")(8) then Response.Write("规｜")
  826. if  split(obj_newslist_rs("NewsProperty"),",")(9) then Response.Write("公｜")
  827. if  split(obj_newslist_rs("NewsProperty"),",")(10) then Response.Write("幻｜")
  828. else
  829. response.Write("--")
  830. End if
  831. if trim(obj_newslist_rs("SpecialEName"))<>"" then
  832. str_Get_Special = ""
  833. for sp_i = 0 to Ubound(split(obj_newslist_rs("SpecialEName"),","))
  834. dim rs_speical
  835. set rs_speical = Conn.execute("select SpecialCName,SpecialEName From FS_NS_Special where SpecialEName='"& split(obj_newslist_rs("SpecialEName"),",")(sp_i)&"'")
  836. if not rs_speical.eof then
  837. str_Get_Special = str_Get_Special & "<a href=""News_Manage.asp?SpecialEName="&rs_speical("SpecialEName")&"&SpecialCName="&server.URLEncode(rs_speical("SpecialCName"))&""">" &rs_speical("SpecialCName") &"</a>┆"
  838. rs_speical.close:set rs_speical=nothing
  839. else
  840. str_Get_Special = "无专题"
  841. rs_speical.close:set rs_speical=nothing
  842. end if
  843. next
  844. str_Get_Special = str_Get_Special
  845. else
  846. str_Get_Special = "无专题"
  847. end if
  848. %>
  849. 　</font></td>
  850. <td width="22%" class="hback_1"><font style="font-size:12px">日期：
  851. <% = obj_newslist_rs("addtime")%>
  852. </font></td>
  853. <td width="14%" class="hback_1"><font style="font-size:12px">作者： <a href="../../<%=G_USER_DIR%>/showuser.asp?UserName=<% = obj_newslist_rs("author")%>" target="_blank">
  854. <% = obj_newslist_rs("author")%>
  855. </a>
  856. <%
  857. Dim username
  858. username=Fs_News.GetUserNumber(obj_newslist_rs("author"))
  859. if username<>"" then
  860. %>
  861. (<%=Fs_News.newsStat(username,0)%>/<font color="#FF0000"><%=Fs_News.newsStat(username,1)%></font>)
  862. <%End if%>
  863. </font></td>
  864. <td width="19%" class="hback_1"><font style="font-size:12px">来源：
  865. <% = obj_newslist_rs("source")%>
  866. </font></td>
  867. </tr>
  868. <tr class="hback_1">
  869.   <td height="20" class="hback_1"><font style="font-size:12px">所属专题：
  870.       <% = str_Get_Special %>
  871.   </font></td>
  872.   <td class="hback_1">&nbsp;</td>
  873.   <td class="hback_1">&nbsp;</td>
  874.   <td class="hback_1">&nbsp;</td>
  875.   </tr>
  876. </table>
  877. </td>
  878. </tr>
  879. <%
  880.   obj_newslist_rs.MoveNext
  881.   Next
  882. %>
  883. <tr>
  884. <td height="18" colspan="7" class="hback">
  885. <div align="right">
  886. <input type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(this.form);">
  887. 选中/取消所有
  888. <input name="Action" type="hidden" id="Action">
  889. <input name="ClassID" type="hidden" value="<%= Request.QueryString("ClassID") %>">
  890. <input type="button" name="Submit" value="删除"  onClick="document.myForm.Action.value='Del';{if(confirm('确定清除您所选择的记录吗？')){this.document.myForm.submit();return true;}return false;}">
  891. <input type="submit" name="Submit2" value="设置属性" onClick="document.myForm.Action.value='SetUp'">
  892. <input type="submit" name="Submit3" value="移动" onClick="document.myForm.Action.value='move'">
  893. <input type="submit" name="Submit3" value="复制" onClick="document.myForm.Action.value='copy'">
  894. <input type="button" name="Submit4" value="锁定" onClick="document.myForm.Action.value='lock';{if(confirm('确定所选择的记录锁定吗？')){this.document.myForm.submit();return true;}return false;}">
  895. <input type="button" name="Submit42" value="通过审核" onClick="document.myForm.Action.value='unlock';{if(confirm('确定所选择的记录通过审核吗？')){this.document.myForm.submit();return true;}return false;}">
  896. <input type="submit" name="Submit5" value="批量替换" onClick="document.myForm.Action.value='replace'">
  897. <input type="submit" name="Submit52" value="生成HTML" onClick="document.myForm.Action.value='makehtml'">
  898. <input type="Button" name="Submit5222" value="归档" onClick="document.myForm.Action.value='Toold';{if(confirm('确定所选择的记录通过审核吗？')){this.document.myForm.submit();return true;}return false;}" <%if Request.QueryString("ClassId") = ""  then response.Write "disabled"%>>
  899. <input type="Button" name="Submit523" value="加入JS" onClick="AddToJS()">
  900. </div>
  901. </td>
  902. </tr>
  903. </form>
  904. <tr>
  905. <td height="18" colspan="7" class="hback">
  906. <table width="98%" border="0" cellspacing="0" cellpadding="0">
  907. <tr>
  908. <td width="79%" align="right">
  909. <%
  910. response.Write "<p>"&  fPageCount(obj_newslist_rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)
  911. End if
  912. %>
  913. </td>
  914. </tr>
  915. </table>
  916. </td>
  917. </tr>
  918. </table>
  919. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  920. <tr>
  921. <td height="18" colspan="7" class="hback"> <span class="tx">说明：点<img src="images/newstype/0.gif" width="18" height="12">查看<%=Fs_news.allInfotitle %>的属性，点 <img src="../Images/Folder/img.gif" width="20" height="16">图片可以对图片<%=Fs_news.allInfotitle %>进行快捷修改 !</span></td>
  922. </tr>
  923. <tr>
  924. <form name="form2" method="post" action="News_Manage.asp">
  925. <td height="18" colspan="7" class="hback">
  926. <% =  Fs_news.allInfotitle %>
  927. 搜索：关键字
  928. <input name="keyword" type="text" id="keyword" value="<% = Request("keyword")%>" size="20">
  929. <select name="ktype" id="ktype">
  930. <option value="title" <%if Request("ktype")="title" then response.Write("selected")%>>标题</option>
  931. <option value="content" <%if Request("ktype")="content" then response.Write("selected")%>>内容</option>
  932. <option value="author" <%if Request("ktype")="author" then response.Write("selected")%>>作者</option>
  933. <option value="editor" <%if Request("ktype")="editor" then response.Write("selected")%>>录入者/编辑</option>
  934. </select>
  935. <input name="ClassID" type="hidden" id="ClassID" value="<% = str_ClassID %>">
  936. <input type="submit" name="Submit" value=" 搜 索 ">
  937. </td>
  938. </form>
  939. </tr>
  940. </table>
  941. <%
  942. End Sub
  943. Sub GetMove()
  944. Dim str_LockID_move
  945. str_LockID_move = request.Form("C_NewsID")
  946. %>
  947. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  948. <form name="form_m" method="post" action="">
  949. <tr class="xingmu">
  950. <td colspan="3" class="xingmu">请选择需要转移到的栏目 </td>
  951. </tr>
  952. <tr>
  953. <td width="100%" colspan="3" class="hback">指定 I D
  954. <input name="Move_type" type="radio" value="id" <%if trim(str_LockID_move)<>"" then response.Write("checked")%>>
  955. <input name="C_NewsID" type="text" id="C_NewsID" value="<% = Replace(str_LockID_move," ","") %>" readonly style="width:80%">
  956. </td>
  957. </tr>
  958. <tr>
  959. <td class="hback" width="45%">指定栏目
  960. <input name="Move_type" type="radio" value="ClassID"  <%if trim(str_LockID_move)="" then response.Write("checked")%>>
  961. </td>
  962. <td width="10%" rowspan="3" align="center" class="hback">转移到>>></td>
  963. <td width="45%" class="hback">选择要转移到的栏目<Br />注意：目标栏目不能为外部栏目</td>
  964. </tr>
  965. <tr>
  966. <td rowspan="2" class="hback">
  967. <select name="s_Classid" id="select" multiple style="width:100%" size="18">
  968. <%
  969.    Dim rs_movelist_rs,str_tmp_move
  970. Set rs_movelist_rs = server.CreateObject(G_FS_RS)
  971. rs_movelist_rs.Open "Select ID,ClassID,ClassName,ParentID,ReycleTF from FS_NS_NewsClass where ParentID='0'  and ReycleTF=0",Conn,1,3
  972. str_tmp_move = ""
  973. do while not rs_movelist_rs.eof
  974. str_tmp_move = str_tmp_move & "<option value="""& rs_movelist_rs ("ClassID") &""">"& rs_movelist_rs ("ClassName") &"</option>"
  975.    str_tmp_move = str_tmp_move & Fs_news.News_ChildNewsList(rs_movelist_rs("ClassID"),"")
  976.   rs_movelist_rs.movenext
  977.   Loop
  978.    Response.Write str_tmp_move
  979.   rs_movelist_rs.close:set rs_movelist_rs=nothing
  980.           %>
  981. </select>
  982. <input type="button" name="Submit" value="选定所有栏目" onClick="SelectAllClass()">
  983. <input type="button" name="Submit" value="取消选定栏目" onClick="UnSelectAllClass()">
  984. </td>
  985. <td class="hback">
  986. <select name="t_Classid" size="18" id="select"  style="width:100%">
  987. <% = str_tmp_move %>
  988. </select>
  989. </td>
  990. </tr>
  991. <tr>
  992. <td class="hback">&nbsp;</td>
  993. </tr>
  994. <tr>
  995. <td colspan="3" class="hback">
  996. <div align="center">
  997. <input name="Action" type="hidden" id="Action" value="Move_News">
  998. <input type="submit" name="Submit6" value="确定开始转移">
  999. </div>
  1000. </td>
  1001. </tr>
  1002. </form>
  1003. </table>
  1004. <%
  1005. End Sub
  1006. Sub GetCopy()
  1007. Dim str_LockID_move
  1008. str_LockID_move = request.Form("C_NewsID")
  1009. %>
  1010. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  1011. <form name="form_m" method="post" action="">
  1012. <tr class="xingmu">
  1013. <td colspan="3" class="xingmu">请选择需要复制到的栏目 </td>
  1014. </tr>
  1015. <tr>
  1016. <td width="44%" colspan="3" class="hback">指定 I D
  1017. <input name="Move_type" type="radio" value="id" <%if trim(str_LockID_move)<>"" then response.Write("checked")%>>
  1018. <input name="C_NewsID" type="text" id="C_NewsID" value="<% = Replace(str_LockID_move," ","") %>" readonly style="width:75%">
  1019. </td>
  1022. </tr>
  1023. <tr>
  1024. <td width="45%" class="hback">指定栏目
  1025. <input name="Move_type" type="radio" value="ClassID"  <%if trim(str_LockID_move)="" then response.Write("checked")%>>
  1026. </td>
  1027. <td width="10%" rowspan="3" align="center" class="hback">复制到>>></td>
  1028. <td width="45%" class="hback">选择要复制到的栏目<br />注意：目标栏目不能为外部栏目</td>
  1029. </tr>
  1030. <tr>
  1031. <td rowspan="2" class="hback">
  1032. <select name="s_Classid" id="select" multiple style="width:100%" size="18">
  1033. <%
  1034.    Dim rs_movelist_rs,str_tmp_move
  1035. Set rs_movelist_rs = server.CreateObject(G_FS_RS)
  1036. rs_movelist_rs.Open "Select ID,ClassID,ClassName,ParentID,ReycleTF from FS_NS_NewsClass where ParentID='0'  and ReycleTF=0",Conn,1,3
  1037. str_tmp_move = ""
  1038. do while not rs_movelist_rs.eof
  1039. str_tmp_move = str_tmp_move & "<option value="""& rs_movelist_rs ("ClassID") &""">"& rs_movelist_rs ("ClassName") &"</option>"
  1040.    str_tmp_move = str_tmp_move & Fs_news.News_ChildNewsList(rs_movelist_rs("ClassID"),"")
  1041.   rs_movelist_rs.movenext
  1042.   Loop
  1043.    Response.Write str_tmp_move
  1044.   rs_movelist_rs.close:set rs_movelist_rs=nothing
  1045.           %>
  1046. </select>
  1047. <input type="button" name="Submit" value="选定所有栏目" onClick="SelectAllClass()">
  1048. <input type="button" name="Submit" value="取消选定栏目" onClick="UnSelectAllClass()">
  1049. </td>
  1050. <td class="hback">
  1051. <select name="t_Classid" size="18" id="select"  style="width:100%">
  1052. <% = str_tmp_move %>
  1053. </select>
  1054. </td>
  1055. </tr>
  1056. <tr>
  1057. <td class="hback">&nbsp;</td>
  1058. </tr>
  1059. <tr>
  1060. <td colspan="3" class="hback">
  1061. <div align="center">
  1062. <input name="Action" type="hidden" id="Action" value="Copy_News">
  1063. <input type="submit" name="Submit6" value="确定开始复制">
  1064. </div>
  1065. </td>
  1066. </tr>
  1067. </form>
  1068. </table>
  1069. <%
  1070. End Sub
  1071. Sub GetSetUp()
  1072. Dim str_LockID_set
  1073. str_LockID_set = request.Form("C_NewsID")
  1074. %>
  1075. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  1076. <form name="form_m" method="post" action="">
  1077. <tr>
  1078. <td width="36%" rowspan="8" align="center" class="hback">
  1079. <div align="left">指定ＩＤ
  1080. <input name="set_type" type="radio" value="newsid" <%if trim(str_LockID_set)<>"" then response.Write("checked")%>>
  1081. <br>
  1082. 指定栏目
  1083. <input type="radio" name="set_type" value="classid" <%if trim(str_LockID_set)="" then response.Write("checked")%>>
  1084. <select name="s_Classid" id="select" multiple style="width:100%" size="18">
  1085. <%
  1086.    Dim rs_movelist_rs,str_tmp_move
  1087. Set rs_movelist_rs = server.CreateObject(G_FS_RS)
  1088. rs_movelist_rs.Open "Select ID,ClassID,ClassName,ParentID,ReycleTF from FS_NS_NewsClass where ParentID='0'  and ReycleTF=0",Conn,1,3
  1089. str_tmp_move = ""
  1090. do while not rs_movelist_rs.eof
  1091. str_tmp_move = str_tmp_move & "<option value="""& rs_movelist_rs ("ClassID") &""">"& rs_movelist_rs ("ClassName") &"</option>"
  1092.    str_tmp_move = str_tmp_move & Fs_news.News_ChildNewsList(rs_movelist_rs("ClassID"),"")
  1093.   rs_movelist_rs.movenext
  1094.   Loop
  1095.    Response.Write str_tmp_move
  1096.   rs_movelist_rs.close:set rs_movelist_rs=nothing
  1097.           %>
  1098. </select>
  1099. <input type="button" name="Submit" value="选定所有栏目" onClick="SelectAllClass()">
  1100. <input type="button" name="Submit" value="取消选定栏目" onClick="UnSelectAllClass()">
  1101. </div>
  1102. </td>
  1103. <td width="11%" rowspan="8" align="center" class="hback">
  1104. <input name="Set_NewsID" type="hidden" id="Set_NewsID" style="width:95%" value="<% = Replace(str_LockID_set," ","") %>" readonly="readonly">
  1105. 批量设置</td>
  1106. <td width="53%" height="46" class="hback"> 属　性：
  1107. <input name="NewsProperty_Rec" type="checkbox" id="NewsProperty" value="1">
  1108. 推荐
  1109. <input name="NewsProperty_mar" type="checkbox" id="NewsProperty" value="1" checked>
  1110. 滚动
  1111. <input name="NewsProperty_rev" type="checkbox" id="NewsProperty" value="1" checked>
  1112. 允许评论
  1113. <input name="NewsProperty_constr" type="checkbox" id="NewsProperty" value="1">
  1114. 投稿
  1115. <input name="NewsProperty_tt" type="checkbox" id="NewsProperty" value="1">
  1116. 头条 <br>
  1117. <input name="NewsProperty_hots" type="checkbox" id="NewsProperty" value="1">
  1118. 热点
  1119. <input name="NewsProperty_jc" type="checkbox" id="NewsProperty" value="1">
  1120. 精彩
  1121. <input name="NewsProperty_unr" type="checkbox" id="NewsProperty" value="1">
  1122. 不规则
  1123. <input name="NewsProperty_ann" type="checkbox" id="NewsProperty" value="1">
  1124. 公告 <span id="str_filt" style="display1:none" title="请注意所选新闻全是图片新闻！">
  1125. <input name="NewsProperty_filt" type="checkbox" id="NewsProperty" value="1">
  1126. 幻灯</span> </td>
  1127. </tr>
  1128. <tr>
  1129. <td class="hback">模　板：
  1130. <input type="text" name="Templet" value="<%=Replace("/"& G_TEMPLETS_DIR &"/NewsClass/news.htm","//","/")%>" style="width:60%">
  1131. <input name="Submit53" type="button" id="selNewsTemplet" value="选择模板"  onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=Replace(G_VIRTUAL_ROOT_DIR&"/"& G_TEMPLETS_DIR,"//","/") %>',400,300,window,document.form_m.Templet);document.form_m.Templet.focus();">
  1132. </td>
  1133. </tr>
  1134. <tr>
  1135. <td class="hback">权　重：
  1136. <select name="PopID" id="PopID">
  1137. <option value="5">总置顶</option>
  1138. <option value="4">栏目置顶</option>
  1139. <option value="0" selected>一般</option>
  1140. </select>
  1141. </td>
  1142. </tr>
  1143. <tr>
  1144. <td class="hback"> 评　论：
  1145. <input name="isShowReview" type="checkbox" id="isShowReview" value="1">
  1146. 标题后显示&quot;评论&quot;字样</td>
  1147. </tr>
  1148. <tr>
  1149. <td class="hback"> 关键字：
  1150. <input name="KeywordText" type="text" id="KeywordText" size="15" maxlength="255">
  1151. <input name="KeyWords" type="hidden" id="KeyWords">
  1152. <select name="selectKeywords" id="selectKeywords" style="width:120px" onChange=Dokesite_s(this.options[this.selectedIndex].value)>
  1153. <option value="" selected>选择关键字</option>
  1154. <option value="Clean" style="color:red">清空</option>
  1155. <%=Fs_news.GetKeywordslist("",1)%>
  1156. </select>
  1157. </td>
  1158. </tr>
  1159. <tr>
  1160. <td class="hback">点击数：
  1161. <input name="hits" type="text" id="hits" value="0" size="30">
  1162. </td>
  1163. </tr>
  1164. <tr>
  1165. <td class="hback">日　期：
  1166. <input name="addtime" type="text" id="addtime" value="<% = now()%>" size="30">
  1167. </td>
  1168. </tr>
  1169. <tr>
  1170. <td class="hback"> 扩展名：
  1171. <select name="FileExtName" id="FileExtName">
  1172. <option value="html" <%if fs_news.fileExtName = 1 then response.Write("selected")%>>.html</option>
  1173. <option value="htm" <%if fs_news.fileExtName = 0 then response.Write("selected")%>>.htm</option>
  1174. <option value="shtml" <%if fs_news.fileExtName = 2 then response.Write("selected")%>>.shtml</option>
  1175. <option value="shtm" <%if fs_news.fileExtName = 3 then response.Write("selected")%>>.shtm</option>
  1176. <option value="asp" <%if fs_news.fileExtName = 4 then response.Write("selected")%>>.asp</option>
  1177. </select>
  1178. </td>
  1179. </tr>
  1180. <tr>
  1181. <td colspan="3" class="hback">说明：如果为标题
  1182. <% =  Fs_news.allInfotitle %>
  1183. 此设置不起作用</td>
  1184. </tr>
  1185. <tr>
  1186. <td colspan="3" class="hback">
  1187. <div align="center">
  1188. <input name="Action" type="hidden" id="Action" value="setup_News">
  1189. <input type="submit" name="Submit6" value="确定开始设置">
  1190. <input type="reset" name="Submit7" value="重新设定">
  1191. </div>
  1192. </td>
  1193. </tr>
  1194. </form>
  1195. </table>
  1196. <%
  1197. End Sub
  1198. Sub Getreplace()
  1199. Dim str_LockID_rep
  1200. str_LockID_rep = request.Form("C_NewsID")
  1201. %>
  1202. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  1203. <form name="form_m" method="post" action="">
  1204. <tr>
  1205. <td width="36%" rowspan="10" align="center" valign="top" class="hback">
  1206. <div align="left">指定ＩＤ
  1207. <input name="rep_type" type="radio" value="newsid" <%if trim(str_LockID_rep)<>"" then response.Write("checked")%>>
  1208. <br>
  1209. 指定栏目
  1210. <input type="radio" name="rep_type" value="classid" <%if trim(str_LockID_rep)="" then response.Write("checked")%>>
  1211. <select name="s_Classid" id="select" multiple style="width:100%" size="20">
  1212. <%
  1213.    Dim rs_movelist_rs,str_tmp_move
  1214. Set rs_movelist_rs = server.CreateObject(G_FS_RS)
  1215. rs_movelist_rs.Open "Select ID,ClassID,ClassName,ParentID,ReycleTF from FS_NS_NewsClass where ParentID='0' and ReycleTF=0",Conn,1,3
  1216. str_tmp_move = ""
  1217. do while not rs_movelist_rs.eof
  1218. str_tmp_move = str_tmp_move & "<option value="""& rs_movelist_rs ("ClassID") &"""  multiple>"& rs_movelist_rs ("ClassName") &"</option>"
  1219.    str_tmp_move = str_tmp_move & Fs_news.News_ChildNewsList(rs_movelist_rs("ClassID"),"")
  1220.   rs_movelist_rs.movenext
  1221.   Loop
  1222.    Response.Write str_tmp_move
  1223.   rs_movelist_rs.close:set rs_movelist_rs=nothing
  1224.           %>
  1225. </select>
  1226. <input type="button" name="Submit" value="选定所有栏目" onClick="SelectAllClass()">
  1227. <input type="button" name="Submit" value="取消选定栏目" onClick="UnSelectAllClass()">
  1228. </div>
  1229. </td>
  1230. <td width="11%" rowspan="10" align="center" class="hback">
  1231. <input name="rep_NewsID" type="hidden" id="rep_NewsID" style="width:95%" value="<% = Replace(str_LockID_rep," ","") %>" readonly="readonly">
  1232. 批量替换</td>
  1233. <td width="53%" height="20" class="hback">
  1234. <input name="rep_select_type" type="checkbox" id="rep_select_type" value="title">
  1235. 标题
  1236. <input name="rep_select_type" type="checkbox" id="rep_select_type" value="Content" checked>
  1237. 内容 </td>
  1238. </tr>
  1239. <tr>
  1240. <td class="hback">
  1241. <input name="AdvanceTF" type="radio" id="radio" onClick="SwitchNewsType('snews');" value="snews" checked>
  1242. 一般替换
  1243. <input name="AdvanceTF" type="radio" id="AdvanceTF" value="adnews" onClick="SwitchNewsType('adnews');">
  1244. 高级替换</td>
  1245. </tr>
  1246. <tr  id="rep_1" style="display:">
  1247. <td class="hback">要替换的字符<br>
  1248. <textarea name="s_Content" rows="8" id="s_Content" style="width:95%"></textarea>
  1249. </td>
  1250. </tr>
  1251. <tr>
  1252. <td class="hback">替换后的字符</td>
  1253. </tr>
  1254. <tr>
  1255. <td class="hback">
  1256. <textarea name="t_Content" rows="8" id="t_Content" style="width:95%"></textarea>
  1257. </td>
  1258. </tr>
  1259. <tr id="rep_2" style="display:none">
  1260. <td class="hback">开始字符串<br>
  1261. <textarea name="start_char" rows="8" id="start_char" style="width:95%"></textarea>
  1262. </td>
  1263. </tr>
  1264. <tr id="rep_3" style="display:none">
  1265. <td class="hback">结束字符串<br>
  1266. <textarea name="end_char" rows="8" id="end_char" style="width:95%"></textarea>
  1267. </td>
  1268. </tr>
  1269. <tr>
  1270. <td colspan="3" class="hback">
  1271. <div align="center">
  1272. <input name="Action" type="hidden" id="Action" value="Replace_News">
  1273. <input type="submit" name="Submit6" value="确定开始替换">
  1274. <input type="reset" name="Submit7" value="重新设定">
  1275. </div>
  1276. </td>
  1277. </tr>
  1278. </form>
  1279. </table>
  1280. <script language="JavaScript" type="text/JavaScript">
  1281. function SwitchNewsType(AdvanceTF)
  1282. {
  1283. switch (AdvanceTF)
  1284. {
  1285. case "snews":
  1286. document.getElementById('rep_1').style.display='';
  1287. document.getElementById('rep_2').style.display='none';
  1288. document.getElementById('rep_3').style.display='none';
  1289. break;
  1290. case "adnews":
  1291. document.getElementById('rep_1').style.display='none';
  1292. document.getElementById('rep_2').style.display='';
  1293. document.getElementById('rep_3').style.display='';
  1294. }
  1295. }
  1296. </script>
  1297. <%End Sub%>
  1298. </body>
  1299. </html>
  1300. <%
  1301. set obj_newslist_rs = nothing
  1302. obj_news_rs.close
  1303. set obj_news_rs =nothing
  1304. set Fs_news = nothing
  1305. %>
  1306. <script language="javascript" type="text/javascript" src="../../FS_Inc/wz_tooltip.js"></script>
  1307. <script language="JavaScript" type="text/JavaScript" src="js/Public.js"></script>
  1308. <script language="JavaScript" type="text/JavaScript">
  1309. function opencat(cat)
  1310. {
  1311.   if(cat.style.display=="none"){
  1312.      cat.style.display="";
  1313.   } else {
  1314.      cat.style.display="none";
  1315.   }
  1316. }
  1317. function SelectAllClass(){
  1318.   for(var i=0;i<document.form_m.s_Classid.length;i++){
  1319.     document.form_m.s_Classid.options[i].selected=true;}
  1320. }
  1321. function UnSelectAllClass(){
  1322.   for(var i=0;i<document.form_m.s_Classid.length;i++){
  1323.     document.form_m.s_Classid.options[i].selected=false;}
  1324. }
  1326. function CheckAll(form)
  1327.   {
  1328.   for (var i=0;i<form.elements.length;i++)
  1329.     {
  1330.     var e = myForm.elements[i];
  1331.     if (e.name != 'chkall')
  1332.        e.checked = myForm.chkall.checked;
  1333.     }
  1334. }
  1335. function m_PicUrl(gotoURL) {
  1336.    var open_url = gotoURL;
  1337.    window.open(open_url,'','status=0,directories=0,resizable=0,toolbar=0,location=0,scrollbars=1,width=550,height=480');
  1338. }
  1339. function AddToJS()
  1340. {
  1341. var SelectedNews='';
  1342. var ListObjArray=document.myForm.C_NewsID
  1343. for (i=0;i<ListObjArray.length;i++)
  1344. {
  1345. if (ListObjArray[i].checked==true)
  1346. {
  1347. if (ListObjArray[i].value!=null)
  1348. {
  1349. if (!isNaN(ListObjArray[i].value))
  1350. {
  1351. if (SelectedNews=='') SelectedNews=ListObjArray[i].value;
  1352. else  SelectedNews=SelectedNews+'***'+ListObjArray[i].value;
  1353. }
  1354. }
  1355. }
  1356. }
  1357. if (SelectedNews!='') OpenWindow('lib/Frame.asp?FileName=NewsToJs.asp&Types=PicJs&PageTitle=添加到JS&NewsID='+SelectedNews,350,135,window);
  1358. else alert('请选择新闻');
  1359. }
  1360. </script>
  1361. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->
  1362. <%
  1363. Sub Replace_News()
  1364. str_s_classIDarray =Replace(Request.Form("s_Classid")," ","")
  1365. str_rep_type = Trim(Replace(Request.Form("rep_type")," ",""))
  1366. C_NewsIDarrey = Trim(Replace(Request.Form("rep_NewsID")," ",""))
  1367. str_rep_select_type = Trim(Replace(Request.Form("rep_select_type")," ",""))
  1368. str_AdvanceTF = Trim(Replace(Request.Form("AdvanceTF")," ",""))
  1369. str_s_Content = Trim(Replace(Request.Form("s_Content")," ",""))
  1370. str_t_Content = Trim(Replace(Request.Form("t_Content")," ",""))
  1371. str_start_char = Trim(Replace(Request.Form("start_char")," ",""))
  1372. str_end_char = Trim(Replace(Request.Form("end_char")," ",""))
  1374. If str_rep_type = "" Then
  1375. strShowErr = "<li>请选择按 ID/栏目 替换</li>"
  1376. End If
  1377. If str_rep_select_type = "" Then
  1378. strShowErr = strShowErr & "<li>请选择替换 标题/内容</li>"
  1379. End If
  1381. If str_AdvanceTF = "snews" Then
  1382. If str_s_Content="" Then
  1383. strShowErr = strShowErr & "<li>请填写要替换的字符</li>"
  1384. End If
  1385. ElseIf str_AdvanceTF = "adnews" Then
  1386. If str_start_char="" Then
  1387. strShowErr = strShowErr & "<li>请填写要替换的开始字符串</li>"
  1388. End If
  1389. If str_end_char="" Then
  1390. strShowErr = strShowErr & "<li>请填写要替换的结束字符串</li>"
  1391. End If
  1392. Else
  1393. If str_t_Content="" Then
  1394. strShowErr = strShowErr & "<li>请选择 一般/高级 替换</li>"
  1395. End If
  1396. End If
  1397. If str_t_Content="" Then
  1398. strShowErr = strShowErr & "<li>请填写替换后的字符</li>"
  1399. End If
  1400. If strShowErr<>"" Then
  1401. set conn=nothing:set user_conn=nothing
  1402. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  1403. Response.End
  1404. End If
  1405. If str_rep_type = "newsid" then
  1406. If Trim(C_NewsIDarrey)="" Then
  1407. strShowErr = "<li>请选择要替换的"& Fs_news.allInfotitle &"!</li>"
  1408. set conn=nothing:set user_conn=nothing
  1409. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  1410. Response.end
  1411. End if
  1412. 'tmp_splitarrey_id = split(C_NewsIDarrey,",")
  1413. 'for tmp_i = LBound(tmp_splitarrey_id) to UBound(tmp_splitarrey_id)
  1414. Set Tmp_rs=server.CreateObject(G_FS_RS)
  1415. Tmp_rs.open "select NewsTitle,Content From [FS_NS_News] where isRecyle=0 and ID IN ("&C_NewsIDarrey&") order by id desc",Conn,1,3
  1416. While Not Tmp_rs.eof
  1417. If str_AdvanceTF = "snews" Then
  1418. If InStr(str_rep_select_type,"title")>0 Then Tmp_rs("NewsTitle")=Replace(Tmp_rs("NewsTitle"),str_s_Content,str_t_Content)
  1419. If InStr(str_rep_select_type,"Content")>0 Then Tmp_rs("Content")=Replace(Tmp_rs("Content"),str_s_Content,str_t_Content)
  1420. Else
  1421. Set f_PLACE_OBJ = New RegExp
  1422. f_PLACE_OBJ.Pattern = str_start_char&"(.*)"&str_end_char
  1423. f_PLACE_OBJ.IgnoreCase = True
  1424. f_PLACE_OBJ.Global = True
  1425. f_PLACE_OBJ.Multiline = True
  1426. If InStr(str_rep_select_type,"title")>0 Then Tmp_rs("NewsTitle")=f_PLACE_OBJ.Replace(Tmp_rs("NewsTitle"),str_t_Content)
  1427. If InStr(str_rep_select_type,"Content")>0 Then Tmp_rs("Content")=f_PLACE_OBJ.Replace(Tmp_rs("Content"),str_t_Content)
  1428. Set f_PLACE_OBJ = Nothing
  1429. End If
  1430. Tmp_rs.Update
  1431. Tmp_rs.MoveNext
  1432. Wend
  1433. Tmp_rs.close:set Tmp_rs=nothing
  1434. 'Next
  1435. Elseif str_rep_type = "classid" then
  1436. if Trim(str_s_classIDarray)="" then
  1437. strShowErr = "<li>请选择要替换的"& Fs_news.allInfotitle &"栏目!</li>"
  1438. set conn=nothing:set user_conn=nothing
  1439. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  1440. Response.end
  1441. End if
  1443. tmp_splitarrey_Classid = split(str_s_classIDarray,",")
  1444. for tmp_i = LBound(tmp_splitarrey_Classid) to UBound(tmp_splitarrey_Classid)
  1445. Set Tmp_rs=server.CreateObject(G_FS_RS)
  1446. Tmp_rs.open "select ID,NewsTitle,Content From [FS_NS_News] where isRecyle=0 and ClassID='"&tmp_splitarrey_Classid(tmp_i)&"' order by id desc",Conn,1,3
  1447. While Not Tmp_rs.eof
  1448. If str_AdvanceTF = "snews" Then
  1449. If InStr(str_rep_select_type,"title")>0 Then Tmp_rs("NewsTitle")=Replace(Tmp_rs("NewsTitle"),str_s_Content,str_t_Content)
  1450. If InStr(str_rep_select_type,"Content")>0 Then Tmp_rs("Content")=Replace(""&Tmp_rs("Content"),str_s_Content,str_t_Content)
  1451. Else
  1452. Set f_PLACE_OBJ = New RegExp
  1453. f_PLACE_OBJ.Pattern = str_start_char&"(.*)"&str_end_char
  1454. f_PLACE_OBJ.IgnoreCase = True
  1455. f_PLACE_OBJ.Global = True
  1456. f_PLACE_OBJ.Multiline = True
  1457. If InStr(str_rep_select_type,"title")>0 Then Tmp_rs("NewsTitle")=f_PLACE_OBJ.Replace(Tmp_rs("NewsTitle"),str_t_Content)
  1458. If InStr(str_rep_select_type,"Content")>0 Then Tmp_rs("Content")=f_PLACE_OBJ.Replace(""&Tmp_rs("Content"),str_t_Content)
  1459. Set f_PLACE_OBJ = Nothing
  1460. End If
  1461. Tmp_rs.Update
  1462. Tmp_rs.MoveNext
  1463. Wend
  1464. Next
  1465. Tmp_rs.close:set Tmp_rs=nothing
  1466. End if
  1467. strShowErr = "<li>替换成功</li><li>需要重新生成才生效!</li>"
  1468. set conn=nothing:set user_conn=nothing
  1469. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  1470. Response.end
  1471. End Sub
  1472. Function NUllToStr(num)
  1473. If IsNull(num) Then
  1474. NUllToStr=Null
  1475. Else
  1476. NUllToStr=num
  1477. End if
  1478. End Function
  1480. %>