<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>

直接输出EXCEL可能会用到VBA中的东西,我以前做过类似功能的东西,可以告诉你一个变通的方法,能否用上要看你的实际情况了.
输出时直接输出成HTML表格的形式,然后保存成网页,再将后缀改成xls格式,用EXCEL打开即可.

其实是想让客户端，保存excel，，他们也不会这样做啊，，所以想直接可保存为excel求指点