如何控制下面这段代码的输出格式???
<%
' 获取 http://news.zhongsou.com.xml/xml/news2.xml 的数据
Response.Buffer = True
Dim objXMLHTTP, xmlDoc
dim title,url,pub_date
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") ' 创建对象
objXMLHTTP.Open "GET","http://news.zhongsou.com/xml/world3.xml",False
objXMLHTTP.Send ' 发送请求
Response.ContentType = "text/html;charset=gb2312;" ' 设置输出类型
set xmlDoc = objXMLHTTP.responseXML
for i=0 to xmlDoc.documentElement.childNodes.length -1
title = xmlDoc.getElementsByTagName("items_title").item(i).text
url = xmlDoc.getElementsByTagName("items_url").item(i).text
pub_date = xmlDoc.getElementsByTagName("items_date").item(i).text
source= xmlDoc.getElementsByTagName("items_source").item(i).text
response.write "<tr>"
'url1=http://news.zhongsou.com/index.htm
'可改为你们的题头
'height=210为题头的高
response.write "<td><a href=http://news.zhongsou.com/news?(1.1)http://news.zhongsou.com/page.cgi?url2=" + url + "&url1=http://news.zhongsou.com/index.htm&title=" + title + "&height=210>" + title + "</a></td>"
response.write "</tr>"
next
set objXMLHTTP = Nothing
Set xmlDoc = Nothing
%>
--------------------------------------
我想控制他显示的条数和字数~~~比如让他显示9条内容-每条内容30个汉字,该如何做呢?本人是超级菜鸟