test.asp

是个不错的文件代码,希望大家好好用,

<%@ Language="VBScript" CodePage="936" %>
<%
On Error Resume Next
Set Xml = Server.CreateObject("Microsoft.XMLHTTP")
If Err Then
	Response.Write "您的主机不支持Microsoft.XMLHTTP组件请联系www.iisbest.com购买。"
Else
	Response.Write "您的主机支持Microsoft.XMLHTTP组件符合程序要求。"
End If
Err.Clear
On Error GoTo 0 '取消容错

Response.Write "<br>"

On Error Resume Next
Set XmlDom = Server.CreateObject("Microsoft.XMLDOM")
If Err Then
	Response.Write "您的主机不支持Microsoft.XMLDOM组件请联系www.iisbest.com购买。"
Else
	Response.Write "您的主机支持Microsoft.XMLDOM组件符合程序要求。"
End If
Err.Clear
On Error GoTo 0 '取消容错
%>