一个关于删除附件的问题，急！

[zhaozipeng]

我删除附件文件的代码如下：
id=request(trim("id"))
sql2="select * from zg_f_date where f_id='"&id&"' "
set rs1=convulcan.execute(sql2)
if not rs1.eof then
f_fujian=rs1("f_fujian")
sortid=rs1("sortid")
filename=rs1("filename")
rs1.close
set rs1=nothing
set rs=server.createobject("adodb.recordset")
sql="delete from zg_f_date where f_id='"&id&"'"
rs.open sql,convulcan,1,1
'rs.close
'set rs=nothing
if f_fujian=1 then
addr="../"&sortid&"/"&filename
FiLePaTh1 =Server.MapPath(addr)
Set fso1 = CreateObject("Scripting.FileSystemObject")
fso1.DeleteFile(filepath1)
Set fso1 = nothing
end if

end if
产生如下错误
Microsoft VBScript 运行时错误 错误 '800a01ad'

ActiveX 部件不能创建对象: 'Scripting.FileSystemObject'

/exhibition/admin/dele.asp，行24

[skyboy0720]

Set fso1 = Server.CreateObject("Scripting.FileSystemObject")

[ttt2]

服务器不支持这个组件

[zhaozipeng]

那如何解决呢，高手帮忙啊！

[zhaozipeng]

帮我啊

[tangxufeng]

把Set fso1 = CreateObject("Scripting.FileSystemObject")
改成Set fso1 = server.CreateObject("Scripting.FileSystemObject")

[qiao198]

不支持或没有权限

[arcow]

改成Set fso1 = server.CreateObject("Scripting.FileSystemObject")不行就是服务器禁用了fso

[gdmm]

convulcan???