Question

asp 导出数据库数据到Excel表

有两个表：tab1、tab2
tab1
id name
1 数学
2 语文
3 英语
tab2
id num
1 2
2 2
3 1

tab2中 num 号对应的是tab1中的 name
现在我想从数据库中把tab2的数据导出来，显示为
tab2
id name
1 语文
2 语文
3 英语
请问谁有好的方法实现没？

Answer 1

<script language=javascript>
<%
rs.open "select tab2.id,tab1.name from tab1,tab2 where tab2.num=tab1.name",1,3,conn
%>
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
oSheet.Cells(1,1).value="数据库导出的列表"
oSheet.Cells(2,1)="ID"
oSheet.Cells(2,2)="Name"
<%
iii=3
while not rs.eof do
oSheet.Cells(iii,1)=rs(0)
oSheet.Cells(iii,2)=rs(1)
iii=iii+1
rs.movenext
wend
rs.close
%>
oXL.Visible = true;
oXL.UserControl = true;
</script>
页面打开后自动打开excel文档，含导出的数据