文歌随笔（Aven's Blog）

致"文歌"所有朋友:
　　
　　今天，“文歌随笔”已经走了十个年头。很庆幸，他还在，近期我会抽些时间对内容进行调整，感谢大家的支持！谢谢！
----黑蝙蝠（QQ：67858601）2015.05.08

English Sentence Loading...

英语句子加载中...

网站消息：增加二维码扫描功能，扫一扫可以使用手机浏览！2015.05.13
网站消息：关闭原有评论和留言系统，加入第三评论系统-友言！2015.05.12
网站消息：尝试着对博客进行调整，尽量更新，敬请关注！2015.05.08

1.申请“友情链接”的朋友请到这里 2.留言板| 亲，请点这里给我留言吧

技术┊网站设计

[ASP]使用ASP读取XML文件

作者:黑蝙蝠日期:2006-12-12

字体大小: 小中大

分享到：微信 QQ好友新浪微博腾讯微博复制网址更多

复制内容到剪贴板

程序代码

dim objHTTP,objXML,objXSL
Set objXSL = Server.CreateObject("Microsoft.XMLDOM")
objXSL.async=False
objXSL.load(Server.MapPath("rss.xsl"))

set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.open "GET",objURL, false
objHTTP.send

set objXML = objHTTP.responseXML
objHTML = objXML.transformNode(objXSL)
objHTML = replace(objHTML,"""","'")

Set objHTTP = Nothing

'objHTML = Server.HTMLEncode( objHTML )

%>

var rsscode;

rsscode="<%=objHTML%>";
RSSbox.innerHTML = "";
if(rsscode == "")
{
RSSbox.innerHTML = "nothing found";
}
RSSbox.innerHTML = rsscode

分享到：微信 QQ好友新浪微博腾讯微博复制网址更多

[本日志由黑蝙蝠于 2006-12-13 10:40 AM 编辑]