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

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

数据库编程

开发平台：

ASP/ASPX

Collecting.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_Inc/Function.asp"-->
  4. <!--#include file="inc/Function.asp"-->
  5. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  6. <%
  7. Dim Conn,CollectConn
  8. MF_Default_Conn
  9. MF_Collect_Conn
  10. MF_Session_TF
  11. Response.Buffer = true
  12. Response.Expires = -1
  13. Response.ExpiresAbsolute = Now() - 1 
  14. Response.Expires = 0 
  15. Response.CacheControl = "no-cache"
  17. Dim p_SYS_ROOT_DIR,SiteID,ErrorInfoStr,Action,SaveIMGPath,ListHeadSetting,ListFootSetting,LinkHeadSetting,LinkFootSetting
  18. Dim PagebodyHeadSetting,PagebodyFootSetting,PageTitleHeadSetting,PageTitleFootSetting,OtherPageFootSetting,OtherPageHeadSetting
  19. Dim OtherNewsPageHeadSetting,OtherNewsPageFootSetting,AuthorHeadSetting,AuthorFootSetting,SourceHeadSetting,SourceFootSetting
  20. Dim AddDateHeadSetting,AddDateFootSetting,IndexRule,StartPageNum,EndPageNum,HandPageContent,OtherType
  21. Dim IsStyle,IsDiv,IsA,IsClass,IsFont,IsSpan,IsObjectTF,IsIFrame,IsScript,HandSetAuthor,HandSetSource,HandSetAddDate,TextTF,SaveRemotePic,IsReverse
  22. Dim ObjURL,ReturnValue,CollectStartLocation,CollectEndFlag,CollectObjURL,CollectedPageURL,p_DoMain_Str
  23. Dim SiteName,CollectingSiteID,CollectSiteIndex,AllNewsNumber,CollectOKNumber,CollectPageNumber,Num,CollectType
  24. Dim OtherNewsType,OtherNewsPageIndexSetting,OtherNewsPageIndexSettingStartPageNum,OtherNewsPageIndexSettingEndPageNum,OtherNewsPageIndexSettingHandPageContent
  26. if G_VIRTUAL_ROOT_DIR = "" then
  27. p_SYS_ROOT_DIR = ""
  28. else
  29. p_SYS_ROOT_DIR = "/" & G_VIRTUAL_ROOT_DIR
  30. end if
  32. p_DoMain_Str = "http://"&Request.Cookies("FoosunMFCookies")("FoosunMFDomain")
  33. Action = Request("Action")
  34. SiteID = Request("SiteID")
  35. ErrorInfoStr = ""
  36. CollectEndFlag = False
  37. CollectedPageURL = Request("CollectedPageURL")
  38. AllNewsNumber = Request("AllNewsNumber")
  39. if AllNewsNumber = "" then
  40. AllNewsNumber = 0
  41. else
  42. AllNewsNumber = CLng(AllNewsNumber)
  43. end if
  44. CollectOKNumber = Request("CollectOKNumber")
  45. if CollectOKNumber = "" then
  46. CollectOKNumber = 0
  47. else
  48. CollectOKNumber = CLng(CollectOKNumber)
  49. end if
  50. CollectSiteIndex = Request("CollectSiteIndex")
  51. if CollectSiteIndex = "" then
  52. CollectSiteIndex = 0
  53. else
  54. CollectSiteIndex = CInt(CollectSiteIndex)
  55. end if
  56. CollectPageNumber = Request("CollectPageNumber")
  57. if CollectPageNumber = "" then
  58. CollectPageNumber = 0
  59. else
  60. CollectPageNumber = CInt(CollectPageNumber)
  61. end if
  62. CollectStartLocation = Request("CollectStartLocation")
  63. if CollectStartLocation = "" then CollectStartLocation = 0
  64. Num = Request("Num")
  65. If Num = "allNews" Or Num="" Then 
  66. Num = 10
  67. Else
  68. if Not IsNumeric(Num) then
  69. Num = 10
  70. else
  71. Num = CInt(Num)
  72. end if
  73. End If
  74. CollectType = Request("CollectType")
  75. %>
  76. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  77. <html>
  78. <head>
  79. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  80. <title>[site] 管理后台 -- 风讯内容管理系统 FoosunCMS V4.0</title>
  81. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  82. </head>
  83. <script language="JavaScript" src="js/PublicJS.js"></script>
  84. <body topmargin="2" leftmargin="2" oncontextmenu="//return false;">
  85. <table width="100%" border="0" cellpadding="1" cellspacing="1" class="table">
  86.   <tr bgcolor="xingmu"> 
  87.     <td height="26" colspan="5" valign="middle" class="hback">
  88.       <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
  89.         <tr>
  90.           <td style="cursor:hand;" width="35" id="StopCollect" align="center" alt="停止采集" onClick="location.href='Site.asp';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="xingmu">取消</td>
  91.   <td width=2 class="Gray">|</td>
  92.           <td style="cursor:hand;" width="35" id="SaveCollect" align="center" alt="保存采集进度并返回" onClick="location.href='Site.asp';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="xingmu">保存</td>
  93.   <td width=2 class="Gray">|</td>
  94.   <td style="cursor:hand;" width="35" align="center" alt="后退" onClick="history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="xingmu">后退</td>
  95.           <td>&nbsp;</td>
  96.         </tr>
  97.       </table>
  98.     </td>
  99.   </tr>
  100. </table>
  101. <table width="100%" border="0" cellpadding="5" cellspacing="1" class="tabble">
  102.   <tr class="hback_1">
  103.     <td height="20"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  104.         <tr>
  105. <%If CollectType="ResumeCollect" then%>
  106. <td width="50%;" align="right"><font color="#FF0000" id="CollectEndArea">正在续采</font></td>
  107. <%else%>
  108. <td width="50%;" align="right"><font color="#FF0000" id="CollectEndArea">正在采集</font></td>
  109. <%End if%>
  110. <td width="50%;">&nbsp;<font color="#FF0000" id="ShowInfoArea" size="+1">&nbsp;</font></td>
  111.         </tr>
  112.       </table></td>
  113.   </tr>
  114.   <tr> 
  115.     <td valign="middle" class="hback">
  116. <%
  117. if Action = "Submit" then
  118. if SiteID <> "" then
  119. GetCollectPara
  120. If AllNewsNumber>=Num And Num<>0 Then 
  121. CollectEndFlag = True
  122. End If
  123. if CollectEndFlag then
  124. if ErrorInfoStr <> "" then
  125. Response.Write(ErrorInfoStr)
  126. else
  127. ReturnValue = "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>采集结束</strong>： 共读取" & AllNewsNumber & "条新闻，采集成功" & CollectOKNumber & "条新闻。"
  128. Response.Write(ReturnValue)
  129. Response.Write("<script language=""JavaScript"">setTimeout('SetCollectEndStr();',100);</script>")
  130. end if
  131. elseif CollectType<>"ResumeCollect" Then
  132. GetNewsPageContent()
  133. if CollectStartLocation = 0 then
  134. ReturnValue = "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong><font color=red>采集分页" & CollectPageNumber & "</font></strong>：" & "<a target=""_blank"" href=""" & ObjURL & """>" & ObjURL & "</a><br>" & ReturnValue
  135. else
  136. ReturnValue = "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong><font color=red>采集分页" & CollectPageNumber + 1 & "</font></strong>：" & "<a target=""_blank"" href=""" & ObjURL & """>" & ObjURL & "</a><br>" & ReturnValue
  137. end if
  138. ReturnValue = "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong><font color=red>采集站点</font></strong>：" & SiteName & "<br>" & ReturnValue
  139. ReturnValue = "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong><font color=red>采集结果</font></strong>：已经读取" & AllNewsNumber & "条新闻，保存" & CollectOKNumber & "条新闻<br>" & ReturnValue
  140. Response.Write(ReturnValue & "<meta http-equiv=""refresh"" content=""2;url=Collecting.asp?Action=Submit&CollectPageNumber=" & CollectPageNumber & "&SiteID=" & SiteID & "&CollectStartLocation=" & CollectStartLocation & "&CollectedPageURL=" & CollectedPageURL & "&CollectSiteIndex=" & CollectSiteIndex & "&Num=" & Num & "&AllNewsNumber=" & AllNewsNumber & "&CollectOKNumber=" & CollectOKNumber & """>")
  141. else
  142. ResumeGetNewsPageContent()
  143. if CollectStartLocation = 0 then
  144. ReturnValue = "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong><font color=red>采集分页" & CollectPageNumber & "</font></strong>：" & "<a target=""_blank"" href=""" & ObjURL & """>" & ObjURL & "</a><br>" & ReturnValue
  145. else
  146. ReturnValue = "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong><font color=red>采集分页" & CollectPageNumber + 1 & "</font></strong>：" & "<a target=""_blank"" href=""" & ObjURL & """>" & ObjURL & "</a><br>" & ReturnValue
  147. end if
  148. ReturnValue = "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong><font color=red>采集站点</font></strong>：" & SiteName & "<br>" & ReturnValue
  149. ReturnValue = "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong><font color=red>采集结果</font></strong>：已经读取" & AllNewsNumber & "条新闻，续采了" & CollectOKNumber & "条新闻<br>" & ReturnValue
  150. Response.Write(ReturnValue & "<meta http-equiv=""refresh"" content=""2;url=Collecting.asp?Action=Submit&CollectType=ResumeCollect&CollectPageNumber=" & CollectPageNumber & "&SiteID=" & SiteID & "&CollectStartLocation=" & CollectStartLocation & "&CollectedPageURL=" & CollectedPageURL & "&CollectSiteIndex=" & CollectSiteIndex & "&AllNewsNumber=" & AllNewsNumber & "&CollectOKNumber=" & CollectOKNumber & """>")
  151. end if
  152. end if
  153. end if
  154. %>
  155. </td>
  156.   </tr>
  157. </table>
  158. </body>
  159. </html>
  160. <script language="JavaScript">
  161. var ForwardShow=true;
  162. function ShowPromptInfo()
  163. {
  164. var TempStr=document.all.ShowInfoArea.innerText;
  165. if (ForwardShow==true)
  166. {
  167. if (TempStr.length>4) ForwardShow=false;
  168. document.all.ShowInfoArea.innerText=TempStr+'.';
  169. }
  170. else
  171. {
  172. if (TempStr.length==2) ForwardShow=true;
  173. document.all.ShowInfoArea.innerText=TempStr.substr(0,TempStr.length-1);
  174. }
  175. }
  176. function SetCollectEndStr()
  177. {
  178. document.all.CollectEndArea.innerText='采集结束,3秒钟后返回主页面';
  179. setTimeout("location='Site.asp';",3000);
  180. }
  181. window.setInterval('ShowPromptInfo()',500);</script>
  182. <% if Action = "" then %>
  183. <script language="JavaScript">
  184. setTimeout("location='?SiteID=<% = SiteID %>&CollectType=<%= CollectType %>&Action=Submit&Num=<%= Num %>';",10);
  185. </script>
  186. <% end if %>
  187. <%
  188. Set Conn = Nothing
  189. Set CollectConn = Nothing
  190. Function GetCollectPara()
  191. Dim RsSiteObj,Sql,SiteIDArray
  192. if SiteID = "" then
  193. ErrorInfoStr = "没有采集站点，请重试"
  194. Exit Function
  195. end if
  196. SiteIDArray = Split(SiteID,"***")
  197. if CollectSiteIndex > UBound(SiteIDArray) then
  198. CollectEndFlag = True
  199. Exit Function
  200. end if
  201. CollectingSiteID = SiteIDArray(CollectSiteIndex)
  202. Sql = "Select * from FS_Site where ID=" & CollectingSiteID
  203. Set RsSiteObj = CollectConn.Execute(Sql)
  204. if RsSiteObj.Eof then
  205. Set RsSiteObj = Nothing
  206. ErrorInfoStr = "没有采集站点，请重试"
  207. Exit Function
  208. else
  209. SiteName = RsSiteObj("SiteName")
  210. ListHeadSetting = RsSiteObj("ListHeadSetting")
  211. ListFootSetting = RsSiteObj("ListFootSetting")
  212. LinkHeadSetting = RsSiteObj("LinkHeadSetting")
  213. LinkFootSetting = RsSiteObj("LinkFootSetting")
  214. PagebodyHeadSetting = RsSiteObj("PagebodyHeadSetting")
  215. PagebodyFootSetting = RsSiteObj("PagebodyFootSetting")
  216. PageTitleHeadSetting = RsSiteObj("PageTitleHeadSetting")
  217. PageTitleFootSetting = RsSiteObj("PageTitleFootSetting")
  218. OtherPageFootSetting = RsSiteObj("OtherPageFootSetting")
  219. OtherPageHeadSetting = RsSiteObj("OtherPageHeadSetting")
  220. OtherNewsType = RsSiteObj("OtherNewsType")
  221. OtherNewsPageHeadSetting = RsSiteObj("OtherNewsPageHeadSetting")
  222. OtherNewsPageFootSetting = RsSiteObj("OtherNewsPageFootSetting")
  223. OtherNewsPageIndexSetting = RsSiteObj("OtherNewsPageIndexSetting")
  224. OtherNewsPageIndexSettingStartPageNum = RsSiteObj("OtherNewsPageIndexSettingStartPageNum")
  225. OtherNewsPageIndexSettingEndPageNum = RsSiteObj("OtherNewsPageIndexSettingEndPageNum")
  226. OtherNewsPageIndexSettingHandPageContent = RsSiteObj("OtherNewsPageIndexSettingHandPageContent")
  227. AuthorHeadSetting = RsSiteObj("AuthorHeadSetting")
  228. AuthorFootSetting = RsSiteObj("AuthorFootSetting")
  229. SourceHeadSetting = RsSiteObj("SourceHeadSetting")
  230. SourceFootSetting = RsSiteObj("SourceFootSetting")
  231. AddDateHeadSetting = RsSiteObj("AddDateHeadSetting")
  232. AddDateFootSetting = RsSiteObj("AddDateFootSetting")
  233. TextTF = RsSiteObj("TextTF")
  234. SaveRemotePic = RsSiteObj("SaveRemotePic")
  235. CollectObjURL = RsSiteObj("objURL")
  236. Dim p_Root_Path
  237. p_Root_Path = p_SYS_ROOT_DIR & "/" & G_UP_FILES_DIR & "/" & G_SAVE_FILE_PATH
  238. CreatePath Server.MapPath(p_Root_Path & "/" & Year(Date) & "-" & Month(Date) & "/" & Day(Date)),Server.MapPath(p_SYS_ROOT_DIR & "/" & G_UP_FILES_DIR)
  239. SaveIMGPath = p_Root_Path & "/" & Year(Date) & "-" & Month(Date) & "/" & Day(Date)
  240. IsStyle = RsSiteObj("IsStyle")
  241. IsDiv = RsSiteObj("IsDiv")
  242. IsA = RsSiteObj("IsA")
  243. IsClass = RsSiteObj("IsClass")
  244. IsFont = RsSiteObj("IsFont")
  245. IsSpan = RsSiteObj("IsSpan")
  246. IsObjectTF = RsSiteObj("IsObject")
  247. IsIFrame = RsSiteObj("IsIFrame")
  248. IsScript = RsSiteObj("IsScript")
  249. IndexRule = RsSiteObj("IndexRule")
  250. StartPageNum = RsSiteObj("StartPageNum")
  251. EndPageNum = RsSiteObj("EndPageNum")
  252. HandPageContent = RsSiteObj("HandPageContent")
  253. OtherType = RsSiteObj("OtherType")
  254. HandSetAuthor = RsSiteObj("HandSetAuthor")
  255. HandSetSource = RsSiteObj("HandSetSource")
  256. HandSetAddDate = RsSiteObj("HandSetAddDate")
  257. ObjURL = GetOtherURL(CollectPageNumber,RsSiteObj)
  258. IsReverse=RsSiteObj("IsReverse")
  259. if ObjURL = "" then
  260. CollectPageNumber = 0
  261. CollectStartLocation = 0
  262. CollectedPageURL = ""
  263. CollectSiteIndex = CollectSiteIndex + 1
  264. Set RsSiteObj = Nothing
  265. GetCollectPara
  266. Exit Function
  267. else
  268. if CollectPageNumber > G_NEWS_LIST_PAGES_NUMBER then
  269. CollectPageNumber = 0
  270. CollectStartLocation = 0
  271. CollectedPageURL = ""
  272. CollectSiteIndex = CollectSiteIndex + 1
  273. Set RsSiteObj = Nothing
  274. GetCollectPara
  275. Exit Function
  276. end if
  277. end if
  278. end if
  279. Set RsSiteObj = Nothing
  280. End Function
  282. Function GetOtherURL(PageNum,Obj) '取得其他新闻列表的URL
  283. Dim OtherObjURL,OtherResponseAllStr,OtherNewsListArray,i
  284. if PageNum = 0 then
  285. GetOtherURL = CollectObjURL
  286. CollectedPageURL = ""
  287. else
  288. Select Case OtherType
  289. Case 0 '不分页
  290. GetOtherURL = ""
  291. Case 1 '标记分页
  292. if IsNull(OtherPageHeadSetting) OR IsNull(OtherPageFootSetting) OR (OtherPageFootSetting = "") OR (OtherPageHeadSetting = "") then
  293. GetOtherURL = ""
  294. else
  295. if PageNum = 1 then
  296. CollectedPageURL = CollectObjURL
  297. end if
  298. OtherResponseAllStr = GetPageContent(FormatUrl(CollectedPageURL,CollectObjURL))
  299. OtherObjURL = GetOtherContent(OtherResponseAllStr,OtherPageHeadSetting,OtherPageFootSetting)
  300. if OtherObjURL <> "" then
  301. OtherObjURL = FormatUrl(OtherObjURL,CollectObjURL)
  302. else
  303. OtherObjURL = ""
  304. end if
  305. GetOtherURL = OtherObjURL
  306. end if
  307. Case 2 '索引分页
  308. if IsNull(IndexRule) OR (IndexRule = "") OR IsNull(StartPageNum) OR (StartPageNum = "") OR IsNull(EndPageNum) OR (EndPageNum = "") then
  309. GetOtherURL = ""
  310. else
  311. if Not IsNumeric(StartPageNum) OR Not IsNumeric(EndPageNum) then
  312. GetOtherURL = ""
  313. else
  314. if CInt(StartPageNum) < CInt(EndPageNum) Then '按从小到大的页数
  315. if PageNum >= CInt(EndPageNum) then
  316. GetOtherURL = ""
  317. else
  318. if PageNum = 1 then
  319. IndexRule = Replace(FormatUrl(IndexRule,CollectObjURL),"^$^",StartPageNum)
  320. else
  321. StartPageNum = CInt(StartPageNum) + PageNum - 1
  322. IndexRule = Replace(FormatUrl(IndexRule,CollectObjURL),"^$^",StartPageNum)
  323. end if
  324. GetOtherURL = IndexRule
  325. end if
  326. Else  '按从大到小的页数，从而实现倒序采集，比如从10到1
  327. if PageNum >= CInt(StartPageNum) then
  328. GetOtherURL = ""
  329. else
  330. if PageNum = 1 then
  331. IndexRule = Replace(FormatUrl(IndexRule,CollectObjURL),"^$^",StartPageNum)
  332. else
  333. EndPageNum = CInt(StartPageNum) - PageNum + 1
  334. IndexRule = Replace(FormatUrl(IndexRule,CollectObjURL),"^$^",EndPageNum)
  335. end if
  336. GetOtherURL = IndexRule
  337. end if
  338. end if
  339. end if
  340. end if
  341. Case 3 '手工分页
  342. if IsNull(HandPageContent) OR (HandPageContent = "") then
  343. GetOtherURL = ""
  344. ElseIf InStr(HandPageContent,Chr(10))=0 And PageNum<2 Then
  345. GetOtherURL = HandPageContent
  346. Else
  347. HandPageContent = Split(HandPageContent,Chr(10))
  348. if PageNum > UBound(HandPageContent) then
  349. GetOtherURL = ""
  350. else
  351. if HandPageContent(PageNum - 1) <> "" then
  352. GetOtherURL = HandPageContent(PageNum - 1)
  353. else
  354. GetOtherURL = ""
  355. end if
  356. end if
  357. end if
  358. Case Else
  359. GetOtherURL = ""
  360. End Select
  361. end if
  362. End Function
  364. Function GetNewsPageContent()
  365. Dim NewsPageStr,TitleStr,ContentStr,AuthorStr,SourceStr,AddDate,i
  366. Dim ResponseAllStr,NewsListStr,NewsLinkStr,RsCheckNewsObj
  367. Dim NewsListStrArray,TempArray
  368. ResponseAllStr = GetPageContent(FormatUrl(ObjURL,CollectObjURL))
  369. if ResponseAllStr = False then
  370. CollectPageNumber = CollectPageNumber + 1
  371. ReturnValue = ReturnValue & "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>错误</strong>:读取新闻列表页面失败<br>"
  372. Exit Function
  373. end if
  375. Dim BLinkHeadSetting,BLinkFootSetting
  376. BLinkHeadSetting = False
  377. BLinkFootSetting = False
  379. If Instr(LinkHeadSetting,"[变量]")<=0 Then
  380. BLinkHeadSetting = True
  381. ElseIf Instr(LinkFootSetting,"[变量]")<=0 Then
  382. BLinkFootSetting = True
  383. End If
  384. If InStr(ResponseAllStr,ListHeadSetting)>0 And InStr(ResponseAllStr,ListFootSetting) <> 0 Then
  385. NewsListStr = GetOtherContent(ResponseAllStr,ListHeadSetting,ListFootSetting)
  386. Else 
  387. NewsListStr = ResponseAllStr
  388. End If
  390. If BLinkHeadSetting Then
  391. NewsListStr = Mid(NewsListStr,Instr(NewsListStr,LinkHeadSetting)+len(LinkHeadSetting))
  392. NewsListStrArray = Split(NewsListStr,LinkHeadSetting)
  393. elseif BLinkFootSetting Then 
  394. NewsListStr = Left(NewsListStr,InstrRev(NewsListStr,LinkFootSetting))
  395. NewsListStrArray = Split(NewsListStr,LinkFootSetting)
  396. else
  397. NewsListStrArray = Array("")
  398. End If
  401. '倒序采集
  403. If IsReverse="1" then 
  404. Dim TempArr,j
  405. TempArr=NewsListStrArray
  406. For j =0 to UBound(NewsListStrArray)
  407. NewsListStrArray(j)=TempArr(UBound(NewsListStrArray)-j)
  408. Next 
  409. If Num>0 And Num-1<=UBound(NewsListStrArray) Then
  410. TempArr=NewsListStrArray
  411. For j =0 to Num-1 'UBound(NewsListStrArray)
  412. NewsListStrArray(j)=TempArr(UBound(NewsListStrArray)-Num+j+1)
  413. Next 
  414. End If 
  415. End If
  417. For i = CollectStartLocation to CollectStartLocation + CollectMaxOfOnePage - 1
  418. if i > UBound(NewsListStrArray) Or (i >= Num And Num<>0) then
  419. CollectPageNumber = CollectPageNumber + 1
  420. CollectStartLocation = 0
  421. CollectedPageURL = ObjURL
  422. Exit Function
  423. end If
  425. AllNewsNumber = AllNewsNumber + 1
  426. if NewsListStrArray(i) <> "" then
  427. If BLinkHeadSetting=True Then
  428. TempArray = GetOtherContent(LinkHeadSetting&NewsListStrArray(i),LinkHeadSetting,LinkFootSetting) 
  429. ElseIf BLinkFootSetting=True Then 
  430. TempArray = GetOtherContent(NewsListStrArray(i)&LinkFootSetting,LinkHeadSetting,LinkFootSetting) 
  431. End If 
  432. if TempArray <> "" Then
  433. NewsLinkStr = LoseHtml(FormatUrl(TempArray,CollectObjURL))
  434. NewsPageStr = GetPageContent(NewsLinkStr)
  435. if NewsPageStr <> False then
  436. TitleStr = LoseHtml(GetOtherContent(NewsPageStr,PageTitleHeadSetting,PageTitleFootSetting))
  437. Set RsCheckNewsObj = CollectConn.Execute("Select * from FS_News where Links='" & NewsLinkStr & "'")
  438. if Not RsCheckNewsObj.Eof then
  439. ReturnValue = GetOneNewsReturnValue(1,i + 1,TitleStr,"",NewsLinkStr) & ReturnValue
  440. else
  441. ContentStr = ReplaceKeyWords(GetOneNewsContent(NewsPageStr,NewsLinkStr))
  442. ContentStr = ReplaceContentStr(ContentStr)
  443. if SaveRemotePic then ContentStr = ReplaceIMGRemoteUrl(ContentStr,SaveIMGPath,p_DoMain_Str,p_SYS_ROOT_DIR,NewsLinkStr,SaveRemotePic)
  444. if TitleStr = "" then
  445. ReturnValue = GetOneNewsReturnValue(2,i + 1,"","",NewsLinkStr) & ReturnValue
  446. elseif ContentStr = "" then
  447. ReturnValue = GetOneNewsReturnValue(3,i + 1,TitleStr,"",NewsLinkStr) & ReturnValue
  448. else
  449. ReturnValue = GetOneNewsReturnValue(4,i + 1,TitleStr,ContentStr,NewsLinkStr) & ReturnValue
  450. if IsNull(HandSetAuthor) OR (HandSetAuthor = "") then
  451. AuthorStr = LoseHtml(GetOtherContent(NewsPageStr,AuthorHeadSetting,AuthorFootSetting))
  452. else
  453. AuthorStr = HandSetAuthor
  454. end if
  455. if IsNull(HandSetSource) OR (HandSetSource = "") then
  456. SourceStr = LoseHtml(GetOtherContent(NewsPageStr,SourceHeadSetting,SourceFootSetting))
  457. else
  458. SourceStr = HandSetSource
  459. end if
  460. if IsNull(HandSetAddDate) OR Not IsDate(HandSetSource) then
  461. AddDate = LoseHtml(GetOtherContent(NewsPageStr,AddDateHeadSetting,AddDateFootSetting))
  462. else
  463. AddDate = HandSetSource
  464. end if
  465. if AddDate <> "" then
  466. if Not IsDate(AddDate) then AddDate = Now
  467. else
  468. AddDate = Now
  469. end if
  470. SaveCollectContent TitleStr,NewsLinkStr,ContentStr,AuthorStr,SourceStr,AddDate
  471. end if
  472. end if
  473. Set RsCheckNewsObj = Nothing
  474. else
  475. ReturnValue = GetOneNewsReturnValue(5,i + 1,"","",NewsLinkStr) & ReturnValue
  476. end if
  477. else
  478. ReturnValue = GetOneNewsReturnValue(5,i + 1,"","",NewsLinkStr) & ReturnValue
  479. end if
  480. else
  481. ReturnValue = GetOneNewsReturnValue(5,i + 1,"","",NewsLinkStr) & ReturnValue
  482. end if
  483. Next
  484. CollectStartLocation = i
  485. End Function
  487. Function ResumeGetNewsPageContent()
  488. dim ResumeSql,RsResumeNewsObj,ResumeNewsURL,ResumeNewsURL1,ResumeNewsLocation
  489. ResumeSql = "Select top 1 Links from FS_News where SiteID='" & CollectingSiteID &"' order by ID DESC"
  490. Set RsResumeNewsObj = CollectConn.Execute(ResumeSql)
  491. If RsResumeNewsObj.EOF Then 
  492. set RsResumeNewsObj = nothing
  493. response.Write("<script>alert(""无法确定您以前的采集记录，n续采失败！"");history.go(-2);</script>")
  494. else
  495. ResumeNewsURL = RsResumeNewsObj("Links")
  496. set RsResumeNewsObj = nothing
  497. End If
  500. Dim NewsPageStr,TitleStr,ContentStr,AuthorStr,SourceStr,AddDate,i,n
  501. Dim ResponseAllStr,NewsListStr,NewsLinkStr,RsCheckNewsObj
  502. Dim NewsListStrArray,TempArray
  503. ResponseAllStr = GetPageContent(FormatUrl(ObjURL,CollectObjURL))
  504. if ResponseAllStr = False then
  505. CollectPageNumber = CollectPageNumber + 1
  506. ReturnValue = ReturnValue & "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>错误</strong>:读取新闻列表页面失败<br>"
  507. Exit Function
  508. end if
  510. Dim BLinkHeadSetting,BLinkFootSetting
  511. BLinkHeadSetting = False
  512. BLinkFootSetting = False
  513. If Instr(LinkHeadSetting,"[变量]")<=0 Then
  514. BLinkHeadSetting = True
  515. elseif Instr(LinkFootSetting,"[变量]")<=0 Then
  516. BLinkFootSetting = True
  517. End If
  518. If InStr(ResponseAllStr,ListHeadSetting)>0 And InStr(ResponseAllStr,ListFootSetting) Then
  519. NewsListStr = GetOtherContent(ResponseAllStr,ListHeadSetting,ListFootSetting)
  520. Else 
  521. NewsListStr = ResponseAllStr
  522. End If
  524. If BLinkHeadSetting Then
  525. NewsListStr = Mid(NewsListStr,Instr(NewsListStr,LinkHeadSetting)+len(LinkHeadSetting))
  526. NewsListStrArray = Split(NewsListStr,LinkHeadSetting)
  527. elseif BLinkFootSetting Then 
  528. NewsListStr = Left(NewsListStr,InstrRev(NewsListStr,LinkFootSetting))
  529. NewsListStrArray = Split(NewsListStr,LinkFootSetting)
  530. End If
  532. For n = 0 to UBound(NewsListStrArray)
  533. Dim tempURL
  534. tempURL=LoseHtml(FormatUrl(GetOtherContent(LinkHeadSetting&NewsListStrArray(n),LinkHeadSetting,LinkFootSetting),CollectObjURL))
  535. If ResumeNewsURL = tempURL Then
  536. Exit For
  537. ElseIf n>=UBound(NewsListStrArray) Then
  538. AllNewsNumber = AllNewsNumber+n
  539. CollectPageNumber = CollectPageNumber + 1
  540. CollectStartLocation = 0
  541. CollectedPageURL = ObjURL
  542. Exit Function 
  543. End If
  544. Next 
  545. CollectStartLocation = n+1
  547. If IsReverse="1" then '倒序采集
  548. Dim TempArr,j
  549. TempArr=NewsListStrArray
  550. For j =0 to UBound(NewsListStrArray)
  551. NewsListStrArray(j)=TempArr(UBound(NewsListStrArray)-j)
  552. Next 
  553. End If
  555. For i = CollectStartLocation to CollectStartLocation + CollectMaxOfOnePage - 1
  556. if i > UBound(NewsListStrArray) Then
  557. CollectPageNumber = CollectPageNumber + 1
  558. CollectStartLocation = 0
  559. CollectedPageURL = ObjURL
  560. Exit Function
  561. end If
  563. AllNewsNumber = AllNewsNumber + 1
  564. If BLinkHeadSetting Then
  565. TempArray = GetOtherContent(LinkHeadSetting&NewsListStrArray(i),LinkHeadSetting,LinkFootSetting) 
  566. elseif BLinkFootSetting Then 
  567. TempArray = GetOtherContent(NewsListStrArray(i)&LinkFootSetting,LinkHeadSetting,LinkFootSetting) 
  568. End If  
  569. if TempArray <> "" Then
  570. NewsLinkStr = LoseHtml(FormatUrl(TempArray,CollectObjURL))
  571. Set RsCheckNewsObj = CollectConn.Execute("Select * from FS_News where Links='" & NewsLinkStr & "'")
  572. if RsCheckNewsObj.Eof then
  573. NewsPageStr = GetPageContent(NewsLinkStr)
  574. if NewsPageStr <> False then
  575. TitleStr = LoseHtml(GetOtherContent(NewsPageStr,PageTitleHeadSetting,PageTitleFootSetting))
  576. Set RsCheckNewsObj = CollectConn.Execute("Select * from FS_News where Links='" & NewsLinkStr & "'")
  577. ContentStr = ReplaceKeyWords(GetOneNewsContent(NewsPageStr,NewsLinkStr))
  578. ContentStr = ReplaceContentStr(ContentStr)
  579. if SaveRemotePic then ContentStr = ReplaceIMGRemoteUrl(ContentStr,SaveIMGPath,p_DoMain_Str,p_SYS_ROOT_DIR,NewsLinkStr,SaveRemotePic)
  580. if TitleStr = "" then
  581. ReturnValue = GetOneNewsReturnValue(2,i + 1,"","",NewsLinkStr) & ReturnValue
  582. elseif ContentStr = "" then
  583. ReturnValue = GetOneNewsReturnValue(3,i + 1,TitleStr,"",NewsLinkStr) & ReturnValue
  584. else
  585. ReturnValue = GetOneNewsReturnValue(4,i + 1,TitleStr,ContentStr,NewsLinkStr) & ReturnValue
  586. if IsNull(HandSetAuthor) OR (HandSetAuthor = "") then
  587. AuthorStr = LoseHtml(GetOtherContent(NewsPageStr,AuthorHeadSetting,AuthorFootSetting))
  588. else
  589. AuthorStr = HandSetAuthor
  590. end if
  591. if IsNull(HandSetSource) OR (HandSetSource = "") then
  592. SourceStr = LoseHtml(GetOtherContent(NewsPageStr,SourceHeadSetting,SourceFootSetting))
  593. else
  594. SourceStr = HandSetSource
  595. end if
  596. if IsNull(HandSetAddDate) OR Not IsDate(HandSetSource) then
  597. AddDate = LoseHtml(GetOtherContent(NewsPageStr,AddDateHeadSetting,AddDateFootSetting))
  598. else
  599. AddDate = HandSetSource
  600. end if
  601. if AddDate <> "" then
  602. if Not IsDate(AddDate) then AddDate = Now
  603. else
  604. AddDate = Now
  605. end if
  606. SaveCollectContent TitleStr,NewsLinkStr,ContentStr,AuthorStr,SourceStr,AddDate
  607. end if
  608. Set RsCheckNewsObj = Nothing
  609. else
  610. ReturnValue = GetOneNewsReturnValue(5,i + 1,"","",NewsLinkStr) & ReturnValue
  611. End If
  612. ElseIf session("ConfirmCollectRevert")<>"ConfirmCollectRevert" Then
  613. session("ConfirmCollectRevert") = "ConfirmCollectRevert"
  614. response.write("<script>if(confirm(""您改变过采集顺序吗？n如果修改过，请单击确定改回原样再续采！n没有修改过请单击取消继续！""))window.location=""site.asp""</script>")
  615. End If
  616. End If
  617. Next
  618. CollectStartLocation = i
  619. End Function
  621. Function GetOneNewsContent(FirstPageContent,NewsLinkStr)
  622. Dim OtherPageNewsLink,OtherPageNewsContentStr,tempSplitArr1,tempSplitArr2
  623. Dim f_Collect_Index,f_Temp_Array,f_URL,f_Start,f_End,f_Int,f_I
  624. 'On Error Resume Next
  625. f_Collect_Index = 0
  626. OtherPageNewsContentStr = FirstPageContent
  627. GetOneNewsContent = GetOtherContent(FirstPageContent,PagebodyHeadSetting,PagebodyFootSetting)
  628. Select Case OtherNewsType
  629. Case 0
  631. Case 1
  632. if IsNull(OtherNewsPageHeadSetting) OR IsNull(OtherNewsPageFootSetting) OR (OtherNewsPageHeadSetting = "") OR (OtherNewsPageFootSetting = "") Then
  633. OtherPageNewsLink = ""
  634. ElseIf InStr(OtherPageNewsContentStr,OtherNewsPageFootSetting)>0 And InStr(OtherPageNewsContentStr,OtherNewsPageHeadSetting)>0 Then
  635. tempSplitArr1 = Split(OtherPageNewsContentStr,OtherNewsPageHeadSetting)
  636. tempSplitArr2 = Split(tempSplitArr1(1),OtherNewsPageFootSetting)
  637. OtherPageNewsLink = tempSplitArr2(0)
  638. Else
  639. OtherPageNewsLink =  GetOtherContent(OtherPageNewsContentStr,OtherNewsPageHeadSetting,OtherNewsPageFootSetting)
  640. End If
  641. Do While (OtherPageNewsLink <> "")
  642. OtherPageNewsLink = FormatUrl(OtherPageNewsLink,NewsLinkStr)
  643. OtherPageNewsContentStr = GetPageContent(OtherPageNewsLink)
  644. If  InStr(OtherPageNewsContentStr,OtherNewsPageFootSetting)>0 And InStr(OtherPageNewsContentStr,OtherNewsPageHeadSetting)>0 Then
  645. tempSplitArr1 = Split(OtherPageNewsContentStr,OtherNewsPageHeadSetting)
  646. tempSplitArr2 = Split(tempSplitArr1(1),OtherNewsPageFootSetting)
  647. OtherPageNewsLink = tempSplitArr2(0)
  648. Else
  649. OtherPageNewsLink =  GetOtherContent(OtherPageNewsContentStr,OtherNewsPageHeadSetting,OtherNewsPageFootSetting)
  650. End If
  651. If OtherPageNewsContentStr<>False Then
  652. GetOneNewsContent = GetOneNewsContent & "[Page]" & GetOtherContent(OtherPageNewsContentStr,PagebodyHeadSetting,PagebodyFootSetting)
  653. Else
  654. OtherPageNewsLink = ""
  655. End If
  656. If Err Then
  657. Err.clear
  658. OtherPageNewsLink = ""
  659. End If
  660. Loop
  661. Case 2
  662. if IsNull(OtherNewsPageIndexSetting) OR (OtherNewsPageIndexSetting = "") OR IsNull(OtherNewsPageIndexSettingStartPageNum) OR (OtherNewsPageIndexSettingStartPageNum = "") OR IsNull(OtherNewsPageIndexSettingEndPageNum) OR (OtherNewsPageIndexSettingEndPageNum = "") then
  664. else
  665. if Not IsNumeric(OtherNewsPageIndexSettingStartPageNum) OR Not IsNumeric(OtherNewsPageIndexSettingEndPageNum) then
  667. else
  668. f_Start = CInt(OtherNewsPageIndexSettingStartPageNum)
  669. f_End = CInt(OtherNewsPageIndexSettingEndPageNum)
  670. if f_Start > f_End Then
  671. f_Int = f_Start
  672. f_Start = f_End
  673. f_End = f_Int
  674. end if
  675. do while f_Start + f_Collect_Index <= f_End
  676. f_URL = Replace(FormatUrl(OtherNewsPageIndexSetting,CollectObjURL),"^$^",f_Start + f_Collect_Index)
  677. OtherPageNewsLink = FormatUrl(f_URL,NewsLinkStr)
  678. OtherPageNewsContentStr = GetPageContent(OtherPageNewsLink)
  679. If InStr(OtherPageNewsContentStr,OtherNewsPageFootSetting)>0 And InStr(OtherPageNewsContentStr,OtherNewsPageHeadSetting)>0 Then
  680. tempSplitArr1 = Split(OtherPageNewsContentStr,OtherNewsPageHeadSetting)
  681. tempSplitArr2 = Split(tempSplitArr1(1),OtherNewsPageFootSetting)
  682. OtherPageNewsLink = tempSplitArr2(0)
  683. Else
  684. OtherPageNewsLink = GetOtherContent(OtherPageNewsContentStr,OtherNewsPageHeadSetting,OtherNewsPageFootSetting)
  685. End If
  686. If OtherPageNewsContentStr <> False Then GetOneNewsContent = GetOneNewsContent & "[Page]" & GetOtherContent(OtherPageNewsContentStr,PagebodyHeadSetting,PagebodyFootSetting)
  687. If Err Then Err.clear
  688. f_Collect_Index = f_Collect_Index + 1
  689. Loop
  690. end if
  691. end if
  692. Case 3 '手工分页
  693. if IsNull(OtherNewsPageIndexSettingHandPageContent) OR (OtherNewsPageIndexSettingHandPageContent = "") then
  695. Else
  696. f_Temp_Array = Split(OtherNewsPageIndexSettingHandPageContent,Chr(10))
  697. for f_I = LBound(f_Temp_Array) to UBound(f_Temp_Array)
  698. if f_Temp_Array(f_I) <> "" then
  699. OtherPageNewsLink = FormatUrl(f_Temp_Array(f_I),NewsLinkStr)
  700. OtherPageNewsContentStr = GetPageContent(OtherPageNewsLink)
  701. If InStr(OtherPageNewsContentStr,OtherNewsPageFootSetting)>0 And InStr(OtherPageNewsContentStr,OtherNewsPageHeadSetting)>0 Then
  702. tempSplitArr1 = Split(OtherPageNewsContentStr,OtherNewsPageHeadSetting)
  703. tempSplitArr2 = Split(tempSplitArr1(1),OtherNewsPageFootSetting)
  704. OtherPageNewsLink = tempSplitArr2(0)
  705. Else
  706. OtherPageNewsLink = GetOtherContent(OtherPageNewsContentStr,OtherNewsPageHeadSetting,OtherNewsPageFootSetting)
  707. End If
  708. If OtherPageNewsContentStr <> False Then GetOneNewsContent = GetOneNewsContent & "[Page]" & GetOtherContent(OtherPageNewsContentStr,PagebodyHeadSetting,PagebodyFootSetting)
  709. If Err Then Err.clear
  710. end if
  711. Next
  712. end if
  713. Case Else
  715. End Select
  716. End Function 
  718. Function GetOneNewsReturnValue(CauseIndex,NewsIndex,Title,Content,LinkStr)
  719. Select Case CauseIndex
  720. Case 1  '不允许重名保存
  721. GetOneNewsReturnValue = "</br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>序号</strong>： " & NewsIndex
  722. GetOneNewsReturnValue = GetOneNewsReturnValue & "&nbsp;&nbsp;&nbsp;&nbsp;<strong>结果</strong>： <font color=red>已经采集，在等待审核或者在历史纪录里面</font>"
  723. GetOneNewsReturnValue = GetOneNewsReturnValue & "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>标题</strong>： " & Title
  724. GetOneNewsReturnValue = GetOneNewsReturnValue & "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>新闻链接</strong>： <a target=""_blank"" href=""" & LinkStr & """>" & LinkStr & "</a><br>"
  725. Case 2 '标题为空，没有保存
  726. GetOneNewsReturnValue = "</br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>序号</strong>： " & NewsIndex
  727. GetOneNewsReturnValue = GetOneNewsReturnValue & "&nbsp;&nbsp;&nbsp;&nbsp;<strong>结果</strong>： <font color=red>标题为空，没有保存</font>"
  728. GetOneNewsReturnValue = GetOneNewsReturnValue & "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>新闻链接</strong>： <a target=""_blank"" href=""" & LinkStr & """>" & LinkStr & "</a><br>"
  729. Case 3 '内容为空，没有保存
  730. GetOneNewsReturnValue = "</br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>序号</strong>： " & NewsIndex
  731. GetOneNewsReturnValue = GetOneNewsReturnValue & "&nbsp;&nbsp;&nbsp;&nbsp;<strong>结果</strong>： <font color=red>内容为空，没有保存</font>"
  732. GetOneNewsReturnValue = GetOneNewsReturnValue & "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>标题</strong>： " & Title
  733. GetOneNewsReturnValue = GetOneNewsReturnValue & "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>新闻链接</strong>： <a target=""_blank"" href=""" & LinkStr & """>" & LinkStr & "</a><br>"
  734. Case 4 '成功保存
  735. GetOneNewsReturnValue = "</br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>序号</strong>： " & NewsIndex
  736. GetOneNewsReturnValue = GetOneNewsReturnValue & "&nbsp;&nbsp;&nbsp;&nbsp;<strong>结果</strong>： 采集成功"
  737. GetOneNewsReturnValue = GetOneNewsReturnValue & "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>标题</strong>： " & Title
  738. GetOneNewsReturnValue = GetOneNewsReturnValue & "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>内容</strong>： " & Left(LoseHtml(Content),30) & "&nbsp;&nbsp;......"
  739. GetOneNewsReturnValue = GetOneNewsReturnValue & "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>新闻链接</strong>： <a target=""_blank"" href=""" & LinkStr & """>" & LinkStr & "</a><br>"
  740. CollectOKNumber = CollectOKNumber + 1
  741. Case 5 '不能够读取新闻目标页面
  742. GetOneNewsReturnValue = "</br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>序号</strong>： " & NewsIndex
  743. GetOneNewsReturnValue = GetOneNewsReturnValue & "&nbsp;&nbsp;&nbsp;&nbsp;<strong>结果</strong>： <font color=red>不能够读取新闻目标页面</font>"
  744. GetOneNewsReturnValue = GetOneNewsReturnValue & "<br>&nbsp;&nbsp;&nbsp;&nbsp;<strong>新闻链接</strong>： <a target=""_blank"" href=""" & LinkStr & """>" & LinkStr & "</a><br>"
  745. Case else
  746. End Select
  747. End Function
  749. Function SaveCollectContent(Title,Links,Content,Author,SourceString,AddDate)
  750. Dim RsNewsObj,RsTempObj
  751. Set RsNewsObj = Server.CreateObject("Adodb.RecordSet")
  752. RsNewsObj.Open "Select * from FS_News where 1=0",CollectConn,3,3
  753. RsNewsObj.AddNew
  754. RsNewsObj("Title") = LoseHtml(Title)
  755. RsNewsObj("Links") = Links
  756. RsNewsObj("Content") = Content
  757. RsNewsObj("ContentLength") = Len(Content)
  758. RsNewsObj("AddDate") = AddDate
  759. RsNewsObj("ImagesCount") = 0
  760. RsNewsObj("SiteID") = CollectingSiteID
  761. RsNewsObj("Author") = Left(Author,200)
  762. RsNewsObj("IsLock") = 0
  763. RsNewsObj("History") = 0
  764. RsNewsObj("Source") = Left(SourceString,200)
  765. RsNewsObj("ReviewTF") = 0
  766. RsNewsObj.UpDate
  767. RsNewsObj.Close
  768. Set RsNewsObj = Nothing
  769. End Function
  771. Function ReplaceKeyWords(Content)
  772. Dim RsRuleObj,HeadSeting,FootSeting,ReContent,regEx
  773. Set RsRuleObj = CollectConn.Execute("Select * from FS_Rule where SiteID=" & CollectingSiteID)
  774. do while Not RsRuleObj.Eof
  775. HeadSeting = RsRuleObj("HeadSeting")
  776. FootSeting = RsRuleObj("FootSeting")
  777. ReContent = RsRuleObj("ReContent")
  778. if IsNull(FootSeting) or FootSeting = "" then
  779. if HeadSeting <> "" then
  780. Content = Replace(Content,HeadSeting,ReContent)
  781. end if
  782. end if
  783. if Not IsNull(FootSeting) and FootSeting <> "" and Not IsNull(HeadSeting) and HeadSeting <> ""  then
  784. Set regEx = New RegExp
  785. regEx.Pattern = HeadSeting & "[^]*" & FootSeting
  786. regEx.IgnoreCase = False
  787. regEx.Global = True
  788. 'Dim Matches,Match,HaveTF,ShowStr
  789. 'HaveTF = False
  790. 'Set Matches = regEx.Execute(Content)
  791. 'For Each Match in Matches
  792. 'ShowStr = ShowStr & Match.Value & "<br>"
  793. 'HaveTF = True
  794. 'Next
  795. 'if HaveTF = True then
  796. 'Response.Write(ShowStr)
  797. 'Response.End
  798. 'end if
  799. if IsNull(ReContent) then
  800. Content = regEx.Replace(Content,"")
  801. else
  802. Content = regEx.Replace(Content,ReContent)
  803. end if
  804. Set regEx = Nothing
  805. end if
  806. RsRuleObj.MoveNext
  807. loop
  808. Set RsRuleObj = Nothing
  809. ReplaceKeyWords = Content
  810. End Function
  811. %>