asp无组件上传:Asp组件检测函数来源: 发布时间:星期四, 2009年2月12日 浏览:213次 评论:0
![]() ![]() ![]() ![]() ![]() ![]() ![]() \' ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() \'作 用:检查组件是否已经安装 \'参 数:strClassString ----组件名 \'返回值:True ----已经安装 \' False ----没有安装 \' ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Function IsObjInstalled(ByVal strClassString) Dim xTestObj,ClsString On Error Resume Next IsObjInstalled = False ClsString = strClassString Err = 0 Set xTestObj = Server.CreateObject(ClsString) If Err = 0 Then IsObjInstalled = True If Err = -2147352567 Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 Exit Function End Function 0
相关文章读者评论发表评论 |