• OA中的RSS


     <html>
    <head>
     <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
     <link rel="stylesheet" href="../putong_1t.css">
      <script LANGUAGE="vbscript">
     <!--
     sub bb(obj)
         if document.getElementById(obj) is nothing then
             exit sub
         end if
         if document.getElementById(obj).style.display="none" then
             document.getElementById(obj).style.display="block"
             document.getElementById("img" & obj).src="../image/menu_open.gif"
         else
             document.getElementById(obj).style.display="none"
             document.getElementById("img" & obj).src="../image/menu_close.gif"
         end if
        
     end sub
     //-->
     </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">&nbsp;
      </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
    %>

  • 相关阅读:
    SQLHELPER C#
    SQL存储过程实例
    gridview css 样式及分页
    触发器
    MSsql存储过程
    解决在pc上用apk downloader插件下载谷歌play商店android应用出现的ssl错误
    VBScript输出显示双引号
    asp课堂更改读写权限值的实现
    1421. Credit Operations 夜
    sdut 1944 Flash Mob 夜
  • 原文地址:https://www.cnblogs.com/winner/p/592383.html
Copyright © 2020-2023  润新知