// ################################################################################# // # File Name : satistics.js // # Project : Able Web Site Development // # System : Web Visitor Statistics // # Purpose : Show Site Visitor Information // # Function : mu2iafControl // # Model : This program is based on the Document Object Model (DOM) // # Language : JavaScript (Client Side Scripting. ver: 5.6) // # Include : sitedata.js, // # Date Issued : 2006/09/12(Tsu)-17:21:15 // # Base URL : http://www.all.co.nz/ // # Location : js/ // # Usage : See each module functions // # Browsers : (eg.) IE5.x and above // # Requirement : (eg.) // # Restriction : (eg.) inline style only // # Author : Hiroto Sekine (Able LL Systems Dpt. CHC, NZL) // # Copyright : (C) 2006 Southern Cross Virtual Co., Ltd. All Rights Reserved. // # Contact : info@all.co.nz // # Tab Stop : 4 (Suitable TAB stop size to view this Source Code) // # =============================================================================== // # ** Revision ** // # Date Description Sign Mark // # ------+-------------------------------------------------------+---------+------ // # // ################################################################################# @set @DEBUG = 0 // Program Debug Flag: ON(>=1)/OFF(=0)/(==9)Test Release Mode // ########################################################################### // # << NOTICE >> # // # THIS PROGRAM CODE BELONGS TO SOUTHERN CROSS VIRTUAL CO., LTD. IT IS # // # CONSIDERED A TRADE SECRET AND IS NOT TO BE DIVULUGED OR USED BY PARTIES # // # WHO HAVE NOT RECEIVED WRITTEN AUTHORIZATION FROM THE OWNER. # // # ----------------------------------------------------------------------- # // # << 通知 >> # // # 本プログラムはSOUTHERN CROSS VIRTUAL CO., LTD.の財産です。本プログラム # // # はトレード・シークレットとみなされ、当該権利者の書面による許可なくして、# // # 漏洩または使用を禁じます。 # // ########################################################################### var saveCountryNum = 0; var saveLanguageNum = 0; var oImageSize = new Array(); var giImageOffset = new Array(3); giImageOffset[0] = -1; giImageOffset[1] = -1; giImageOffset[2] = -1; var gbImageSortDir = false; function getImageSizes( sCode ){ var oRetData = new Array(2); oRetData[0] = 0; oRetData[1] = 0; for (var i=0; i 0){ sCode = sImageSrc.substr(sImageSrc.length-6,2); // Country Code/Class Code(G1-G5) switch(sImageSrc.substr(sImageSrc.length-9,3)){ case "geo": // GEO Map if (giImageOffset[0] == -1){ giImageOffset[0] = i; } sCode += "1"; break; case "lng": // Language if (giImageOffset[1] == -1){ giImageOffset[1] = i; } sCode += "2"; break; case "cnt": // Contents if (giImageOffset[2] == -1){ giImageOffset[2] = i; } sCode += "3"; break; } } else { // i == 0 sCode = "top"; } with(oImageSize[i]){ oCells[0] = sCode; oCells[1] = oColl[i].clientWidth; oCells[2] = oColl[i].clientHeight; @if (@DEBUG == 1) alert("sCode= " + oCells[0] + " Width= " + oCells[1] + " Height= " + oCells[2]); @end } } x.style.display = "none"; } } /* *----------------------------------------------------------------------------* */ /* * Common Global Constans, Variables, Constructors Definition * */ /* *----------------------------------------------------------------------------* */ @if (@DEBUG == 8) // Adminitorator Mode var MAX_LIMIT = 100; // Max Display Limit for Table Row @else var MAX_LIMIT = 30; // Release Mode @end var Number_Of_Object = 3; var OBJECT_ID0 = 0; var OBJECT_ID1 = 1; var OBJECT_ID2 = 2; var DISP_MORE_THAN = 5; // Display Detailed Info. more than this visitor var KEY_TOTAL = 0; // obj.oCells[0] var KEY_WEEKLY = 1; // obj.oCells[1] var KEY_ORGPOS = 2; // obj.oCells[2] var KEY_RATIO = 3; // obj.oCells[3] var gbSortOrder = false; // Initial: DeAscendant var giSortKey = new Array(Number_Of_Object); // Sort Key item Array Number(0,1,2,...) var giRmsgIdx = new Array(Number_Of_Object); // Rich-Msg-Box Index var giSrtKeyPtr = 0; // Which Sort Key to be used in qSort3 /* ############################################################################## */ /* *----------------------------------------------------------------------------* */ /* * Web Statistics Module (1): Visitor's GEO Information * */ /* *----------------------------------------------------------------------------* */ /* ############################################################################## */ // *-----------------[: Module Global Variable Definition ]---------------------* var goCountry = null; // Country Data Object var giCountryLen = 0; // Country Data Record Length var DISP_MORE_THAN = 5; // Display Detailed Info. more than this visitor var SELECT_ID1 = "oSelID1"; // var DIV_ID2 = "oTopLanguage"; //

var GRAPH_MAX2 = 800; // *-----------------[: Main Procedure Devision ]----------------------------* function fnSiteLanguageList( oObject, iTopNum, bDir, KeyPos ){ // *------------------------------------------------------- // * Initial Procedure // *------------------------------------------------------- var oOL = F[ oObject ]; if (oOL == null){ alert("Fatal Error: HTML TAG Element '" + oObject + "' is not found.\nContact H. Sekine at info@all.co.nz, Thank you."); return; } goLanguage = new makeLNGPack(); giLanguageLen = goLanguage.length; giSortKey[OBJECT_ID1] = KeyPos; // Set Sort KEY Position giSrtKeyPtr = OBJECT_ID1; gbSortOrder = bDir; var START_DATE2 = (KeyPos == KEY_TOTAL) ? MOST_GEO_PERIOD_START2 : MOST_GEO_PERIOD_START2; var END_DATE2 = MOST_GEO_PERIOD_END2; var dtArray = new Array(); var oCell, oRow, Loop, iWidth, oImg; var i, j, k, idx; var iCount = 0; var iRealNum = 0; var iRankNo = 0; var iPrevNo = 0; var ua = window.navigator; if (ua.cookieEnabled){ var cookieVal = getCookieValue( coABLESITE_STAT2 ); if (cookieVal != null && cookieVal != iTopNum){ iTopNum = cookieVal; @if (@DEBUG == 1) window.status = "iTopNum is stored as: " + iTopNum + "."; @end } } if (iTopNum <= 0){ oOL.style.display = 'none'; F.oTopLanguageCap.style.display = 'none'; return; } // *---------------------------------------------------------------------------- // * Make Work Array to Sort Visitor Data by the Number (TOTAL/WEEKLY) // *---------------------------------------------------------------------------- for (i=0, j=0; i MAX_LIMIT) ? MAX_LIMIT : iTopNum; // *---------------------------------------------------------------------------- // * Sorting the Work Data Array & Calculate the Ratio // *---------------------------------------------------------------------------- qSort3(dtArray, 0, iRealNum); if (saveLanguageNum != 0) dtArray[iRealNum-1].Cells[KeyPos] = saveLanguageNum; fnSetRMB2Info(dtArray, iRealNum, 1); for (i=0; i iRealNum) ? iRealNum : iTopNum; k = giRmsgIdx2[OBJECT_ID1]; // *------------------------------------------------------- // * Main Procedure // *------------------------------------------------------- for (var q=0, i=0; i 0) && (k != -1)){ oCell.innerHTML = "" + goLanguage[idx].Lname + ""; } else { oCell.innerText = goLanguage[idx].Lname; } break; case 2: // Actual Visitor Number (Total/Weekly) with( oCell ){ innerText = dtArray[i].Cells[KeyPos]; align = "center"; } break; case 3: // Draw Graph Bar based on the Ratio Value oImg = document.createElement( "IMG" ); iWidth = Math.floor((dtArray[i].Cells[KEY_RATIO] / 150) * 1200); iWidth = (iWidth > GRAPH_MAX1) ? GRAPH_MAX1 : iWidth; with( oImg ){ src = "graph.gif"; width = iWidth; height = 12; title = (dtArray[i].Cells[KEY_RATIO].toString()).substr(0,5) + " %"; } oCell.appendChild( oImg ); break; default: break; } oRow.appendChild( oCell ); } oTBody.appendChild( oRow ); } // for Loop end oOL.appendChild( oTable ); // *------------------------------------------------------- // * Closing Procedure // *------------------------------------------------------- with( document ){ var oSelect = createElement( "SELECT" ); var oOption = createElement( "OPTION" ); var oSpan1 = createElement( "SPAN" ); var oSpan2 = createElement( "SPAN" ); var oSpan3 = createElement( "SPAN" ); var oSpan4 = createElement( "SPAN" ); } for (i=0; i Visitor's Languages( " + iRealNum + " ): "; oSpan2.appendChild( oSelect ); oSpan3.innerHTML = "　Period【" + START_DATE2 + "-" + END_DATE2 + "】"; oSpan4.innerHTML = "　Total Visitors【 " + iCount + " 】"; with( F.oTopLanguageCap ){ appendChild( oSpan1 ); appendChild( oSpan2 ); appendChild( oSpan3 ); appendChild( oSpan4 ); style.display = ""; } var x = F[ "GEOMAP" ]; if (x != null) x.title = "Period【" + START_DATE2 + "-" + END_DATE2 + "】"; oOL.style.display = ""; // var goLanguage = null; // Country Data Object release // var giLanguageLen = 0; // Country Data Record Length } // End of "fnSiteCountryList" // *-----------------[: Module Spelialised Utility Tools ]----------------------* function fnSiteLanguageList2(){ var ua = window.navigator; var x = F[ SELECT_ID2 ]; if (x != null){ var iValue = x.selectedIndex+1; with( F ){ oTopLanguage.innerHTML = ""; oTopLanguageCap.innerHTML = ""; } if (ua.cookieEnabled){ setCookieValue( coABLESITE_STAT2, iValue, twoWeeks ); @if (@DEBUG == 1) window.status = "Top Caps value: " + iValue + " saved."; @end } fnSiteLanguageList(DIV_ID2, iValue, false, giSortKey[OBJECT_ID1]); } } /* ############################################################################## */ /* *----------------------------------------------------------------------------* */ /* * Web Statistics Module (3): Site Contents Page Views Information * */ /* *----------------------------------------------------------------------------* */ /* ############################################################################## */ // *-----------------[: Module Global Variable Definition ]---------------------* var goContent = null; var goContentLen = 0; var SELECT_ID3 = "oSelID3"; //