请问谁能帮我解释下下面的asp代码含义,先谢谢了·最好能解释详细点!

来源:百度知道 编辑:UC知道 时间:2024/05/21 12:49:45
<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
''''''''''''''''''''''''''''''
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
Err = 0
End Function
%>

<% //这应该是一个校验com组件的代码
Function IsObjInstalled(strClassString) //判断系统是否已按转 strClassString名称的组件
On Error Resume Next //错误跟踪机制
IsObjInstalled = False //初始化定义组件为安装
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString) //创建这个组件
If 0 = Err Then IsObjInstalled = True //如果 为出错 说明组件已经安装
Set xTestObj = Nothing //清楚初始化的组件
Err = 0
End Function
''''''''''''''''''''''''''''''
Function getver(Classstr) //版本判断
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr) //创建组件
If 0 = Err Then getver=xtestobj.version //将组件的版本赋值给getver
Set xTestObj = Nothing
Err = 0
End Function
%>