<%
'接口信息
APPID="GDS-0008-fDwr"
APPKey="TH8o9RQItfd9bzffeOCW"

'Get方法
Function GetBody(appUrl,Origin)
Set https = Server.CreateObject("Msxml2.ServerXMLHTTP") 

With https 
.Open "GET", appUrl&"?"&Origin, False
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.Send ""
GetBody = .ResponseBody
End With 
GetBody = BytesToBstr(GetBody,"utf-8")
Set https = Nothing 
End Function

'Post方法
Function PostBody(appUrl,args1)
	Set PBrs = Server.CreateObject("ADODB.Recordset")
	Set https = Server.CreateObject("Msxml2.ServerXMLHTTP") 
	
	'Set https = Server.CreateObject("MSXML2.XMLHTTP") 
	With https 
	.Open "Post", appUrl, False
	.setRequestHeader "Content-Type","multipart/form-data"
	.Send args1
	PostBody = .ResponseBody
	End With 
	PostBody = BytesToBstr(PostBody,"utf-8")
	Set https = Nothing 
End Function

Function BytesToBstr(body,Cset) '飘易：转换GB2312
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText 
objstream.Close
set objstream = nothing
End Function

%>