今天公司有人发邮件 问这个,所以查了一下,共同学习
<
script language
=
"
VBScript
"
>
Function IsExistsYahooAssist() Function IsExistsYahooAssist()
On error resume Next
Dim YahooAssistObj
Set YahooAssistObj = CreateObject("YAssist.EasyAssist")
If IsObject(YahooAssistObj) then
IsExistsYahooAssist = True
else
IsExistsYahooAssist = False
end if
Set YahooAssistObj = Nothing
err.clear
End Function
</ script >
Function IsExistsYahooAssist() Function IsExistsYahooAssist()
On error resume Next
Dim YahooAssistObj
Set YahooAssistObj = CreateObject("YAssist.EasyAssist")
If IsObject(YahooAssistObj) then
IsExistsYahooAssist = True
else
IsExistsYahooAssist = False
end if
Set YahooAssistObj = Nothing
err.clear
End Function
</ script >