这是什么错误?

[ramiro]

<%
strAddr = Server.MapPath(".")
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.WorkBooks.Open(strAddr & "D:\2006\06.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
%>

错误类型：
Microsoft VBScript 运行时错误 (0x800A0046)
没有权限: 'CreateObject'
/test.asp, 第 2 行

[wtg321]

好象是运行dcomcnfg命令开放三个everyone的excel权限.

你搜索一下试试吧.

[FIREGUNS]

哎？不是server.CreateObject吗？