rss是好东西,但是还不够好.我现在的理解就是...它就是一个特殊的dataset !
然后大家都按照这来做.调用的人想办法猜测里面的内容.再拿来为我所用.
对于自己的BC支持RSS已经确定.可是...能不能用的更加灵活一些?
我本来想做一个用html实现结果SKIN更换的.用RSS提供数据,这样我就可以简单的支持任意多的模版了.用css+脚本+rss提供数据
以下是雏形.对于IE的安全机制还有一些有待于解决的难题.
用脚本就没有任何问题.
然后大家都按照这来做.调用的人想办法猜测里面的内容.再拿来为我所用.
对于自己的BC支持RSS已经确定.可是...能不能用的更加灵活一些?
我本来想做一个用html实现结果SKIN更换的.用RSS提供数据,这样我就可以简单的支持任意多的模版了.用css+脚本+rss提供数据
以下是雏形.对于IE的安全机制还有一些有待于解决的难题.
1
<html>
2
<script language=vbscript>
3
sub loadrss2()
4
loadrss sss.value
5
end sub
6
function LoadRSS(theurl)
7
dim xml
8
dim item
9
dim ret
10
Set http=CreateObject("Microsoft.XMLHTTP")
11
http.Open "GET",theurl,False
12
http.send
13
'msgbox "step1"
14![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
15
Set xml=CreateObject("Microsoft.XMLDOM")
16
xml.Async=False
17
xml.ValidateOnParse=False
18
xml.Load(http.ResponseXML)
19
'msgbox "step2"
20
Set item=xml.getElementsByTagName("item")
21![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
22![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
23
For i=0 To (item.Length-1)
24
Set title=item.Item(i).getElementsByTagName("title")
25
Set link=item.Item(i).getElementsByTagName("link")
26
Set des=item.Item(i).getElementsByTagName("description")
27![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
28
ret=ret+ "<a href='" & link.Item(0).Text &" ' target='_blank'>" & title.Item(0).Text &"</a><hr/> "& des.item(0).text &"<hr />"
29
Next
30
'msgbox ret
31
'document.write ret
32
bord.innerhtml=ret
33
end function
34![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockEnd.gif)
35
</script>
36
<body>
37![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
38
<input type="text" id=sss />
39
<a onclick="loadrss2" href="#">get rss</a>
40
<div id="bord"></div>
41
<script language=vbscript>loadrss "http://bbs.lloup.com/rss.php"</script>
42
</body>
43
</html>
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockStart.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
16
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
17
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
18
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
19
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
20
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
21
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
22
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
23
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
24
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
25
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
26
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
27
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
28
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
29
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
30
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
31
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
32
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
33
![](https://www.cnblogs.com/Images/OutliningIndicators/InBlock.gif)
34
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockEnd.gif)
35
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
36
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
37
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
38
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
39
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
40
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
41
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockStart.gif)
42
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
43
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
用脚本就没有任何问题.
1![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
msgbox "run"
3
Set http=CreateObject("Microsoft.XMLHTTP")
4
http.Open "GET","http://bbs.lloup.com/rss.php",False
5
http.send
6
msgbox "step1"
7
'if xml is nothing then mesgbox "no xml"
8
Set xml=CreateObject("Microsoft.XMLDOM")
9
'if xml is nothing then mesgbox "no xml"
10
xml.Async=False
11
xml.ValidateOnParse=False
12
xml.Load(http.ResponseXML)
13
msgbox "step2"
14
Set item=xml.getElementsByTagName("item")
15
'msgbox item.Length
16
if xml is nothing then mesgbox "no xml"
17
For i=0 To (item.Length-1)
18
Set title=item.Item(i).getElementsByTagName("title")
19
Set link=item.Item(i).getElementsByTagName("link")
20
msgbox title.Item(0).Text &" "& link.Item(0).Text &"<hr />"
21
Next
22![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
23
msgbox "end"
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
16
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
17
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
18
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
19
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
20
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
21
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
22
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
23
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)