<link type="text/css" rel="stylesheet" href="/css/general_City.css" />
<style type="text/css">
<!--
body {margin-top:0;text-align:center;font:12px 宋体,Verdana,Geneva, "Arial", sans-serif;}  
td{font-size:12px;color:#666666;}
-->
</style>
<table width="288" border="0">
<%
dim xml:xml=request.querystring("xml")
Response.write Readrss(xml)

Function Readrss(xmlseed)
  dim TempHTM,i,j:j=0
  
  dim xmlDoc,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)
  dim item,title,link
  
  Set item=xmlDoc.getElementsByTagName("item")
  if item.Length<=5 then  %>
    <script language="JavaScript">
    //alert("对不起,该新闻条数已经少于5条新闻条数!");
    </script><%
  else	
	For i=1 To (item.length-1)
        Set title=item.Item(i).getElementsByTagName("title")
        Set link=item.Item(i).getElementsByTagName("link")
        TempHTM=TempHTM&"<tr><td><a href="""& link.Item(0).Text &""" target='_blank'>"& left(title.Item(0).Text,25) &"</a></td></tr>"&vbcrlf
        j=j+1
		if j>16 then exit for
	Next
  end if
  Readrss=TempHTM
End Function  
%>
</table>