any-AnyRSS
/
Rss2Feed.asp

<!--#include file=rssconn.asp-->
<script type="text/javascript">
var switcher=0;
//双击鼠标滚动屏幕的代码
var currentpos,timer;
function initialize()
{
timer=setInterval ("scrollwindow ()",30);
}
function sc()
{
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos !=document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</script>
<%
'如果RssFeed对应的ID来源为空，则随机从数据库抽取
ID=int(request("ID"))
If Trim(request("ID"))<>"" Then
sql="select top 1 * from RSSFeed where ID="&ID
Else
 '根据数据库不同类型进行随机抽取
 If DBType="SQL" then
 sql="select top 1 * from RSSFeed order by newid()"
 End If
 If DBType="Acc" then
 sql="select top 1 * from RSSFeed order by rnd(id)"
 End If
End if
rs.open sql,conn,1,1
rssname=Trim(rs("Rssname"))
url=Trim(rs("RssUrl"))
rs.close
%>
<body>
<table width="99%" border="0" align="center" cellpadding="1" cellspacing="1" style="border-bottom:2px solid #75A3DB ">
<tr>
<td>
<font size="4" color="3366ff"><strong><%=RssName%></strong></font><br />
<u><font color="cccccc"><%=url%></font></u><br>
双击鼠标滚屏，单击鼠标停止<br />默认右侧窗口打开；点击蓝色图标新窗口打开。
</form>
</td>
</tr>
</table>
<!--  -->
<%


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")
%>
<table width="99%" border="0" align="center" cellpadding="3" cellspacing="0">
<%
 for i=0 to oItem.length-1
 %>
<tr>
<td style="border-bottom:1px solid #cccccc " bgcolor='#f6f6f6' align='center'><font color="#cccccc"><b><%=i+1%></b></font></td>
<td style="border-bottom:1px solid #cccccc ">
&nbsp;<a href='<%=oItem(i).childNodes(1).text%>' target='MainRight_Content' title='右侧窗口阅读'><font size="3" color=""><%=oItem(i).childNodes(0).text%></font></a>
<!-- 新窗口阅读 -->
<a href='<%=oItem(i).childNodes(1).text%>' target='_blank' title='新窗口阅读'><img src="pics/_blank.png" border="0" alt="新窗口阅读"></a>

</td>
</tr>
<%
next
end if
%>
</table>

<!--#include file=foot.asp-->