<%		
	'定义变量
	'具体
	Dim obj,strBuf
	Set obj   = Server.CreateObject("OpenVendorV34.NetTran")	
	
  	ret=obj.GetResult("193","ShunDa","test","2","","2006-07-3%2000:00:00","2006-07-4%2000:00:00","")   
  	
  	
   	if(ret=0) then   
   		'下载成功，取交易结果数据，具体格式见《开放商户支付接口V34.doc》中“对帐结果数据”一节
   		strBuf=obj.LastResult      		
   	else
   		'下载失败，取错误信息
   		strBuf=obj.LastErrMsg
	end if   
	Response.Write strBuf
	
	Response.End
   

%>





