function isNumberInt(num)
{
	var myMod = num % 1;
	return (myMod == 0);
}

function parseDate(str)
{
	/*
	var arrDate = str.split(/[\/\-: ]/);
	if(arrDate.length<6) throw "Invalid DateTime format";
	var d = new Date(arrDate[0],parseInt(arrDate[1])-1,arrDate[2],arrDate[3],arrDate[4],arrDate[5]);
	if(isNaN(d))
		throw "Invalid DateTime format";
	return d;	
	*/	
	return str;	
}

function dateToString(d)
{	
	return d.getFullYear()+"-"+(d.getMonth()+1)+"-"+d.getDate()+" "+d.getHours()+":"+d.getMinutes()+":"+d.getSeconds();
}

function getObjectType(obj)
{
	//n=null,b,i,f,s,d,o,a
	if(obj == null) return 'n';
	
	//alert(obj.constructor);
	switch(obj.typeName)
	{
	case "number":
		if(isNumberInt(obj))
			return 'i';
		else
			return 'f';
	case "boolean":
		return 'b';
	case 'string':
		return 's';
	case 'date':
		return 'd';
	case 'array':
		return 'a';
	default:
		return 'o';
	}
}

function packageObject(elm,type,arg)
{
	switch(type)
	{
	case 'n':
		break;
	case 'b':
	case 'i':
	case 'l':
	case 'f':
	case 's':
		elm.text = arg.toString();break;
	case 'd':
		elm.text = dateToString(arg);break;
	case 'o':
		for(var key in arg)
		{
			var child =arg[key];
			var subtype = getObjectType(child);
			//it's empty deal to its minValue in b/i/f
			var childElm = elm.ownerDocument.createElement(subtype+key);
			elm.appendChild(childElm);
			packageObject(childElm,subtype,child);
		}
		break;
	case 'a':
		for(var i=0;i<arg.length;i++)
		{
			var child =arg[i];
			var subtype = getObjectType(child);
			var childElm = elm.ownerDocument.createElement(subtype+"Item");
			elm.appendChild(childElm);
			packageObject(childElm,subtype,child);
		}
		break;
	}
}

function getObjectFromXml(elm,type)
{
	if(type==null) return null;
	switch(type)
	{
	case 'n':
		return null;
	case 'b':
	case 'B':
		if ((elm.text=="True")||(elm.text=="true"))
		{
			return true;
		}
		else
		{
			return false;
		}
	case 'i':
	case 'I':
	case 'l':
	case 'L':
	    if (elm.text == "") return null;
		var val = parseInt(elm.text);
		if(isNaN(val))				
			throw elm.tagName+" must be an integer";
		return val;
	case 'f':
	case 'F':
		if(elm.text=="") return null;
		var val = parseFloat(elm.text);
		if(isNaN(val))				
			throw elm.tagName+" must be an float";
		return val;
	case 's':
		return elm.text;
	case 'd':
	case 'D':
		try{
			if (elm.text=="")
			{
				return null;
			}
			else
			{
				return parseDate(elm.text);
			}
		}catch(ex)
		{
			throw elm.tagName+"must be in a DateTime format(yyyy-MM-dd HH:mm:ss)"; 
		}
	case 'o':
		{
			var obj = new Object();
			var nodes = elm.childNodes;		
			for(var i=0;i<nodes.length;i++)
			{
				var child = nodes[i];
				if(child.nodeType==1)//NODE_ELEMENT
				{
					var childtype = child.tagName.charAt(0);
					var key = child.tagName.substring(1);
					obj[key] = getObjectFromXml(child,childtype);
				}
			}
			return  obj;
		}
	case 'a':
		{
			var arr = new Array();
			var nodes = elm.childNodes;
			for(var i=0;i<nodes.length;i++)
			{
				var child = nodes[i];
				if(child.nodeType==1)//NODE_ELEMENT
				{
					var childtype = child.tagName.charAt(0);
					var key = child.tagName.substring(1);
					if(key=="Item")
					{
						arr[arr.length] = getObjectFromXml(child,childtype);
					}
				}
			}
			return arr;
		}
	case 'v':
		return null;
	default:
		throw "type '"+type+"' can't be recognized";
	}
}

function sendXml(url,strXml)
{
	var xmlHttp = new ActiveXObject("Microsoft.XmlHttp");
	xmlHttp.open("POST",url,false);
	xmlHttp.send(strXml);
	if(xmlHttp.status!=200)
	{
		//throw "Network issue or remote server issue";
		//throw "请求后台，未正常响应；状态值：" + xmlHttp.status;
		//alert(xmlHttp.responseText.toString());
		var oException = new Object();		
		oException.ErrorType = 1;		
		oException.ErrorTime = dateToString(new Date());
		oException.ErrorCode = "C-PUB-00001";
		oException.Message="Network issue or remote server issue";
		oException.ErrorMessage = "xmlHttp.status:"+xmlHttp.status;
		oException.StackTrace=xmlHttp.responseText.toString();
		oException.InnerExceptionDto=new Object();
		throw oException;
	}
	else
	{
		return xmlHttp.responseText;
	}	
}

/************************************************************
 函数说明：通用远程服务调用函数
 函数名称：callRemoteFunction
 输入参数：	url		：要调用的URL
			functionName	：要调用的远程函数名称

			arguments		: 动态参数，代表远程服务的输入参数

 输出参数：	无

 返 回 值：	远程服务的返回对象

 特别说明：	错误,通过抛出获得
			打包函数 -> 打包参数 -> 通过serviceName找到远程服务的URL -> 
			发送请求，并等待响应 -> 判断响应正确性 -> 解包返回值，形成对象，并返回
 ************************************************************/	
function callRemoteFunction(funcName)
{

	if(funcName == null)
		throw "funcName must exist";		
	//package arguments
	var xmlDoc = new ActiveXObject("msxml2.DOMDocument");		
	var docElm = xmlDoc.appendChild(xmlDoc.createElement("Function"));

	docElm.setAttribute("name",funcName);
	for(var i=1;i<arguments.length;i++)
	{
		var arg = arguments[i];
		var elm = xmlDoc.createElement("Param");
		var type = getObjectType(arg);
		elm.setAttribute("type",type);
		packageObject(elm,type,arg);
		docElm.appendChild(elm);
	} 
	var retVal = sendXml(url,xmlDoc.xml);
		xmlDoc = new ActiveXObject("msxml2.DOMDocument");
	if(!xmlDoc.loadXML(retVal))
		throw "The format of remote server return is not an Xml";
	docElm = xmlDoc.documentElement;
	switch(docElm.tagName)
	{
		case "Output":
			{
				return getObjectFromXml(docElm,docElm.getAttribute("type"));
			}
		case "Error":
			{
				//throw "Remote server returns error: "+ docElm.text;			
				if (docElm.getAttribute("type") == null)
				{
					//兼容旧方式的处理
					throw docElm.text;
				}
				else
				{
					//新的异常机制的处理

					throw getObjectFromXml(docElm,docElm.getAttribute("type"));			
				}
			}
		default:
			{				
				throw "Remote server returns invalid xml";
			}
	}
}