xml是怎么显示在网页上的。
http://www.happyshow.org/sample/20060918/list.asp?id=1
就象上面的这个页的xml显示是怎么实现的，我现在能从数据库取数据，然后组一个xml 的字符串，可是一显示的时候就出错，我直接用
response.write(); 来实现的，可是不行。帮我看看上面那个网页是怎么做到的把。谢谢了。
}
[解决办法]
那个就是调用了一个XML文件吧 虽然链接是asp的 但肯定处理过了。
从数据库读数据 然后带上XML标签 生成一个XML文件就可以了
response.write( " <?xml version= "+ " " "+1.0+ " " "+ " encoding=+ " " "+ "ISO-8859-1+ " " "+ "?> ");
(response.write( " <root> ");
...(做循环读取数据组成XML)
response.write( " < "+数据库读的数据1+ "> "+数据库读的数据2+ " </ "+数据库读的数据1+ "> ");
...
)
[解决办法]
相关代码如下：
Function ReplaceChar ( FstrSource )
dim strRet
if IsNull(FstrSource) then
&n bsp; FstrSource = " "
end if
strRet = Replace ( FstrSource , "& " , "& " )
strRet = Replace ( strRet , " < " , " < " )
strRet = Replace ( strRet , "> " , "> " )
strRet = Replace ( strRet , " " " " , " " " )
strRet = Replace ( strRet , " ' " , " ' " )
ReplaceChar = strRet
End Function
function RstToXML (FrstRst, FstrRstName)
dim strSpace 'space string behand of element
dim intLevel 'level of the element
dim strXML 'the return string(xml string)
dim intRstField
dim strShortDate
'document level
intLevel = 0
strSpace = space (intLevel * 2)
if Len(FstrRstName)> 0 then
strXML=strSpace & " < " & FstrRstName & "> " & vbCR
intLevel = intLevel + 1
strSpace = space(intLevel*2)
end if
if FrstRst.EOF then
strXML = strXML&strSpace & " <Record "
for nCount=0 to FrstRst.Fields.Count-1
strXML = strXML & space(1)&FrstRst.Fields(nCount).Name& "= ' ' "
next
strXML = strXML & "/> " &vbCR
if Len(FstrRstName)> 0 then
strXML=strXML&strSpace & " </ " & FstrRstName & "> " & vbCR
end if
RstToXML=strXML
exit function
end if
' now move in one level
intLevel = intLevel + 1
strSpace = space (intLevel * 2 )
' loop through the records
dim strTemp
FrstRst.MoveFirst
do while not FrstRst.EOF
strTemp = " "
'loop through the fields
'strXML = strXML & strSpace & " <Record "
for each objField in FrstRst.Fields
'set objField = FrstRst.Fields(intRstField)
strTemp = strTemp & space (1) & objField.Name & "= "
strTemp = strTemp & " " " " & ReplaceChar(objField.value) & " " " "
end if
next
strXML = strXML & " <Record "&strTemp& "/> " & vbCR
FrstRst.MoveNext
loop
intLevel=intLevel-1
strSpace=space(intLevel * 2)
if Len(FstrRstName)> 0 then
strXML = strXML & strSpace & " </ " & FstrRstName & "> " & vbCR
end if
RstToXML = strXML
end function
getInfo.asp
相关代码如下：
<?xml version= "1.0 " encoding= "gb2312 "?>
<root>
<%
set conn = server.CreateOb ject( "ADODB.Connection ")
conn.Open "FILEDSN=test.dsn "
set facultyRst = conn.Execute( "select * from faculty ")
do while not facultyRst.eof
strFaculty = facultyRst( "name ")
set classRst = conn.Execute( "select count(id) as classcount from recruitclass where recruityear= " + cstr(year(now)) + " and faculty= ' " + strFaculty + " ' ")
set maleRst = conn.Execute( "select count(id) as malecount from newstudent where recruityear= " + cstr(year(now)) + " and faculty= ' " + strFaculty + " ' and gender= '男 ' ")
set femaleRst = conn.Execute( "select count(id) as femalecount from newstudent where recruityear= " + cstr(year(now)) + " and faculty= ' " + strFaculty + " ' and gender= '女 ' ")
%>
<newstudent faculty= " <%=strFaculty%> " class= " <%=classRst( "classcount ")%> " male= " <%=maleRst( "malecount ")%> " female= " <%=femaleRst( "femalecount ")%> "/>
<%
facultyRst.MoveNext
loop
%>
</root>
<%
dim strConn, strSQL, rs, n, sFileNa me
'change the server name, if it is remote, change the UID and PWD to your own
strConn = "Provider=SQLOLEDB;Server=localhost;Database=pubs;UID=sa;PWD=; "
strSQL = "SELECT * FROM employee "
set rs = Server.CreateObject( "ADODB.Recordset ")
rs.open strSQL, strConn, 1, 1
sFileName = "c:\temp\employee.xml "
rs.save sFileName, 1
rs.close
set rs =nothing
%>
or
<%
Response.ContentType = "text/xml "
dim strConn, strSQL, rs, n, sFileName
'change the server name, if it is remote, change the UID and PWD to your own
strConn = "Provider=SQLOLEDB;Server=localhost;Database=pubs;UID=sa;PWD=; "
strSQL = "SELECT * FROM employee "
set rs = Server.CreateObject( "ADODB.Recordset ")
rs.open strSQL, strConn, 1, 1
sFileName = "c:\temp\employee.xml "
rs.save Response, 1
rs.close
set rs =nothing
%>
[解决办法]
http://www.jobdll.com/news/getxml.aspx?newstype=1
[解决办法]
Response.Clear();
Response.ContentType= "text/xml ";
Response.Write( " <area> <address> 2|广东|http://www.gd.gov.cn/ </address> <address> 3|广西|http://www.gxi.gov.cn/ </address> <address> 4|湖南http://www.hunan.gov.cn/ </address> <address> 5|甘肃| </address> </area> ");
Response.End();
[解决办法]
Response.ContentType= "text/xml ";
很重要的，不能少的
