ASP 怎样把数据库查询结果保存到 excel 文件中

转载请标明出处：http://www.iscripts.org/forum.php?mod=viewthread&tid=179

 

[vb] view plain copy print ?

1. Set rs = conn.Execute("SELECT * FROM ....")  
2.   
3. Set converter = GetObject("script:" & Server.MapPath("/sct/org/iscripts/common/sql/RecordsetConverter.sct"))  
4. With Server.CreateObject("MSXML2.DOMDocument");  
5.         .loadXML converter.toXLS(rs)  
6.         .save Server.MapPath("/rs.xls")  
7. End With  
8. Set converter = Nothing  
9.   
10. rs.Close  

Set rs = conn.Execute("SELECT * FROM ....") Set converter = GetObject("script:" & Server.MapPath("/sct/org/iscripts/common/sql/RecordsetConverter.sct")) With Server.CreateObject("MSXML2.DOMDocument"); .loadXML converter.toXLS(rs) .save Server.MapPath("/rs.xls") End With Set converter = Nothing rs.Close

咦， 里头出现了个 "/sct/org/iscripts/common/sql/RecordsetConverter.sct" 是什么东东

 

呵呵，http://www.iscripts.org/sct/org/iscripts/common/sql/RecordsetConverter.sct 这里下载就是了...