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

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

编辑器/阅读器

开发平台：

C#

Class.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.toLocaleString();
  11.            }    
  12. }
  13. else{
  14. return dateTimeObject.toLocaleString();
  15. }
  16. }
  17. </script>
  18. <%
  20. Class TCategory
  22. Public ID
  23. Public Name
  24. Public Intro
  25. Public Order
  26. Public Count
  27. Public ParentID
  28. Public sortPath
  31. Public Function Post()
  33. Call CheckParameter(ID,"int",0)
  34. Call CheckParameter(Order,"int",0)
  36. 'ID可以为0
  37. Name=FilterSQL(Name)
  38. Intro=FilterSQL(Intro)
  39. If Len(Name)=0 Then Post=False:Exit Function
  41. If ID=0 Then
  42.     '这句话很有用捉摸一下
  43. conn.Execute("INSERT INTO [Category]([Category_Name],[Category_Order],[Category_Intro],[Category_ParentID],[Category_sortPath]) VALUES ('"&Name&"',"&Order&",'"&Intro&"','"&ParentID&"','"&sortPath&"')")
  44. Else
  45. conn.Execute("UPDATE [Category] set [Category_Name]='"&Name&"',[Category_Order]="&Order&",[Category_Intro]='"&Intro&"',[Category_ParentID]='"&ParentID&"',[Category_sortPath]='"&sortPath&"' WHERE [Category_ID] =" & ID)
  46. End If
  48. Post=True
  50. End Function
  53. Public Function LoadInfoByID(cate_ID)
  55. Call CheckParameter(cate_ID,"int",0)
  58. Set rs=conn.Execute("SELECT * FROM [Category] WHERE [Category_ID]=" & cate_ID)
  60. If (Not rs.bof) And (Not rs.eof) Then
  62. ID=rs("Category_ID")
  63. Name=rs("Category_Name")
  64. Intro=rs("Category_Intro")
  65. Order=rs("Category_Order")
  66. Count=rs("Category_Count")
  67. ParentID=rs("Category_parentID")
  68. sortPath=rs("Category_sortPath")
  70. Else
  71. Exit Function
  72. End If
  74. rs.Close
  75. Set rs=Nothing
  77. LoadInfoByID=True
  79. End Function
  82. Public Function Del()
  83. Call CheckParameter(ID,"int",0)
  84. If (ID=0) Then Del=False:Exit Function
  85. set rs=conn.execute ("select * from [Category] WHERE [Category_ParentID] =" & ID)
  86. If rs.bof Then
  87. conn.Execute("DELETE FROM [LinkXML] WHERE [Category_id]=" & ID)
  88. Conn.Execute("DELETE FROM [Article] WHERE [Category_id]=" & ID)
  89. Conn.Execute("DELETE FROM [Category] WHERE [Category_ParentID] =" & ID)
  90. Conn.Execute("DELETE FROM [Category] WHERE [Category_ID] =" & ID)
  91. Del=True
  92. Else
  93.     Del=False
  94.     End If
  95. End Function
  97. End Class
  99. Class TWebSite
  101. Public ID,Name,CateID,Intro,Url,XML,XmlUrl,Interval,AggregateNumber,Cate,ShenHe,strXmlFile,objXmlFile,Regexp_Description,DescriptionNumber,Regexp_Title,Regexp_Author,ViewOther
  103. Public documentElement,item,title,AuthorType,Author,AuthorText,AuthorText2,pubDate,pubDateTextOriginal,pubDateText,linka,Description,pubDateType,RegExpPattern,RegExpReplace,RegExpText,Elements,Report
  105. Public Function Post()
  106.     If not isobject(conn) then set conn=connectdb
  107.         On Error Resume Next
  108. 'ID可以为0
  109. Call CheckParameter(ID,"int",0)
  110. '这句话必须，如果ID空则插入
  111. Call CheckParameter(CateID,"int",0)
  112. Call CheckParameter(Interval,"int",0)
  114. Name=FilterSQL2(Name)
  115. Intro=FilterSQL2(Intro)
  116. Url=FilterSQL2(Url)
  117. XmlUrl=FilterSQL2(XmlUrl)
  118. Elements=Elements
  120. If Len(Name)=0 Then Post=False:Exit Function
  122. If ID=0 Then
  123. 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&"')")
  124. Else
  125. 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)
  127. Conn.Execute("UPDATE [Article] set [Category_id]="&CateID&" WHERE [xmlid]="&ID)
  128. End If
  130. If Err Then
  131. If err.number=-2147467259 Then
  132.             call Showerr_already
  133. err.clear
  134. Else
  135. call Showerr_unknown(err.number,err.description)
  136. err.clear
  137. End IF
  139. Post=False
  140. Else
  141.     Post=True
  142. End IF
  144. End Function
  146. Public Function LoadSiteInfoByID(site_ID)
  148.     If Not IsObject(Conn) Then set conn=connectdb()
  150. Call CheckParameter(site_ID,"int",0)
  152. Dim objRS
  153. Set objRS=conn.Execute("SELECT * FROM [LinkXML] WHERE [id]=" & site_ID)
  155. If (Not objRS.bof) And (Not objRS.eof) Then
  157. ID=objRS("id")
  158. Name=objRS("title")
  159. CateID=objRS("Category_id")
  160. Intro=objRS("Description")
  161. Url=objRS("htmlUrl")
  162. XmlUrl=objRS("linkxml")
  163. AggregateNumber=objRS("AggregateNumber")
  164. Interval=objRS("Inteval")
  165. ShenHe=objRS("ShenHe")
  166. ViewOther=objRS("Other")
  167. If trim(objRS("Elements"))="" or isnull(objRS("Elements")) or Ubound(Split(objRS("Elements"),"|||"))<>14 then
  168.             Elements=Split("||||||||||||||||||||||||||||||||||||||||||","|||")
  169. else
  170. Elements=Split(objRS("Elements"),"|||")
  171. End IF
  172.             documentElement=Elements(0)
  173. title=Elements(1)
  174. AuthorType=Elements(2)
  175. Author=Elements(3)
  176. AuthorText=Elements(4)
  177. pubDate=Elements(5)
  178. pubDateType=Elements(6)
  179. RegExpPattern=Elements(7)
  180. RegExpReplace=Elements(8)
  181. linka=Elements(9)
  182. Description=Elements(10)
  183. Regexp_Description=Elements(11)
  184.             DescriptionNumber=Elements(12)
  185. Regexp_Title=Elements(13)
  186. Regexp_Author=Elements(14)
  190. Else
  191.       
  192. Exit Function
  193. End If
  195. objRS.Close
  196. Set objRS=Nothing
  198. LoadSiteInfoByID=True
  200. End Function
  203. Public Function Del()
  205. Call CheckParameter(ID,"int",0)
  206. If (ID=0) Then Del=False:Exit Function
  208. Conn.Execute("DELETE FROM [Article] WHERE [xmlid] =" & ID)
  209. Conn.Execute("DELETE FROM [LinkXML] WHERE [id] =" & ID)
  211. Del=True
  213. End Function
  215. Public Function IsViewN()
  217. Call CheckParameter(ID,"int",0)
  218. If (ID=0) Then IsViewN=False:Exit Function
  220. Conn.Execute("UPDATE [LinkXML] set [Other]='N' WHERE [id]="&ID)
  222. IsViewN=True
  224. End Function
  226. Public Function IsViewY()
  228. Call CheckParameter(ID,"int",0)
  229. If (ID=0) Then IsViewY=False:Exit Function
  231. Conn.Execute("UPDATE [LinkXML] set [Other]='Y' WHERE [id]="&ID)
  233. IsViewY=True
  235. End Function
  237. Private Function Showerr(msg1,msg2,msg3)
  238. Report=Report& "<tr><td width=""80%"">"&msg1&"</td><td width=""20%"">"&msg2&"</td></tr><tr><td colspan=""2"">"&msg3&"</td></tr>"
  239. End Function
  241. Private Function Showerr_http(XmlUrl,httpStatus)
  242. Report=Report& "<tr><td width=""80%"">"&XmlUrl&"</td><td width=""20%"">下载失败,描述如下</td></tr><tr><td colspan=""2"">"&Showerr_Desciption(httpStatus)&"</td></tr>"
  243. End Function
  245. Private Function Showerr_Desciption(ErrorID)
  246. Set conn=ConnectDB()
  247. Set RS=conn.execute ("select * from [ErrHandle] where [ErrorID]=" & ErrorID )
  248. If not rs.eof Then
  249. Showerr_Desciption=" 错误代码:"&RS(0)&",错误描述:"&RS(1)&"&nbsp;"&RS(2)
  250. Else
  251. Showerr_Desciption="错误库中没有关于代码为"&ErrorID&"的描述,请向<a href=""http://www.sxna.cn"" target=_blank>www.SXNA.cn</a>报告此问题"
  252. End IF
  253. rs.close:set rs=nothing
  254. CloseDB(conn)
  255. End Function
  257. Private Function Showerr_unknown(err_number,err_description)
  258. 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>"
  259. End Function
  262. Private Function Showerr_already()
  263. 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>"
  264. End Function
  266. Private Function Showerr_NOTXML(XmlUrl,xml_parseError_errorCode)
  267. 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>"
  268. End Function
  270. Private Function ShowErr2(XmlUrl,Name)
  271. 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>"
  272. End Function
  275. Public Function GetXml
  276.         on error resume next
  278.             Dim objXMLHTTP
  279. Set objXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
  281. objXMLHTTP.setTimeouts lResolve*1000,lConnect*1000,lSend*1000,lReceive*1000
  282. objXMLHTTP.Open "GET",XmlUrl,False
  283. objXMLHTTP.Send
  285. Select Case ObjXMLHTTP.readyState
  286. Case 0
  287. call Showerr("对象初始化失败,估计你输入了一堆无效的字符....","请检查一下~","错误参数:"&Err.Number&Err.Description)
  288. GetXml=False
  289. Case 1
  290. call Showerr(XmlUrl&"域名分析超时/连接站点超时!也许是这个网站有问题,或许是超时设定太短,或许机器没有联网","请检查","错误参数:"&Err.Number&Err.Description)
  291. GetXml=False
  292. Case 2
  293. call Showerr(XmlUrl&"发送数据请求超时,是不是服务器出故障了?","请检查","错误参数:"&Err.Number&Err.Description)
  294. GetXml=False
  295. Case 3
  296. ContentLength=objXMLHTTP.GetResponseHeader("Content-Length")
  297. If err.number=-2147012746 then
  298. Call Showerr(XmlUrl&"数据下载超时/等待反馈时间超时","原因如下","没有获得文件大小的信息,估计网站有问题,可能是你的等待反馈时间超时设定太短")
  299. Else
  300. Call Showerr(RSSLINK_S&"数据下载超时/等待反馈时间超时","原因如下","该文件大小"&Formatnumber(ContentLength/1000,2)&"KB,下载过程中超过你设定的等待反馈时间超时时间,可能是你的等待反馈时间超时设定太短了,或许这个网站他就是慢...")
  301. End If
  302. Err.clear
  303. GetXml=False
  304. Case 4
  305. ContentLength=objXMLHTTP.GetResponseHeader("Content-Length")
  306. If err.number=-2147012746 then
  307. If objXMLHTTP.Status=200 Then
  308. call Showerr(XmlUrl&"没有找到文件长度信息，估计是这个网站的rss设计有问题","","操作继续..附加头信息供调试"&objXMLHTTP.GetAllResponseHeaders)
  309. strXmlFile=objXMLHTTP.responseBody
  310. GetXml=True
  311. Else
  312. call Showerr_http(XmlUrl,objXMLHTTP.status)
  313. GetXml=False
  314. End If 
  315. err.clear
  316. ElseIf err.number<>0 then
  317. call Showerr(XmlUrl&"有未知错误发生","有错误","错误参数:"&Err.Number&Err.Description)
  318. GetXml=False
  319. err.clear
  320. Else
  321. If objXMLHTTP.Status=200 Then
  322. strXmlFile=objXMLHTTP.responseBody
  323. GetXml=True
  324. Else
  325. call Showerr_http(XmlUrl,objXMLHTTP.status)
  326. GetXml=False
  327. End If
  328. End If
  329. End Select
  330. End Function
  332.    Public Function GetXml2
  333.         ON ERROR RESUME NEXT
  335. Set objXMLHTTP=Server.CreateObject("Microsoft.XMLHTTP")
  336. objXMLHTTP.Open "GET",XmlUrl,False
  337. objXMLHTTP.Send
  338. If objXMLHTTP.Status="200" Then
  339. strXmlFile=objXMLHTTP.responseBody
  340. GetXml2=True
  341. Else
  342. call Showerr_http(XmlUrl,objXMLHTTP.status)
  343. GetXml2=False
  344. Exit Function
  345. End If
  347. If Err Then
  348. call Showerr(Err.description,"","")
  349. Err.clear
  350. GetXml2=False
  351. Exit Function
  352. End IF
  354. End Function
  356. Private Function StrangeTOISO(DataRCC)
  357. StrangeTOISO=ReplaceStr(DataRCC,"(?:D*)(d+)D(d+)D(d+)D(d+)D(d+)D(d+)(?:.*)","$1-$2-$3 $4:$5:$6")
  358. End function
  360. Public Function ParseXml()
  362. Set xml=Server.CreateObject("Microsoft.XMLDOM")
  363. xml.Async=False
  364. xml.ValidateOnParse=False
  365. xml.Load(strXmlFile)
  366. If xml.ReadyState=4 Then
  367. If xml.parseError.errorCode <> 0 Then
  368.         call Showerr_NOTXML(XmlUrl,xml.parseError.errorCode)
  369. ParseXml=False
  370. set xml=nothing
  371. Exit Function
  372. Else
  373.   Set Gen=xml.documentElement
  374.    If Gen is Nothing Then 
  375.    call Showerr_NOTXML(XmlUrl,xml.parseError.errorCode)
  376.    ParseXml=False
  377.    set xml=nothing
  378.    Exit Function
  379.    End If 
  380.  
  381. Set channel=xml.documentElement.selectSingleNode("channel")
  382. If channel is Nothing then
  383.   Set feed=xml.getElementsByTagName("feed")
  384.   set feed=feed(0)
  385.   'ATom
  386.    If feed is Nothing then
  387.    Report=Report&"<tr><td width=""80%"">"&XmlUrl&"不是RSS/ATOM文件</td><td width=""20%""></td></tr><tr><td colspan=""2"">请察看原因</td></tr>"
  388.    ParseXml=False
  389.    set xml=nothing
  390.    Exit Function
  392.    Else
  393.    'FEED分析
  394.    On error resume next
  395.    documentElement="ATOM"
  396.    Url=feed.selectSingleNode("link").getAttributeNode("href").value
  397.    Name=feed.selectSingleNode("title").text
  398.    If Name="" Then Name="未知"
  399.    Intro=feed.selectSingleNode("subtitle").text
  400.    
  401. set item=xml.getElementsByTagName("entry")
  402. Set objtitle=item(0).selectSingleNode("title")
  403. If objtitle is Nothing then 
  404. title=""
  405.   Else
  406. title="title"
  407. End If
  409. Redim NodeAuthor(2)
  410. NodeAuthor(1)="author|item|Multi"
  411. NodeAuthor(2)="author|feed|Single"
  412. For i=1 to Ubound(NodeAuthor)
  413.     If split(NodeAuthor(i),"|")(1)="item" then Set objAuthor=item(0).selectSingleNode(split(NodeAuthor(i),"|")(0))
  414. If split(NodeAuthor(i),"|")(1)="feed" then Set objAuthor=feed.selectSingleNode(split(NodeAuthor(i),"|")(0))
  415. If objAuthor is Nothing then
  416.   If i=Ubound(NodeAuthor) then
  417.   AuthorType="Single"
  418.   Author=""
  419.   AuthorText=feed.selectSingleNode("title").text  
  420.   Exit for
  421.   Else
  422.   End If
  423. Else
  424. Set objname=objAuthor.selectSingleNode("name")
  425.    If objname is Nothing then
  426. AuthorType="Single"
  427. Author=""
  428. AuthorText=feed.selectSingleNode("title").text
  429. Else
  430. AuthorType=split(NodeAuthor(i),"|")(2)
  431. Author="name"
  432. AuthorText=objname.text
  433. End If
  434. Exit For
  435. End If
  436. Next
  437. AuthorText2=AuthorText
  439. AuthorText=PickUpTrueAuthor(AuthorText)
  442. Redim NodepubDate(2)
  443. NodepubDate(1)="updated"
  444. NodepubDate(2)="modified"
  445. For i=1 to Ubound(NodepubDate)
  446. Set objpubDate=item(0).selectSingleNode(NodepubDate(i))
  447. If objpubDate is Nothing then
  448.   If i=Ubound(NodepubDate) then
  449.   pubDate="No"
  450. Exit for
  451.   Else
  452.   End If
  453. Else
  454. pubDate=NodepubDate(i)
  455. RegexpDate(objpubDate)    
  456. pubDateTextOriginal= objpubDate.text
  457. RegExpPattern=""
  458. RegExpReplace=""
  459. Exit For
  460. End If
  461. Next
  464. If NOT ISDATE(pubDateText) Then
  465.                 pubDateType="Type3"
  466. End IF
  468.  Set objlink=item(0).selectSingleNode("link")
  469.    If objlink is Nothing then 
  470.    linka=""
  471. Else
  472.    linka="link"
  473. End If
  475.  Set objDescription=item(0).selectSingleNode("summary")
  476. If objDescription is Nothing then
  477.    set objDescription=item(0).selectSingleNode("content")
  478.    If objDescription is Nothing then
  479.    Description="title"
  480.    Else
  481.        Description="content"
  482.    End If
  483. Else
  484. Description="summary"
  485. End If
  487.                            AggregateNumber=item.Length
  488.    Regexp_Description="0"
  489.    Regexp_Author="0"
  490.    Regexp_Title="0"
  491.                            DescriptionNumber=""
  492.    ParseXml=True
  493.    End IF'ATOM分析结束
  494. Else
  495.   'RSS分析开始
  496.   On error resume next
  497.  
  498.                   documentElement="RSS"
  499.   Url=channel.selectSingleNode("link").text
  500.   Name=channel.selectSingleNode("title").text
  501.   If Name="" Then Name="未知"
  502.   Intro=channel.selectSingleNode("description").text
  503.                   
  504.   Set item=xml.getElementsByTagName("item")
  505.                   Set item=item(0)
  506.   Set objtitle=item.selectSingleNode("title")
  507. If objtitle is Nothing then 
  508.    title=""
  509. Else
  510.    title="title"
  511. End If
  513. Redim NodeAuthor(4)
  514. NodeAuthor(1)="author|item|Multi"
  515. NodeAuthor(2)="dc:creator|item|Multi"
  516. NodeAuthor(3)="dc:creator|channel|Single"
  517. NodeAuthor(4)="source|channel|Single"
  519. For i=1 to Ubound(NodeAuthor)
  520. SplitedNodeAuthor=split(NodeAuthor(i),"|")
  521. If SplitedNodeAuthor(1)="item" then Set objAuthor=item.selectSingleNode(SplitedNodeAuthor(0))
  522. If SplitedNodeAuthor(1)="channel" then Set objAuthor=channel.selectSingleNode(SplitedNodeAuthor(0))
  523. If objAuthor is Nothing then
  524.   If i=Ubound(NodeAuthor) then
  525.    IF RegExpTest("msn.com",XmlUrl) then
  526.   AuthorType="Single"
  527.   Author=""
  528.   AuthorText=split(XmlUrl,"/")(4)
  529.    ElseIf RegExpTest("yculblog.com",XmlUrl) then
  530.    AuthorType="Single"
  531.    Author=""
  532.    AuthorText=split(split(XmlUrl,"/")(2),".")(0)
  533.    Else
  534. Set objAuthor=channel.selectSingleNode("webMaster")
  535.    If objAuthor is Nothing then
  536. AuthorType="Single"
  537. Author=""
  538. AuthorText=xml.documentElement.selectSingleNode("channel").selectSingleNode("title").text
  539. Else
  540. AuthorType="Single"
  541. Author=""
  542. AuthorText=objAuthor.text
  543. End IF
  544.   Exit for
  546.   End If
  547.  End If
  548. Else
  549. AuthorType=SplitedNodeAuthor(2)
  550. Author=SplitedNodeAuthor(0)
  551. AuthorText=objAuthor.text
  552. Exit For
  553. End If
  554. Next
  556. AuthorText2=AuthorText
  558.             AuthorText=PickUpTrueAuthor(AuthorText)
  560.             
  562.             Redim NodepubDate(5)
  563. NodepubDate(1)="pubDate"
  564. NodepubDate(2)="dc:date"
  565. NodepubDate(3)="PubDate"
  566. NodepubDate(4)="pubdate"
  567. NodepubDate(5)="Pubdate"
  568. For i=1 to Ubound(NodepubDate)
  569. Set objpubDate=item.selectSingleNode(NodepubDate(i))
  570. If objpubDate is Nothing then
  571.   If i=Ubound(NodepubDate) then
  572.                   pubDate="No"
  573.     Exit for
  574.   Else
  575.   End If
  576. Else
  577. pubDate=NodepubDate(i)
  578. RegexpDate(objpubDate)    
  579. pubDateTextOriginal= objpubDate.text
  580. RegExpPattern=""
  581.     RegExpReplace=""
  582. Exit For
  583. End If
  584. Next
  586. If NOT ISDATE(pubDateText) Then
  587.  pubDateType="Type3"
  588.  If RegExpTest("pconline.com.cn",XmlUrl) Then 
  589.   pubDate="pubDate"
  590.   RegExpPattern=".0"
  591.   RegExpReplace=""
  592.  End If         
  593.  If RegExpTest("tianyablog.com",XmlUrl) Then 
  594.   pubDate="comments"
  595.   pubDateType="Type1"
  596.   pubDateTextOriginal=item.selectSingleNode(pubDate).text
  597.   pubDateText=StrangeTOISO(pubDateTextOriginal)
  598.   RegExpPattern=""
  599.   RegExpReplace=""
  600.  End If 
  601. End IF
  603.    Set objlink=item.selectSingleNode("link")
  604. If objlink is Nothing then 
  605.    linka=""
  606. Else
  607.    linka="link"
  608. End If
  610.    Set objDescription=item.selectSingleNode("description")
  611. If objDescription is Nothing then
  612.    Description="title"
  613. Else
  614.    Description="description"
  615. End If
  617.   Set Objitemnodes=Xml.Getelementsbytagname("item")
  618. Aggregatenumber=Objitemnodes.Length
  619.                     Regexp_Description="0"
  620.     Regexp_Author="0"
  621.     Regexp_Title="0"
  622.                     DescriptionNumber=""
  623.   ParseXml=True
  624. End IF
  626. End IF 'xml.parseError.errorCode <> 0
  627. End If'xml.ReadyState=4
  629. End Function
  631. Private Function PickUpTrueAuthor(Text)
  632.       IF RegExpTest("(.+)",Text) then
  633.         Set SRegExp=New RegExp
  634. SRegExp.IgnoreCase =True
  635. SRegExp.Global=True
  636. SRegExp.Pattern="(.+)"
  637. Set Match = SRegExp.Execute(Text)
  638. IF MATCH.COUNT<>0 THEN
  639. PickUpTrueAuthor=Match(0).value
  640.                     PickUpTrueAuthor=Replace(PickUpTrueAuthor,CHR(40),"")
  641.                     PickUpTrueAuthor=Replace(PickUpTrueAuthor,CHR(41),"")
  642. Else
  643. PickUpTrueAuthor=Text
  644. End IF
  645.                 Set SRegExp=Nothing
  646.   Else
  647.   PickUpTrueAuthor=Text
  648.   End IF
  649. End Function
  651. Private Function RegexpDate(objpubDate)
  652.    IF RegExpTest("(?:D*)(d+)D(d+)D(d+)D(d+)D(d+)D(d+)(?:.*)",objpubDate.text) then
  653.   pubDateText=StrangeTOISO(objpubDate.text)
  654.   If ISDATE(pubDateText) then pubDateType="Type1"
  655.    Else
  656.   pubDateText=rfc_to_iso(objpubDate.text)
  657.   If ISDATE(pubDateText) then pubDateType="Type2"
  658.    End IF
  659. End Function
  661. Public Function Add_xml()
  662.  
  663.     If IsUseXmlHttp=0 then
  664. If GetXml Then
  665. If ParseXml Then
  666. Add_xml=True
  667. Else
  668. Add_xml=False
  669. End If
  670. Else
  671. Add_xml=False
  672. End If
  673. Else
  674.     If GetXml2 Then
  675. If ParseXml Then
  676. Add_xml=True
  677. Else
  678. Add_xml=False
  679. End If
  680. Else
  681. Add_xml=False
  682. End If
  683. End If
  685. If trim(Report)<>"" then
  686. response.write Report
  687. Else
  688. response.write "<tr><td>下载成功</td></tr>"
  689.         End If
  690. session(SessionStr&"ReloadXMLReport")= session(SessionStr&"ReloadXMLReport") & Report
  692. End Function
  694. Private Sub Class_Initialize()
  695. End Sub
  696. End Class
  698. %>