<%
Function readrss(xmlseed)
dim xmlDoc
dim http
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set item=xmlDoc.getElementsByTagName("item")
if item.Length<=1 then
%>
<script language="JavaScript">
alert("对不起,该新闻条数已经少于1条新闻条数!");
</script>
<%
else
end if
End Function
%>

<%
call readrss("http://www.richfree.c/")
%>

如果call readrss的地址不对的话，会出错，请高手指教