• λ我爱Aspx >> C#.Net >> 用Asp+XmlHttp实现RssReader功能_ASP实例

    • 用Asp+XmlHttp实现RssReader功能_ASP实例

  • :aspxer  Դ:internet  :2007-4-28 23:39:12  ؼ:asp,xml,rss

  • <style>

    body {margin:10px;background-color:#ffffff;margin-top:6px;}

    form{margin:0px;}

    * {font:12px tahoma;line-height:140%;color:#000000}

    .title {font-weight:bold;color:red;}

    .time {font:10px;color:#999999;}

    a {text-decoration:none;color:blue;}

    </style>

    <script type="text/javascript">

    var switcher=0;

    </script>

    <body ondblclick="if(switcher==0){document.styleSheets[0].addRule('div','display:none');switcher=1}else{document.styleSheets[0].addRule('div','display:block');switcher=0}">

    <form name="rssform" method=post action="">

    RSS资源：<INPUT TYPE="text" NAME="RssFeed" size=60 style="height:22px" value="<%=request("RssFeed")%>" onfocus=select()> <input type="submit" value="Read It"> &nbsp;&nbsp;双击鼠标可以关闭摘要，只显示标题

    </form>

    <hr/>

    <%

    If(request("RssFeed")="") Then

    url="/rss2.asp"

    else

    url=request("RssFeed")

    End If

    Set xml = Server.CreateObject("Microsoft.XMLHTTP")

    xml.Open "GET", url, False

    xml.Send

    Set xmlDom = server.createObject("microsoft.xmldom")

    xmlDom.async=False

    xmlDom.ValidateOnParse=false

    xmlDom.load(xml.responseXML)

    if xmlDom.ReadyState>2 Then

    set oItem=xmlDom.getElementsByTagName("item")

    for i=0 to oItem.length-1

    response.write "<span style='font:bold 9px verdana;color:#000000'>"&i+1&"</span>. <a class='title' href='"&oItem(i).childNodes(1).text&"' target='_blank'>"&oItem(i).childNodes(0).text&"</a> <span class='time'>["&oItem(i).childNodes(3).text&"]<br />"

    response.write "<div>摘要："&oItem(i).childNodes(4).text&"</div><br>"

    next

    end if

    %>

    Ҷƪл˵?
  • һƪ菜鸟详听ASP中也能解压缩rar文件_ASP实例
    һƪ纯ASP代码之公历转农历实现(含属相) _ASP实例