PubPage2=PubPage2 & VbCrLf & "</td></form></tr></table>"
end Function
'//********************************************************************************
' Pubobject_install(strclassstring) 组件判断函数 值为 true 时 说明服务器支持该组件
' 参数：strclassstring 组件标示
'**********************************************************************************//
function Pubobject_install(strclassstring)
on error resume next
Pubobject_install=false
dim xtestobj
err=0
set xtestobj=server.createobject(strclassstring)
if err=0 then Pubobject_install=true
set xtestobj=nothing
err=0
end function
%>
