求助XML怎么不能正确显示
<% @language = "VBScript" CODEPAGE="65001"%> <?xml version="1.0" encoding="utf-8"?> <StkList> <% set conn=server.CreateObject("adodb.connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data/StkHold.mdb") set rs=Server.CreateObject("adodb.recordset") if request("t")<>"" then sql="select top " + request("t") + " * from StkList" else sql="select * from StkList" end if if request("c")<>"" then sql = sql + " where FStkCode like '" + request("c") + "%'" end if rs.open sql,conn,1,3 do while not rs.Eof %> <CurrStk> <StkCode><%=rs("FStkCode")%></StkCode> <StkName><%=rs("FStkName")%></StkName> <OpenP/> [color=#FF0000] <PreP/> <CurrP/> <HighP/> <LowP/> <Chg/> <ChgRat/> <Vol/> <Mny/> <B1V/> <B1P/> <B2V/> <B2P/> <B3V/> <B3P/> <B4V/> <B4P/> <B5V/> <B5P/> <S1V/> <S1P/> <S2V/> <S2P/> <S3V/> <S3P/> <S4V/> <S4P/> <S5V/> <S5P/>[/color] </CurrStk> <% rs.movenext loop rs.close set rs=nothing %> </StkList>