savePicture函数？

Question

用VB做了个组件，该组件中有一个类，另外添加了一个表单，表单放了一个picturebox。
在类中简单的写了个函数，如下：
Public Sub draw()
    Form1.Picture1.AutoRedraw = True
    Form1.Picture1.Circle (500, 500), 500, RGB(255, 0, 0)
    SavePicture Form1.Picture1.Image, "dc.bmp"
End Sub然后写了一个ASP网页，在该网页中调用了上面的组件，ASP网页如下：
         dim t
set t=server.CreateObject("myDc.dc")
t.draw()
其中，myDc为组件名称，dc为类名.访问该ASP网页后，提示"Microsoft VBScript 运行时错误 (0x800A01FB)
出现一个意外错误: 'draw'"这样的错误.把draw()方法中的SavePicture Form1.Picture1.Image, "dc.bmp"这条语句去掉就没有问题。我想可能是SavePicture方法在组件使用存在着问题，但一直找不出来，望高手指点？

Answer 1

应该是组件的权限问题，不允许创建文件。