OA中的RSS

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../putong_1t.css">
  <script LANGUAGE="vbscript">

</script>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
    <td width="32"><img src="../images/index_zi_01.gif" width="32" height="33"></td>
    <td width="8"><img src="../images/index_zi_02.gif" width="8" height="33"></td>
    <td width="1192" background="../images/index_zi_04.gif">RSS信息中心 </td>
    <td width="11"><img src="../images/index_zi_06.gif" width="8" height="33"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="24">
   <tr>
    <td width="1%"><img src="../images/index_zi_07.gif" width="11" height="24" alt=""></td>
    <td width="30%" background="../images/index_zi_09.gif" align="left">RSS信息列表</td>
    <td width="67%" background="../images/index_zi_09.gif" align="right"> 
</td>
    <td width="2%"><img src="../images/index_zi_11.gif" width="20" height="24"></td>
</tr>
</table>
<table class="tableframe" width="98%" align="center">
<tr class="listtitle">
   <td width="8%" height="10" align=left class="listcelltitle">编号
</td>
   <td width="42%" align=left class="listcelltitle">标题</td>
   <td width="50%" align=left class="listcelltitle">类别</td>
</tr>
<%
call readrss("http://rss.sina.com.cn/news/allnews/tech.xml",3,"国内新闻")
call readrss("http://rss.sina.com.cn/news/allnews/astro.xml",4,"金途OA升级")
call readrss("http://home.donews.com/rss.xml",3,"OA")
call readrss("http://www.cnblogs.com/winner/Rss.aspx",400,"MY_blogs")

%>
</table>
</body>
</html>
<%
'*************************************以上是时间转换的函数************************88
Function readrss(xmlseed,my_line,mytype)
dim xmlDoc
dim http
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set item=xmlDoc.getElementsByTagName("item")
number=item.length '得到所得取的RSS页中一共有多少项

if my_line<>"" then
if my_line>number then '如果传过来参数大于总条数
my_line=number
end if
else

end if
tt=0 '判断奇偶行
For i=0 To (my_line-1)
  Set title=item.Item(i).getElementsByTagName("title")
  Set link=item.Item(i).getElementsByTagName("link")
  set pubDate=item.item(i).getElementsByTagName("pubDate")
   if tt mod 2 =0 then
   mycss="class=TrOneColor"
   else
   mycss="class=TrTwoColor"
   end if
   Response.Write("<tr "& mycss &" ><td class='listcelltitle' height='18' align=left>"& i+1 &"</td><td class='listcelltitle' align=left><a href="""& link.Item(0).Text &""" target='_blank'>"& title.Item(0).Text &"</a>("& myformatdate(pubDate.item(0).text) &")</td><td class='listcelltitle' align=left>"& mytype &"</td></tr>")
    tt=tt+1
Next

Response.Write("<tr "& mycss &" ><td class='listcelltitle' height='18' align=left></td><td class='listcelltitle' align=left></td><td class='listcelltitle' align=right>More</td></tr>")
End Function

function myformatdate( mydate )
if len(mydate)>len(now()) then
  mydate =left(mydate,len(mydate)-4)
  mydate=right( mydate,len(mydate)-5 )
   myformatdate=mydate
else
   myformatdate=mydate
end if
end function
%>

<%
function formatdatetime_active(s,spt1,spt2,tag)
'格式化日期时间s为要格式化的日期时间,spt1为日期之间的分隔符spt2为时间之间的分隔符,tag为1表示要显示时间，否则不显示tag为2表示显示秒
if not isdate(s) then
  formatdatetime_active=s
  exit function
end if
  dim s1,s2
  s1=cdate(s)
  s2=cstr(year(s1)) & spt1 & string(2-len(cstr(month(s1))),"0") & cstr(month(s1)) & spt1 & string(2-len(cstr(day(s1))),"0") & cstr(day(s1))
if tag=1 or tag=2 then
  s2=s2 & " " & string(2-len(cstr(hour(s1))),"0") & cstr(hour(s1)) & spt2 & string(2-len(cstr(Minute(s1))),"0") & cstr(Minute(s1))
end if
if tag=2 then
  s2=s2 & spt2 & string(2-len(cstr(Second(s1))),"0") & cstr(Second(s1))
end if
     formatdatetime_active=s2
end function
%>