100分急求asp导出到excel的问题！！
服务器是公司的服务器，可以自己设置，但是网管那里不同意安装excel，所以我从office里面找来了组件：MSOWC.DLL（2.94M），以前我曾经安装过这个组件，就可以用了，但是现在不行了：
提示：
Microsoft   VBScript   运行时错误   错误   '800a01ad '  

ActiveX   部件不能创建对象:   'Excel.Application '  

/hr/out.asp，行16
------------------------------------------------
程序代码：
set   objExcelApp   =CreateObject( "Excel.Application ")  
 
哪位能帮解决下，谢谢了，分不够可以再补。我QQ：123451234，验证：88888

我已经搜索了许多文章，还是不能解决。用aspcheck也检测不到Excel.Application，但是确实已经在服务器注册成功了这个组件。

------解决方案--------------------
导出成.csv文件的行不，如果行的话你可以试试下面这段代码,我现在用来备份网站日志用的，可以正常使用,Message_clear过程可以再优化一下，因为我发现导出时因为一些特殊符号会造成结构出错

Response.AddHeader "Content-Disposition ", "attachment; filename=此处是文件名.csv "
Response.CharSet = "UTF-8 "
Response.ContentType = "application/octet-stream "
dim i,m
m=0
set rs = conn.Execute( "select * From [表名] order by id desc ")
Response.Write "字段1 "
Response.Write ", " & "字段2 "
Response.Write ", " & "字段3 "
Response.Write ", " & "字段4 "
Response.Write ", " & "字段5 "
Response.Flush()
do while not rs.eof
Response.Write vbCrLf & Message_clear(RemoveHTML(rs(0)))
for i=1 to rs.fields.count-1
Response.Write ", " & Message_clear(RemoveHTML(rs(i)))
next
Response.Flush()
rs.Movenext
loop
rs.Close
set rs = nothing

function Message_clear(body)
if trim(body)= " " then exit function
Message_clear = replace(body, ", ", "， ")
Message_clear = replace(Message_clear, "; ", "； ")
Message_clear = replace(Message_clear, " ' ", " ")
Message_clear = replace(Message_clear, "% ", "％ ")
Message_clear = replace(Message_clear,chr(13)&chr(10), " ")
end function
------解决方案--------------------
在服务器注册表中查找excel.appliction先.如果没就运行不了.

*****************************************************************************

用功譬若掘井，与其多掘数井而皆不及泉，何若老守一井，力求及泉而用之不竭乎?

------解决方案--------------------
应该是权限问题，你的服务器是ntfs格式吧？
------解决方案--------------------
我顶
------解决方案--------------------
把读出的数据用＜table＞格式，在网页中显示出来，同时，加上下一句即可把EXCEL表在客客户端显示。

＜%response.ContentType = "application/vnd.ms-excel "%＞

　　注意：显示的页面中，只把＜table＞输出，最好不要输出其他表格以外的信息。

------解决方案--------------------
把客户的模板用Excel打开，然后“文件”-“另存为网页”。 保存好之后是一个扩展名为.htm的文件。
接着用文本编辑器打开，你会看到Excel的每一行数据其实对应这一个表格的 <tr> </tr> 。你要做的就是把数据添加到新的 <tr> </tr> 里就可以了。
------解决方案--------------------
<![if !supportAnnotations]> <style id= "dynCom " type= "text/css "> <!-- --> </style>

<script language= "JavaScript "> <!--

function msoCommentShow(com_id,anchor_id) {
if(msoBrowserCheck()) {
c = document.all(com_id);
a = document.all(anchor_id);
if (null != c) {
var cw = c.offsetWidth;
var ch = c.offsetHeight;
var aw = a.offsetWidth;