自定义函数未声明问题

[whitewindmail]

<script language=vb runat=server>
dim fso

public sub c_fso()
if IsReference(fso) then exit sub
fso=server.CreateObject("scripting.Filesystemobject")
end sub

public Function GetImg(subno,subno2)
c_fso()
GetImg=subno
if not(fi_true(subno)) then GetImg=subno2
return getimg
End Function


public function fi_true(path)
fi_true=false
c_fso()
if fso.fileExists(Server.MapPath(path))<>false then fi_true=true
if err<>0 then fi_true=false
err.clear
return fi_true
end function


</script>

小弟刚学.net不久,这个是我包含文件fun.inc 中的内容 为什么老是在
if not(fi_true(subno)) then GetImg=subno2
这一行出错,错误信息
编译器错误信息: BC30451: 名称“fi_true”未声明

还有本来 if IsReference(fso) then exit sub 这里的isreference原来是isobject的
但是提示isobject未声明,在网上找了换成这个不知道对不对

请各位高手帮忙啊

[whitewindmail]

此问题已解决
怎么结贴

[whitewindmail]

在线的这么多人怎么没一个帮我的啊

在线等啊,马上给分