submit_order_function.asp

机票预定系统 各个模块的设计-ticket reservation systems detailed design system modules of the design

<%
'跨站提交函数
function GetSourceInfo(url,var1,var2,var3,dailicode,checkorder)
dim xmlhttp,xmlget,bgpos,endpos
Set xmlhttp = CreateObject("Msxml2.ServerXMLHTTP") 
DataToSend="var1="&server.urlencode(var1)&"&var2="&server.urlencode(var2)&"&var3="&server.urlencode(var3)&"&dailicode="&server.URLEncode(dailicode)&"&checkorder="&server.URLEncode(checkorder)
With xmlhttp
.Open "POST", url, False
.setRequestHeader "Content-Length",len(DataToSend)
.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
.Send DataToSend
On Error Resume Next
if .status<>200 then
xmlget="error"
else
xmlget = bin2str(.responseBody)
end if
End With 
set xmlhttp = nothing
GetSourceInfo=xmlget
end function
Function bin2str(binstr)
Const adTypeBinary = 1
Const adTypeText = 2
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream") '建立一个流对象
With BytesStream
.Type = adTypeText
.Open
.WriteText binstr
.Position = 0 
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
bin2str = StringReturn
End Function
%>