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

wutieming 2004-11-30 02:32:02
<%

' 获取 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个汉字,该如何做呢?本人是超级菜鸟
...全文
71 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wutieming 2004-11-30
汗~~~~~~~~~~~~~~大哥我第一次来这里,不知道那个分数是怎么回事~~~~~~~~~~~
回复
jackywoo 2004-11-30
才1分???????
楼主不厚道~
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-30 02:32
社区公告
暂无公告