帮我看看,怎样把表单内的数据导出到excel
<form name="form1" id="form1" method="post" action=""><textarea name="textarea" cols="130" rows="18" ><% dim rsk,sqlk,i,k
set rsk= Server.CreateObject("adodb.recordset")
k=session("k")
for i=1 to k
sqlk="select * from productinfo where maijia='"&sessname&"'and maichu='0' order by productid desc"
rsk.open sqlk,conn,3,3
[bo] response.write(i&" "&rsk("code")&" " & vbcrlf )[/bo]
//想把这里循环输出的数据可以保存到excel但不会做,求指点。。。。。
rsk.movenext
next
response.write("成功!!!!!!!!!"&vbcrlf)
rsk.close
set rsk=nothing
%>
</textarea>
</form>