-- 发布时间：1/5/2009 12:17:00 PM
-- 关于ASP输出XML格式的问题
小弟现在要使用flash显示一系列数据库的内容，源代码如下：
<!--#include file="conn.asp"-->
<%
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格式显示的，为什么我的没有