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
Set o = Nothing
Set oD = Nothing
End If |