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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编辑器/阅读器 > 查看源码
Class-US.asp
资源名称：Codejia.com_Rss.rar　[点击查看]
上传用户：rblchem
上传日期：2022-04-27
资源大小：1941k
文件大小：22k
源码类别：

编辑器/阅读器

开发平台：

C#

Class-US.asp：源码内容
  1. <script language="JavaScript" runat="server">
  2. function rfc_to_iso(DataRCC){
  3. var dateTimeObject = new Date(DataRCC);
  4. if(isNaN(dateTimeObject)){
  5.    var dateTimeObject2 = new Date(DataRCC.substring(0,DataRCC.lastIndexOf(" ")));
  6.    if (isNaN(dateTimeObject2)){
  7.            return DataRCC;
  8.    }
  9.    else{
  10.    return dateTimeObject2.toUsaString();
  11.            }    
  12. }
  13. else{
  14. return dateTimeObject.toUsaString();
  15. }
  16. }
  17. function ZeroPad(n)
  18. {
  19.         if (n < 10)
  20.                 return "0" + n;
  22.         return n;
  23. }
  25. Date.prototype.toUsaString = function()
  26. {
  27.         return (ZeroPad(this.getMonth() + 1)) + "/" +
  28.                 ZeroPad(this.getDate()) + "/" +
  29.                 ZeroPad(this.getFullYear()) + " " +
  30.                 ZeroPad(this.getHours()) + ":" +
  31.                 ZeroPad(this.getMinutes()) + ":" +
  32.                 ZeroPad(this.getSeconds());
  33. }
  35. </script>
  36. <%
  38. Class TCategory
  40. Public ID
  41. Public Name
  42. Public Intro
  43. Public Order
  44. Public Count
  45. Public ParentID
  46. Public sortPath
  49. Public Function Post()
  51. Call CheckParameter(ID,"int",0)
  52. Call CheckParameter(Order,"int",0)
  54. 'ID可以为0
  55. Name=FilterSQL(Name)
  56. Intro=FilterSQL(Intro)
  57. If Len(Name)=0 Then Post=False:Exit Function
  59. If ID=0 Then
  60.     '这句话很有用捉摸一下
  61. conn.Execute("INSERT INTO [Category]([Category_Name],[Category_Order],[Category_Intro],[Category_ParentID],[Category_sortPath]) VALUES ('"&Name&"',"&Order&",'"&Intro&"','"&ParentID&"','"&sortPath&"')")
  62. Else
  63. conn.Execute("UPDATE [Category] set [Category_Name]='"&Name&"',[Category_Order]="&Order&",[Category_Intro]='"&Intro&"',[Category_ParentID]='"&ParentID&"',[Category_sortPath]='"&sortPath&"' WHERE [Category_ID] =" & ID)
  64. End If
  66. Post=True
  68. End Function
  71. Public Function LoadInfoByID(cate_ID)
  73. Call CheckParameter(cate_ID,"int",0)
  76. Set rs=conn.Execute("SELECT * FROM [Category] WHERE [Category_ID]=" & cate_ID)
  78. If (Not rs.bof) And (Not rs.eof) Then
  80. ID=rs("Category_ID")
  81. Name=rs("Category_Name")
  82. Intro=rs("Category_Intro")
  83. Order=rs("Category_Order")
  84. Count=rs("Category_Count")
  85. ParentID=rs("Category_parentID")
  86. sortPath=rs("Category_sortPath")
  88. Else
  89. Exit Function
  90. End If
  92. rs.Close
  93. Set rs=Nothing
  95. LoadInfoByID=True
  97. End Function
  100. Public Function Del()
  101. Call CheckParameter(ID,"int",0)
  102. If (ID=0) Then Del=False:Exit Function
  103. set rs=conn.execute ("select * from [Category] WHERE [Category_ParentID] =" & ID)
  104. If rs.bof Then
  105. conn.Execute("DELETE FROM [LinkXML] WHERE [Category_id]=" & ID)
  106. Conn.Execute("DELETE FROM [Article] WHERE [Category_id]=" & ID)
  107. Conn.Execute("DELETE FROM [Category] WHERE [Category_ParentID] =" & ID)
  108. Conn.Execute("DELETE FROM [Category] WHERE [Category_ID] =" & ID)
  109. Del=True
  110. Else
  111.     Del=False
  112.     End If
  113. End Function
  115. End Class
  117. Class TWebSite
  119. Public ID,Name,CateID,Intro,Url,XML,XmlUrl,Interval,AggregateNumber,Cate,ShenHe,strXmlFile,objXmlFile,Regexp_Description,DescriptionNumber,Regexp_Title,Regexp_Author,ViewOther
  121. Public documentElement,item,title,AuthorType,Author,AuthorText,AuthorText2,pubDate,pubDateTextOriginal,pubDateText,linka,Description,pubDateType,RegExpPattern,RegExpReplace,RegExpText,Elements,Report
  123. Public Function Post()
  124.     If not isobject(conn) then set conn=connectdb
  125.         On Error Resume Next
  126. 'ID可以为0
  127. Call CheckParameter(ID,"int",0)
  128. '这句话必须，如果ID空则插入
  129. Call CheckParameter(CateID,"int",0)
  130. Call CheckParameter(Interval,"int",0)
  132. Name=FilterSQL2(Name)
  133. Intro=FilterSQL2(Intro)
  134. Url=FilterSQL2(Url)
  135. XmlUrl=FilterSQL2(XmlUrl)
  136. Elements=Elements
  138. If Len(Name)=0 Then Post=False:Exit Function
  140. If ID=0 Then
  141. Conn.Execute("INSERT INTO [LinkXML]([title],[Category_id],[Description],[htmlUrl],[linkxml],[shenhe],[Inteval],[AggregateNumber],[Elements],[Other]) VALUES ('"&Name&"',"&CateID&",'"&Intro&"','"&Url&"','"&XmlUrl&"','"&ShenHe&"',"&Interval&","&AggregateNumber&",'"&Elements&"','"&ViewOther&"')")
  142. Else
  143. Conn.Execute("UPDATE [LinkXML] set [title]='"&Name&"',[Category_id]="&CateID&",[Description]='"&Intro&"',[htmlUrl]='"&Url&"',[linkxml]='"&XmlUrl&"',[shenhe]='"&shenhe&"',[Inteval]="&Interval&",[AggregateNumber]="&AggregateNumber&",[Elements]='"&Elements&"',[Other]='"&ViewOther&"' WHERE [id] =" & ID)
  145. Conn.Execute("UPDATE [Article] set [Category_id]="&CateID&" WHERE [xmlid]="&ID)
  146. End If
  148. If Err Then
  149. If err.number=-2147467259 Then
  150.             call Showerr_already
  151. err.clear
  152. Else
  153. call Showerr_unknown(err.number,err.description)
  154. err.clear
  155. End IF
  157. Post=False
  158. Else
  159.     Post=True
  160. End IF
  162. End Function
  164. Public Function LoadSiteInfoByID(site_ID)
  166.     If Not IsObject(Conn) Then set conn=connectdb()
  168. Call CheckParameter(site_ID,"int",0)
  170. Dim objRS
  171. Set objRS=conn.Execute("SELECT * FROM [LinkXML] WHERE [id]=" & site_ID)
  173. If (Not objRS.bof) And (Not objRS.eof) Then
  175. ID=objRS("id")
  176. Name=objRS("title")
  177. CateID=objRS("Category_id")
  178. Intro=objRS("Description")
  179. Url=objRS("htmlUrl")
  180. XmlUrl=objRS("linkxml")
  181. AggregateNumber=objRS("AggregateNumber")
  182. Interval=objRS("Inteval")
  183. ShenHe=objRS("ShenHe")
  184. ViewOther=objRS("Other")
  185. If trim(objRS("Elements"))="" or isnull(objRS("Elements")) or Ubound(Split(objRS("Elements"),"|||"))<>14 then
  186.             Elements=Split("||||||||||||||||||||||||||||||||||||||||||","|||")
  187. else
  188. Elements=Split(objRS("Elements"),"|||")
  189. End IF
  190.             documentElement=Elements(0)
  191. title=Elements(1)
  192. AuthorType=Elements(2)
  193. Author=Elements(3)
  194. AuthorText=Elements(4)
  195. pubDate=Elements(5)
  196. pubDateType=Elements(6)
  197. RegExpPattern=Elements(7)
  198. RegExpReplace=Elements(8)
  199. linka=Elements(9)
  200. Description=Elements(10)
  201. Regexp_Description=Elements(11)
  202.             DescriptionNumber=Elements(12)
  203. Regexp_Title=Elements(13)
  204. Regexp_Author=Elements(14)
  208. Else
  209.       
  210. Exit Function
  211. End If
  213. objRS.Close
  214. Set objRS=Nothing
  216. LoadSiteInfoByID=True
  218. End Function
  221. Public Function Del()
  223. Call CheckParameter(ID,"int",0)
  224. If (ID=0) Then Del=False:Exit Function
  226. Conn.Execute("DELETE FROM [Article] WHERE [xmlid] =" & ID)
  227. Conn.Execute("DELETE FROM [LinkXML] WHERE [id] =" & ID)
  229. Del=True
  231. End Function
  233. Public Function IsViewN()
  235. Call CheckParameter(ID,"int",0)
  236. If (ID=0) Then IsViewN=False:Exit Function
  238. Conn.Execute("UPDATE [LinkXML] set [Other]='N' WHERE [id]="&ID)
  240. IsViewN=True
  242. End Function
  244. Public Function IsViewY()
  246. Call CheckParameter(ID,"int",0)
  247. If (ID=0) Then IsViewY=False:Exit Function
  249. Conn.Execute("UPDATE [LinkXML] set [Other]='Y' WHERE [id]="&ID)
  251. IsViewY=True
  253. End Function
  255. Private Function Showerr(msg1,msg2,msg3)
  256. Report=Report& "<tr><td width=""80%"">"&msg1&"</td><td width=""20%"">"&msg2&"</td></tr><tr><td colspan=""2"">"&msg3&"</td></tr>"
  257. End Function
  259. Private Function Showerr_http(XmlUrl,httpStatus)
  260. Report=Report& "<tr><td width=""80%"">"&XmlUrl&"</td><td width=""20%"">下载失败,描述如下</td></tr><tr><td colspan=""2"">"&Showerr_Desciption(httpStatus)&"</td></tr>"
  261. End Function
  263. Private Function Showerr_Desciption(ErrorID)
  264. Set conn=ConnectDB()
  265. Set RS=conn.execute ("select * from [ErrHandle] where [ErrorID]=" & ErrorID )
  266. If not rs.eof Then
  267. Showerr_Desciption=" 错误代码:"&RS(0)&",错误描述:"&RS(1)&"&nbsp;"&RS(2)
  268. Else
  269. Showerr_Desciption="错误库中没有关于代码为"&ErrorID&"的描述,请向<a href=""http://www.sxna.cn"" target=_blank>www.SXNA.cn</a>报告此问题"
  270. End IF
  271. rs.close:set rs=nothing
  272. CloseDB(conn)
  273. End Function
  275. Private Function Showerr_unknown(err_number,err_description)
  276. Report=Report& "<tr><td width=""80%"">发生未知错误,请向<a href=""http://www.sxna.cn"" target=_blank>www.sxna.cn</a>报告此错误</td><td width=""20%"">描述如下</td></tr><tr><td colspan=""2"">错误代码:"&err_number&",错误描述:"&err_description&"</td></tr>"
  277. End Function
  280. Private Function Showerr_already()
  281. Report=Report&  "<tr><td width=""80%"">这个地址您已经加入了</td><td width=""20%"">地址重复</td></tr><tr><td colspan=""2""><span style=""cursor:hand;color:#FF6600;""><a href=""admin_xml.asp"">按这里请重新输入</a></span></td></tr>"
  282. End Function
  284. Private Function Showerr_NOTXML(XmlUrl,xml_parseError_errorCode)
  285. Report=Report& "<tr><td width=""80%"">"&XmlUrl&"解析失败，不是标准XML文件</td><td width=""20%""></td></tr><tr><td colspan=""2"">错误代码："&xml_parseError_errorCode&"<span style=""cursor:hand;color:#FF6600;"" onclick=""javascript:history.go(-1);"">请重新输入</span>,若仍失败请向<a href=""http://www.sxna.cn"" target=_blank>www.sxna.cn</a>报告</td></tr>"
  286. End Function
  288. Private Function ShowErr2(XmlUrl,Name)
  289. Report=Report& "<tr><td width=""80%"">"&XmlUrl&"</td><td width=""20%"">加入失败</td></tr><tr><td colspan=""2"">该文件<b>"&Name&"</b>部分有错误。<span style=""cursor:hand;color:#FF6600;"" onclick=""javascript:history.go(-1);"">请重新输入</span>,若仍失败请向<a href=""http://www.sxna.cn"" target=_blank>www.sxna.cn</a>报告</td></tr>"
  290. End Function
  293. Public Function GetXml
  294.         on error resume next
  296.             Dim objXMLHTTP
  297. Set objXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
  299. objXMLHTTP.setTimeouts lResolve*1000,lConnect*1000,lSend*1000,lReceive*1000
  300. objXMLHTTP.Open "GET",XmlUrl,False
  301. objXMLHTTP.Send
  303. Select Case ObjXMLHTTP.readyState
  304. Case 0
  305. call Showerr("对象初始化失败,估计你输入了一堆无效的字符....","请检查一下~","错误参数:"&Err.Number&Err.Description)
  306. GetXml=False
  307. Case 1
  308. call Showerr(XmlUrl&"域名分析超时/连接站点超时!也许是这个网站有问题,或许是超时设定太短,或许机器没有联网","请检查","错误参数:"&Err.Number&Err.Description)
  309. GetXml=False
  310. Case 2
  311. call Showerr(XmlUrl&"发送数据请求超时,是不是服务器出故障了?","请检查","错误参数:"&Err.Number&Err.Description)
  312. GetXml=False
  313. Case 3
  314. ContentLength=objXMLHTTP.GetResponseHeader("Content-Length")
  315. If err.number=-2147012746 then
  316. Call Showerr(XmlUrl&"数据下载超时/等待反馈时间超时","原因如下","没有获得文件大小的信息,估计网站有问题,可能是你的等待反馈时间超时设定太短")
  317. Else
  318. Call Showerr(RSSLINK_S&"数据下载超时/等待反馈时间超时","原因如下","该文件大小"&Formatnumber(ContentLength/1000,2)&"KB,下载过程中超过你设定的等待反馈时间超时时间,可能是你的等待反馈时间超时设定太短了,或许这个网站他就是慢...")
  319. End If
  320. Err.clear
  321. GetXml=False
  322. Case 4
  323. ContentLength=objXMLHTTP.GetResponseHeader("Content-Length")
  324. If err.number=-2147012746 then
  325. If objXMLHTTP.Status=200 Then
  326. call Showerr(XmlUrl&"没有找到文件长度信息，估计是这个网站的rss设计有问题","","操作继续..附加头信息供调试"&objXMLHTTP.GetAllResponseHeaders)
  327. strXmlFile=objXMLHTTP.responseBody
  328. GetXml=True
  329. Else
  330. call Showerr_http(XmlUrl,objXMLHTTP.status)
  331. GetXml=False
  332. End If 
  333. err.clear
  334. ElseIf err.number<>0 then
  335. call Showerr(XmlUrl&"有未知错误发生","有错误","错误参数:"&Err.Number&Err.Description)
  336. GetXml=False
  337. err.clear
  338. Else
  339. If objXMLHTTP.Status=200 Then
  340. strXmlFile=objXMLHTTP.responseBody
  341. GetXml=True
  342. Else
  343. call Showerr_http(XmlUrl,objXMLHTTP.status)
  344. GetXml=False
  345. End If
  346. End If
  347. End Select
  348. End Function
  350.    Public Function GetXml2
  351.         ON ERROR RESUME NEXT
  353. Set objXMLHTTP=Server.CreateObject("Microsoft.XMLHTTP")
  354. objXMLHTTP.Open "GET",XmlUrl,False
  355. objXMLHTTP.Send
  356. If objXMLHTTP.Status="200" Then
  357. strXmlFile=objXMLHTTP.responseBody
  358. GetXml2=True
  359. Else
  360. call Showerr_http(XmlUrl,objXMLHTTP.status)
  361. GetXml2=False
  362. Exit Function
  363. End If
  365. If Err Then
  366. call Showerr(Err.description,"","")
  367. Err.clear
  368. GetXml2=False
  369. Exit Function
  370. End IF
  372. End Function
  374. Private Function StrangeTOISO(DataRCC)
  375. StrangeTOISO=ReplaceStr(DataRCC,"(?:D*)(d+)D(d+)D(d+)D(d+)D(d+)D(d+)(?:.*)","$1-$2-$3 $4:$5:$6")
  376. End function
  378. Public Function ParseXml()
  380. Set xml=Server.CreateObject("Microsoft.XMLDOM")
  381. xml.Async=False
  382. xml.ValidateOnParse=False
  383. xml.Load(strXmlFile)
  384. If xml.ReadyState=4 Then
  385. If xml.parseError.errorCode <> 0 Then
  386.         call Showerr_NOTXML(XmlUrl,xml.parseError.errorCode)
  387. ParseXml=False
  388. set xml=nothing
  389. Exit Function
  390. Else
  391.   Set Gen=xml.documentElement
  392.    If Gen is Nothing Then 
  393.    call Showerr_NOTXML(XmlUrl,xml.parseError.errorCode)
  394.    ParseXml=False
  395.    set xml=nothing
  396.    Exit Function
  397.    End If 
  398.  
  399. Set channel=xml.documentElement.selectSingleNode("channel")
  400. If channel is Nothing then
  401.   Set feed=xml.getElementsByTagName("feed")
  402.   set feed=feed(0)
  403.   'ATom
  404.    If feed is Nothing then
  405.    Report=Report&"<tr><td width=""80%"">"&XmlUrl&"不是RSS/ATOM文件</td><td width=""20%""></td></tr><tr><td colspan=""2"">请察看原因</td></tr>"
  406.    ParseXml=False
  407.    set xml=nothing
  408.    Exit Function
  410.    Else
  411.    'FEED分析
  412.    On error resume next
  413.    documentElement="ATOM"
  414.    Url=feed.selectSingleNode("link").getAttributeNode("href").value
  415.    Name=feed.selectSingleNode("title").text
  416.    If Name="" Then Name="未知"
  417.    Intro=feed.selectSingleNode("subtitle").text
  418.    
  419. set item=xml.getElementsByTagName("entry")
  420. Set objtitle=item(0).selectSingleNode("title")
  421. If objtitle is Nothing then 
  422. title=""
  423.   Else
  424. title="title"
  425. End If
  427. Redim NodeAuthor(2)
  428. NodeAuthor(1)="author|item|Multi"
  429. NodeAuthor(2)="author|feed|Single"
  430. For i=1 to Ubound(NodeAuthor)
  431.     If split(NodeAuthor(i),"|")(1)="item" then Set objAuthor=item(0).selectSingleNode(split(NodeAuthor(i),"|")(0))
  432. If split(NodeAuthor(i),"|")(1)="feed" then Set objAuthor=feed.selectSingleNode(split(NodeAuthor(i),"|")(0))
  433. If objAuthor is Nothing then
  434.   If i=Ubound(NodeAuthor) then
  435.   AuthorType="Single"
  436.   Author=""
  437.   AuthorText=feed.selectSingleNode("title").text  
  438.   Exit for
  439.   Else
  440.   End If
  441. Else
  442. Set objname=objAuthor.selectSingleNode("name")
  443.    If objname is Nothing then
  444. AuthorType="Single"
  445. Author=""
  446. AuthorText=feed.selectSingleNode("title").text
  447. Else
  448. AuthorType=split(NodeAuthor(i),"|")(2)
  449. Author="name"
  450. AuthorText=objname.text
  451. End If
  452. Exit For
  453. End If
  454. Next
  455. AuthorText2=AuthorText
  457. AuthorText=PickUpTrueAuthor(AuthorText)
  460. Redim NodepubDate(2)
  461. NodepubDate(1)="updated"
  462. NodepubDate(2)="modified"
  463. For i=1 to Ubound(NodepubDate)
  464. Set objpubDate=item(0).selectSingleNode(NodepubDate(i))
  465. If objpubDate is Nothing then
  466.   If i=Ubound(NodepubDate) then
  467.   pubDate="No"
  468. Exit for
  469.   Else
  470.   End If
  471. Else
  472. pubDate=NodepubDate(i)
  473. RegexpDate(objpubDate)    
  474. pubDateTextOriginal= objpubDate.text
  475. RegExpPattern=""
  476. RegExpReplace=""
  477. Exit For
  478. End If
  479. Next
  482. If NOT ISDATE(pubDateText) Then
  483.                 pubDateType="Type3"
  484. End IF
  486.  Set objlink=item(0).selectSingleNode("link")
  487.    If objlink is Nothing then 
  488.    linka=""
  489. Else
  490.    linka="link"
  491. End If
  493.  Set objDescription=item(0).selectSingleNode("summary")
  494. If objDescription is Nothing then
  495.    set objDescription=item(0).selectSingleNode("content")
  496.    If objDescription is Nothing then
  497.    Description="title"
  498.    Else
  499.        Description="content"
  500.    End If
  501. Else
  502. Description="summary"
  503. End If
  505.                            AggregateNumber=item.Length
  506.    Regexp_Description="0"
  507.    Regexp_Author="0"
  508.    Regexp_Title="0"
  509.                            DescriptionNumber=""
  510.    ParseXml=True
  511.    End IF'ATOM分析结束
  512. Else
  513.   'RSS分析开始
  514.   On error resume next
  515.  
  516.                   documentElement="RSS"
  517.   Url=channel.selectSingleNode("link").text
  518.   Name=channel.selectSingleNode("title").text
  519.   If Name="" Then Name="未知"
  520.   Intro=channel.selectSingleNode("description").text
  521.                   
  522.   Set item=xml.getElementsByTagName("item")
  523.                   Set item=item(0)
  524.   Set objtitle=item.selectSingleNode("title")
  525. If objtitle is Nothing then 
  526.    title=""
  527. Else
  528.    title="title"
  529. End If
  531. Redim NodeAuthor(4)
  532. NodeAuthor(1)="author|item|Multi"
  533. NodeAuthor(2)="dc:creator|item|Multi"
  534. NodeAuthor(3)="dc:creator|channel|Single"
  535. NodeAuthor(4)="source|channel|Single"
  537. For i=1 to Ubound(NodeAuthor)
  538. SplitedNodeAuthor=split(NodeAuthor(i),"|")
  539. If SplitedNodeAuthor(1)="item" then Set objAuthor=item.selectSingleNode(SplitedNodeAuthor(0))
  540. If SplitedNodeAuthor(1)="channel" then Set objAuthor=channel.selectSingleNode(SplitedNodeAuthor(0))
  541. If objAuthor is Nothing then
  542.   If i=Ubound(NodeAuthor) then
  543.    IF RegExpTest("msn.com",XmlUrl) then
  544.   AuthorType="Single"
  545.   Author=""
  546.   AuthorText=split(XmlUrl,"/")(4)
  547.    ElseIf RegExpTest("yculblog.com",XmlUrl) then
  548.    AuthorType="Single"
  549.    Author=""
  550.    AuthorText=split(split(XmlUrl,"/")(2),".")(0)
  551.    Else
  552. Set objAuthor=channel.selectSingleNode("webMaster")
  553.    If objAuthor is Nothing then
  554. AuthorType="Single"
  555. Author=""
  556. AuthorText=xml.documentElement.selectSingleNode("channel").selectSingleNode("title").text
  557. Else
  558. AuthorType="Single"
  559. Author=""
  560. AuthorText=objAuthor.text
  561. End IF
  562.   Exit for
  564.   End If
  565.  End If
  566. Else
  567. AuthorType=SplitedNodeAuthor(2)
  568. Author=SplitedNodeAuthor(0)
  569. AuthorText=objAuthor.text
  570. Exit For
  571. End If
  572. Next
  574. AuthorText2=AuthorText
  576.             AuthorText=PickUpTrueAuthor(AuthorText)
  578.             
  580.             Redim NodepubDate(5)
  581. NodepubDate(1)="pubDate"
  582. NodepubDate(2)="dc:date"
  583. NodepubDate(3)="PubDate"
  584. NodepubDate(4)="pubdate"
  585. NodepubDate(5)="Pubdate"
  586. For i=1 to Ubound(NodepubDate)
  587. Set objpubDate=item.selectSingleNode(NodepubDate(i))
  588. If objpubDate is Nothing then
  589.   If i=Ubound(NodepubDate) then
  590.                   pubDate="No"
  591.     Exit for
  592.   Else
  593.   End If
  594. Else
  595. pubDate=NodepubDate(i)
  596. RegexpDate(objpubDate)    
  597. pubDateTextOriginal= objpubDate.text
  598. RegExpPattern=""
  599.     RegExpReplace=""
  600. Exit For
  601. End If
  602. Next
  604. If NOT ISDATE(pubDateText) Then
  605.  pubDateType="Type3"
  606.  If RegExpTest("pconline.com.cn",XmlUrl) Then 
  607.   pubDate="pubDate"
  608.   RegExpPattern=".0"
  609.   RegExpReplace=""
  610.  End If         
  611.  If RegExpTest("tianyablog.com",XmlUrl) Then 
  612.   pubDate="comments"
  613.   pubDateType="Type1"
  614.   pubDateTextOriginal=item.selectSingleNode(pubDate).text
  615.   pubDateText=StrangeTOISO(pubDateTextOriginal)
  616.   RegExpPattern=""
  617.   RegExpReplace=""
  618.  End If 
  619. End IF
  621.    Set objlink=item.selectSingleNode("link")
  622. If objlink is Nothing then 
  623.    linka=""
  624. Else
  625.    linka="link"
  626. End If
  628.    Set objDescription=item.selectSingleNode("description")
  629. If objDescription is Nothing then
  630.    Description="title"
  631. Else
  632.    Description="description"
  633. End If
  635.   Set Objitemnodes=Xml.Getelementsbytagname("item")
  636. Aggregatenumber=Objitemnodes.Length
  637.                     Regexp_Description="0"
  638.     Regexp_Author="0"
  639.     Regexp_Title="0"
  640.                     DescriptionNumber=""
  641.   ParseXml=True
  642. End IF
  644. End IF 'xml.parseError.errorCode <> 0
  645. End If'xml.ReadyState=4
  647. End Function
  649. Private Function PickUpTrueAuthor(Text)
  650.       IF RegExpTest("(.+)",Text) then
  651.         Set SRegExp=New RegExp
  652. SRegExp.IgnoreCase =True
  653. SRegExp.Global=True
  654. SRegExp.Pattern="(.+)"
  655. Set Match = SRegExp.Execute(Text)
  656. IF MATCH.COUNT<>0 THEN
  657. PickUpTrueAuthor=Match(0).value
  658.                     PickUpTrueAuthor=Replace(PickUpTrueAuthor,CHR(40),"")
  659.                     PickUpTrueAuthor=Replace(PickUpTrueAuthor,CHR(41),"")
  660. Else
  661. PickUpTrueAuthor=Text
  662. End IF
  663.                 Set SRegExp=Nothing
  664.   Else
  665.   PickUpTrueAuthor=Text
  666.   End IF
  667. End Function
  669. Private Function RegexpDate(objpubDate)
  670.    IF RegExpTest("(?:D*)(d+)D(d+)D(d+)D(d+)D(d+)D(d+)(?:.*)",objpubDate.text) then
  671.   pubDateText=StrangeTOISO(objpubDate.text)
  672.   If ISDATE(pubDateText) then pubDateType="Type1"
  673.    Else
  674.   pubDateText=rfc_to_iso(objpubDate.text)
  675.   If ISDATE(pubDateText) then pubDateType="Type2"
  676.    End IF
  677. End Function
  679. Public Function Add_xml()
  680.  
  681.     If IsUseXmlHttp=0 then
  682. If GetXml Then
  683. If ParseXml Then
  684. Add_xml=True
  685. Else
  686. Add_xml=False
  687. End If
  688. Else
  689. Add_xml=False
  690. End If
  691. Else
  692.     If GetXml2 Then
  693. If ParseXml Then
  694. Add_xml=True
  695. Else
  696. Add_xml=False
  697. End If
  698. Else
  699. Add_xml=False
  700. End If
  701. End If
  703. If trim(Report)<>"" then
  704. response.write Report
  705. Else
  706. response.write "<tr><td>下载成功</td></tr>"
  707.         End If
  708. session(SessionStr&"ReloadXMLReport")= session(SessionStr&"ReloadXMLReport") & Report
  710. End Function
  712. Private Sub Class_Initialize()
  713. End Sub
  714. End Class
  716. %>