<%
result = "001459010020"
sitem = "M"
if result <> "" then
set data = Server.createObject("Scripting.Dictionary")
if sitem = "M" then
url = "http://192.168.1.3:80/StbData/ADMovie/ADMovie2.xml"
end if
set xml = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
xml.Open "GET", url, false
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.send
res1 = xml.status
res = xml.responsetext
'response.Write res
If res1 = 200 Then
Set responseStrm = CreateObject("ADODB.Stream")
responseStrm.Open 'Open the stream data To the object
responseStrm.Position = 0
responseStrm.Type = 1 'binary data
responseStrm.Write xml.responseBody
responseStrm.Position = 0
responseStrm.Type = 2 'Default. Text data
responseStrm.Charset = "UTF-8" 'Specify charset For the source text (unicode) data.
Session.CodePage = 65001
resultStr = responseStrm.ReadText 'Open the stream And get binary data from the object
Response.Write resultStr
responseStrm.close
Set responseStrm = Nothing
End If
set xml = nothing
end if
set result = nothing
%>
Bookmarks