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

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个汉字,该如何做呢?本人是超级菜鸟
...全文
91 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
wutieming 2004-11-30
  • 打赏
  • 举报
回复
汗~~~~~~~~~~~~~~大哥我第一次来这里,不知道那个分数是怎么回事~~~~~~~~~~~
jackywoo 2004-11-30
  • 打赏
  • 举报
回复
才1分???????
楼主不厚道~

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧