如何控制下面这段代码的输出格式？？？

[wutieming]

<%

' 获取 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个汉字，该如何做呢？本人是超级菜鸟

[jackywoo]

才1分？？？？？？？
楼主不厚道～

[wutieming]

汗~~~~~~~~~~~~~~大哥我第一次来这里，不知道那个分数是怎么回事~~~~~~~~~~~