xml_2.asp
上传用户:angela
上传日期:2022-05-11
资源大小:853k
文件大小:1k
源码类别:

外挂编程

开发平台:

ASP/ASPX

  1. <!--#include file="../inc/Cls_Conn.asp"-->
  2. <!--#include file="../Inc/Cls_Config.asp"-->
  3. <%
  4. dim classid,j
  5. classid="2"
  6. %>
  7. <?xml version="1.0" encoding="gb2312" ?> 
  8. <list>
  9. <%
  10. j=0
  11. set rs=conn.execute("select * from PlayerList where classid="&classid)
  12. do while not rs.eof
  13. j=j+1
  14. if j = 1 then
  15. %>
  16. <music>
  17.   <name><%=rs("musicname")%></name>
  18.   <url><%=rs("url")%></url>
  19.   <content></content>
  20.   <pic>no.jpg</pic>
  21.   <lrc></lrc>
  22.   <scene></scene>
  23.  </music>
  24. <%
  25. else
  26. %>
  27.  <m>
  28. <n><%=rs("musicname")%></n> 
  29. <u><%=rs("url")%></u> 
  30. <c></c> 
  31. <p>no.jpg</p> 
  32. <l></l> 
  33. <scene /> 
  34. </m>
  35. <%
  36. end if
  37. rs.movenext
  38. loop
  39. set rs=nothing
  40. %>
  41. </list> 
  42. <%
  43. closeconn
  44. %>