<% 'option explicit %>
<%
' Response.Expires = 0 'ASP 스크립트를 사용하여 캐싱 금지
' Response.Expiresabsolute = Now() - 1
' Response.AddHeader "pragma","no-cache"
' Response.AddHeader "cache-control","private"
' Response.CacheControl = "no-cache"
Dim Type
Dim ID
Dim RLOC
Type = request.Form("Type")
ID = request.Form("ID")
RLOC = request.Form("RLOC")
HttpPath="http://MyWebSite/my.asmx/WSTL"
'-------------------------------------------------------------------
Dim lResolve
Dim lConnect
Dim lSend
Dim lReceive
Dim sSend
sSend="Type="& Type & _
"&ID="& ID & _
"&RLOC="& RLOC
'response.write sSend
'response.end
Set XMLhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
lResolve = 30 * 1000 'Timeout values are in milli-seconds
lConnect = 30 * 1000
lSend = 30 * 1000
lReceive = 30 * 1000
XMLhttp.setTimeouts lResolve, lConnect, lSend, lReceive
XMLhttp.open "POST",HttpPath, False
'------------------------------------------------------------------
XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XMLhttp.Send sSend
Dim sResponse
sResponse = XMLhttp.responseText
Response.ContentType = "text/xml"
response.write sResponse
response.end
%>