乡下人产国偷v产偷v自拍,国产午夜片在线观看,婷婷成人亚洲综合国产麻豆,久久综合给合久久狠狠狠9

  • <output id="e9wm2"></output>
    <s id="e9wm2"><nobr id="e9wm2"><ins id="e9wm2"></ins></nobr></s>

    • 分享

      用Asp+XmlHttp實(shí)現(xiàn)RssReader功能

       duduwolf 2005-09-24

      <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">   雙擊鼠標(biāo)可以關(guān)閉摘要,只顯示標(biāo)題
      </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
      %>

        本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
        轉(zhuǎn)藏 分享 獻(xiàn)花(0

        0條評(píng)論

        發(fā)表

        請(qǐng)遵守用戶 評(píng)論公約

        類似文章 更多