中文XML论坛--关于ASP输出XML格式的问题

贴子主题：关于ASP输出XML格式的问题

本主题类别:

小弟现在要使用flash显示一系列数据库的内容，源代码如下：

<%
Response.ContentType="text/xml"
set rs=server.CreateObject("ADODB.RecordSet")
set rs_count=server.CreateObject("ADODB.RecordSet")
page_size=10
sql_count="select [m_id] from messages"
rs_count.open sql_count,conn,1,1
count=rs_count.RecordCount
max_page=count/page_size
if count mod page_size <>0 then
max_page=int(max_page)+1
end if

page=trim(request("page"))
if page="" then
page=1
end if

if isNumeric(page)=false then
response.End
else
page=int(page)
end if
if page<1 then
page=1
end if
if page>max_page then
page=max_page
end if
'对外部传来的数据进行限制并取整

if page=1 then
sql="select top "&page_size&" * from [messages] where (m_id>=(select top 1 [m_id] from [messages] order by m_id asc)) order by m_id asc"
else
sql="select top "&page_size&" * from [messages] where (m_id>=(select max(m_id) from (select top "&page_size*(page_size-1)&" [m_id] from [messages] order by m_id asc))) order by m_id asc"
end if
rs.open sql,conn,1,1
'设定查询语句

response.Write("<?xml version='1.0' encording='gb2312'?>")
response.Write("<页当前页='"&page&"' 总页数='"&max_page&"'>")
do while not rs.eof
response.Write("<许愿昵称='"&rs("m_name")&"' 时间='"&rs("m_time")&"'>"&"<![CDATA["&rs("m_con")&"]]></许愿>")
rs.movenext
loop
response.Write("</页>")
rs.close
conn.close
set rs=nothing
set conn=nothing
%>

预览之后的效果为：

此主题相关图片如下：

小弟疑惑的是，为何数据没有以XML的格式输出，我这个基本上仿照书上的例子做的，看书上的预览效果图是以XML格式显示的，为什么我的没有


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	78.125ms