function getSQLDataByDB(sSql)
{	
	var sQryString,address;	
	var xmlQryPkg = new ActiveXObject("Microsoft.xmldom");                 //宣告XML格式物件
	xmlQryPkg.async = false;	                                       //是否要事先下載
	address = "../include/GetSQLData.asp";
	sQryString  = "<root>";
	sQryString += ReplaceSQL(sSql);                                        //呼叫ReplaceSQL(此為前端VBScript Code)
	sQryString += "</root>";
	xmlQryPkg.loadXML(sQryString);                                         //將字串轉換成XML格式，並指給XML物件
	var xmlResult = getXML(address,xmlQryPkg);                             //若不至資料庫存檔，此Function不需執行
	XMLdata.XMLDocument.load(xmlResult);                                   //將傳回之XML載入XMLdata 標籤中
	return XMLdata.XMLDocument.documentElement.childNodes.length;
}

function getDataByDB(sSql)
{	
	var sQryString,address;
	var xmlQryPkg = new ActiveXObject("Microsoft.xmldom");                 //宣告XML格式物件
	xmlQryPkg.async = false;	                                       //是否要事先下載
	address = "../include/GetData.asp";
	sQryString  = "<root>";
	sQryString += ReplaceSQL(sSql);                                        //呼叫ReplaceSQL(此為前端VBScript Code)
	sQryString += "</root>";
	xmlQryPkg.loadXML(sQryString);                                         //將字串轉換成XML格式，並指給XML物件
	var xmlResult = getXML(address,xmlQryPkg);                             //若不至資料庫存檔，此Function不需執行
//0970613改成下一段		XMLdata.XMLDocument.load(xmlResult);                                   //將傳回之XML載入XMLdata 標籤中
	if (null != xmlResult && "" != xmlResult.xml)
	{
		XMLdata.XMLDocument.loadXML(new String(xmlResult.xml));  
	}
	else
	{
		return 0; 
	} 
	return XMLdata.XMLDocument.documentElement.childNodes.length;
}

//0960727
function getDataByDB2(sSql)
{	
	var sQryString,address;
	var xmlQryPkg = new ActiveXObject("Microsoft.xmldom");                 //宣告XML格式物件
	xmlQryPkg.async = false;	                                       //是否要事先下載
	address = "../include/GetData2.asp";
	sQryString  = "<root>";
	sQryString += ReplaceSQL(sSql);                                        //呼叫ReplaceSQL(此為前端VBScript Code)
	sQryString += "</root>";
	xmlQryPkg.loadXML(sQryString);                                         //將字串轉換成XML格式，並指給XML物件
	var xmlResult = getXML(address,xmlQryPkg);                             //若不至資料庫存檔，此Function不需執行
//0970613改成下一段		XMLdata.XMLDocument.load(xmlResult);                                   //將傳回之XML載入XMLdata 標籤中
	if (null != xmlResult && "" != xmlResult.xml)
	{
	XMLdata.XMLDocument.loadXML(xmlResult.xml);  
	}
	else
	{
	return 0; 
	} 
	return XMLdata.XMLDocument.documentElement.childNodes.length;
}

function getXML(aspname,xmlQryPkg) 
{
	//post the query string to the web server
	var xmlRequest = new ActiveXObject("Microsoft.XMLHTTP");               //宣XML傳輸物件
	xmlRequest.open("POST",aspname,false,null,null);                       //在Server端開啟一ASP程式，資料以POST送出
	xmlRequest.send(xmlQryPkg);                                            //將XML送出                          	
	return xmlRequest.responseXML;                                         //function傳出一XML(因為ASP傳回已是XML格式)

}

function getLicenseDataByDB(sApplyKind,sSql,sMaxCgSql)
{	
	var sQryString,address;	
	var xmlQryPkg = new ActiveXObject("Microsoft.xmldom");                 //宣告XML格式物件
	xmlQryPkg.async = false;	                                       //是否要事先下載
	address = "../include/GetLicense.asp";
	sQryString  = "<root>";
	sQryString += "<sql>"       + ReplaceSQL(sSql)      + "</sql>";        //呼叫ReplaceSQL(此為前端VBScript Code)
	sQryString += "<applykind>" + sApplyKind            + "</applykind>";
	sQryString += "<smaxcgsql>" + ReplaceSQL(sMaxCgSql) + "</smaxcgsql>";
	sQryString += "</root>";
	xmlQryPkg.loadXML(sQryString);                                         //將字串轉換成XML格式，並指給XML物件
	var xmlResult = getXML(address,xmlQryPkg);                             //若不至資料庫存檔，此Function不需執行
	XMLdata.XMLDocument.load(xmlResult);                                   //將傳回之XML載入XMLdata 標籤中
	return XMLdata.XMLDocument.documentElement.childNodes.length;
}

function getDataCountByDB(sSql)
{	
	var sQryString,address;	
	var xmlQryPkg = new ActiveXObject("Microsoft.xmldom");                 //宣告XML格式物件
	xmlQryPkg.async = false;
	address = "../include/GetCount.asp";
	sQryString  = "<root>";
	sQryString += ReplaceSQL(sSql);                                        //呼叫ReplaceSQL(此為前端VBScript Code)
	sQryString += "</root>";
	xmlQryPkg.loadXML(sQryString);                                         //將字串轉換成XML格式，並指給XML物件
	var xmlResult = getXML(address,xmlQryPkg);                             //若不至資料庫存檔，此Function不需執行
	return xmlResult.documentElement.childNodes(0).text;
}

function getLicense2DataByDB(sKind,sSql,sSql1,sSql2,sCnt)
{	
	var sQryString,address;	
	var xmlQryPkg = new ActiveXObject("Microsoft.xmldom");                 //宣告XML格式物件
	xmlQryPkg.async = false;
	if (sKind == "bmb02") 
		address = "../include/GetLicense2.asp";
	else if (sKind == "bmb04")
		address = "../include/GetLicense2.asp";
	//else if (sKind == "bmb05")
	//	address = "../include/GetLicense4.asp";
	//else if (sKind == "bmb06")
	//	address = "../include/GetLicense3.asp";
	//else if (sKind == "bmb07")
	//	address = "../include/GetLicense3.asp";
	//else if (sKind == "bmb08")
	//	address = "../include/GetLicense3.asp";
	sQryString  = "<root>";
	sQryString += "<sql>"     + ReplaceSQL(sSql)  + "</sql>";
	sQryString += "<sql1>"    + ReplaceSQL(sSql1) + "</sql1>";              //呼叫ReplaceSQL(此為前端VBScript Code)
	sQryString += "<sql2>"    + ReplaceSQL(sSql2) + "</sql2>";
	sQryString += "<landCnt>" + ReplaceSQL(sCnt)  + "</landCnt>";
	sQryString += "<kind>"    + sKind             + "</kind>";
	sQryString += "</root>";
	xmlQryPkg.loadXML(sQryString);                                         //將字串轉換成XML格式，並指給XML物件
	var xmlResult = getXML(address,xmlQryPkg);                             //若不至資料庫存檔，此Function不需執行
	XMLdata.XMLDocument.load(xmlResult);                                   //將傳回之XML載入XMLdata 標籤中
	return XMLdata.XMLDocument.documentElement.childNodes.length;
}

function getLicense3DataByDB(sSql1,sSql2,sSql3,sSql4,sCnt)
{	
	var sQryString,address;	
	var xmlQryPkg = new ActiveXObject("Microsoft.xmldom");                 //宣告XML格式物件
	xmlQryPkg.async = false;	                                       //是否要事先下載
	address = "../include/GetLicense4.asp";		
	sQryString  = "<root>";
	sQryString += "<sql1>" + ReplaceSQL(sSql1) + "</sql1>";
	sQryString += "<sql2>" + ReplaceSQL(sSql2) + "</sql2>";                //呼叫ReplaceSQL(此為前端VBScript Code)
	if (sSql3 != "" ) sQryString += "<sql3>" + ReplaceSQL(sSql3) + "</sql3>";
	if (sSql4 != "" ) sQryString += "<sql4>" + ReplaceSQL(sSql4) + "</sql4>";
	if (sCnt  != "" ) sQryString += "<cnt>"  + ReplaceSQL(sCnt)  + "</cnt>";
	sQryString += "</root>";
	xmlQryPkg.loadXML(sQryString);                                         //將字串轉換成XML格式，並指給XML物件
	var xmlResult = getXML(address,xmlQryPkg);                             //若不至資料庫存檔，此Function不需執行
	XMLdata.XMLDocument.load(xmlResult);                                   //將傳回之XML載入XMLdata 標籤中
	return XMLdata.XMLDocument.documentElement.childNodes.length;
}

function goPage(sPrgId)
{
	window.parent.main.location.replace(sPrgId);
}

function goHelpFile(sPrgId)
{
	window.open(sPrgId,"","height=400,width=600,top=50,left=100,scrollbars");
}