1.客户端提交请求
Domain = " test.com"
sXml = "?xml version=""1.0"" encoding=""gb2312"" ?" &_
"Package" &_
"Domain" & Domain & "/Domain" &_
"/Package"
Set oD = Server.CreateObject("Microsoft.XMLHTTP")
oD.Open "Post", "http://Server/Domain_Check.jsp", False
oD.Send(sXml)
If oD.Status = 200 Then
Result = oD.responseText
Set o = Server.CreateObject("Microsoft.XMLDOM")
o.LoadXML(Result)
Domain = CInt(o.selectSingleNode("//Result").text)
Response.Write Domain
...[ 查看全文 ]