UC知道谁知道这段ASP代码是什么意思？
来源：百度知道 编辑：UC知道 时间：2024/06/02 15:51:08
<%
footer
end if
end sub
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
%>
为什么去掉以后就显示乱码了，如果想去掉，应该怎么写啊
footer
end if
end sub
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
%>
为什么去掉以后就显示乱码了，如果想去掉，应该怎么写啊
首先,你没有把文件里的内容全写上,里面有一个过程
footer
end if
end sub
这一些上面还有东西,不知道是什么,但一定不能删除.(当然,你认为上面的过程没有用的话,可以把整个过程全删除 ,但不能只删除上面的这一些.你向上找,找到SUB开头的那一行开始至这里的END SUB把里面的全删除了.)
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
一个函数,判断对象是否能建立,如果能建立就返回真,不能就返回 假,最好不想删除,因为是一个函数,在其它地方可能有用的.如果删除了其它有用的地方想引用就不能引用了,就会报错,差不多也就是你说的去掉以后就显示乱码了.
判断组件有没有安装的函数。footer
end if
end sub
把这个去掉