<%
truepayreurl="http://www.28ye.com/truepay.asp?"

function truepayre(out_trade_no,mysign,total_fee) 
dim Http 
cset="gb2312"
lasturl=truepayreurl&"out_trade_no="&out_trade_no&"&mysign="&mysign&"&total_fee="&total_fee
set Http=server.createobject("MSXML2.XMLHTTP") 
Http.open "GET",lasturl,false 
Http.send() 
if Http.readystate<>4 then exit function 
truepayre=bytesToBSTR(Http.responseBody,cset) 
set http=nothing 
if err.number<>0 then err.Clear  
end function 

Function BytesToBstr(body,Cset) 
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 
%>