|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
<% '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 %> |