西数超哥博客
运维经验教程分享

测试空间是否支持ADODB.STREAM/XMLHTTP组件

<%

on error resume next

dim objstream 
set objstream = CreateObject("adodb.stream") 
objstream.Open 

if err.number <> 0 then
   err.Clear 
   response.Write "no"
else
   response.Write "yes"
end if

%>

<%
On Error Resume Next
Response.Write "<h3>服务XmlHttp组件支持情况</h3><br>"
oxml=array("Msxml2.ServerXMLHTTP.6.0","Msxml2.ServerXMLHTTP.5.0","Msxml2.ServerXMLHTTP.4.0","Msxml2.ServerXMLHTTP.3.0","Msxml2.ServerXMLHTTP","Msxml2.XMLHTTP.6.0","Msxml2.XMLHTTP.5.0","Msxml2.XMLHTTP.4.0","Msxml2.XMLHTTP.3.0","Msxml2.XMLHTTP")
for i=0 to ubound(oxml)
Set getxmlhttp = Server.CreateObject(oxml(i))
If Err Then
Err.Clear
Response.Write oxml(i)&"不支持<br/>"
else
Response.Write oxml(i)&" 支持<br/>"
end if
next
%>

把代码保存为asp文件,上传到空间,直接访问,即可检测。

赞(0)
声明:本站发布的内容(图片、视频和文字)以原创、转载和分享网络内容为主,若涉及侵权请及时告知,将会在第一时间删除。本站原创内容未经允许不得转载:西数超哥博客 » 测试空间是否支持ADODB.STREAM/XMLHTTP组件

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址