大家 帮忙看看怎么回事？

[muniu]

我编译了一个find.dll组件，代码如下：
Option Explicit
Public Declare Function FindWindow Lib "user32"
Alias "FindWindowA" (ByVal lpClassName As String, ByVal
lpWindowName As String) As Long

Public Function findwin() As Long
Dim Handle As Long
Handle = FindWindow("XLMAIN", vbNullString)
If Handle <> 0 Then
findwin = 1
Else
findwin = 0
End If
End Function

注册成功后，在asp中怎么不管excel是否打开，结果都是0呢？（在vb中测试是不同的结果）
asp代码：
dim Findwin
dim flag
set Findwin=server.CreateObject("find.win")
flag=Findwin.findwin
if flag=1 then
response.write flag
else
response.write flag
end if

[zhxhjj]

gz