01.
<%
03.
04.
Set
Http = CreateObject(
"Microsoft.XMLHTTP"
)
05.
06.
Http.Open
"post"
, url,
False
07.
Http.Send
08.
09.
responsePage = Http.responseText
10.
11.
valid=instr(responsepage,
"<Validate>1</Validate>"
)
12.
13.
Response.Buffer = true
14.
15.
response.Write(
"valid="
&valid&
"<br>"
)
16.
%>