示例 ASP 脚本

<%@ Language=VBScript %>
			<%
			Response.Buffer = True
			Dim objXMLHTTP, xml, command, aicc_loc, version, session_id, 
		aicc_data, postbody

'get passed params depending on method sent'
			if(Request.Querystring("aicc_loc") <> "") then
			aicc_loc=Request.Querystring("aicc_loc")
			command=Request.Querystring("command")
			version=Request.Querystring("version")
			session_id=Request.Querystring("session_id")
			aicc_data=Request.Querystring("aicc_data")
			else
			aicc_loc=Request.form("aicc_loc")
			command=Request.form("command")
			version=Request.form("version")
			session_id=Request.form("session_id")
			aicc_data=Request.form("aicc_data")
		end if

' Build the post body string'
			postbody = "command=" + Server.URLEncode(command) + 
			"&version=" + Server.URLEncode(version) + "&session_id=" + 
			Server.URLEncode(session_id)
			if aicc_data <> "" then
			postbody = postbody + "&aicc_data=" + Server.URLEncode
			(aicc_data)
		end if

' Create an xmlhttp object:'
			Set xml = Server.CreateObject("Microsoft.XMLHTTP")
			' Or, for version 3.0 of XMLHTTP, use:'
		' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")'

' Opens the connection to the remote server.'
			xml.Open "POST", aicc_loc, False
			xml.setRequestHeader "Content-Type", "application/x-www-form-
		urlencoded"

'Actually Sends the request and returns the data:'
		xml.Send postbody

'Send back the response'
		Response.Write xml.responseText

Set xml = Nothing
		%>