| 发表于:2007-03-13 16:57:582楼 得分:0 |
上面错了,正确: sql= "select * from table " set rs = conn.EXECute(sql) dim strxml if not rs.eof then strxml = strxml& " <?xml version= " "1.0 " " encoding= " "utf-8 " "?> "&vbcrlf strxml = strxml & " <list> "&vbcrlf do while not rs.eof strxml = strxml & " <code_list a= "& rs( "a ") & " b= "& rs( "b ")& "> </code_list> "&vbcrlf rs.movenext loop strxml = strxml & " </list> "&vbcrlf end if response.write strxml | | |
|