narrowad.htm

用fortran编写的复合形法的源程序

 











if(!window.tixa_nadWidth){
    var tixa_nadWidth=680;
}
if(!window.tixa_nadHeight){
    var tixa_nadHeight=85;
}

if(!window.tixa_nadRowCount){
    var tixa_nadRowCount=1;
}
if(!window.tixa_nadColumnCount){
    var tixa_nadColumnCount=3;
}

if(!window.tixa_nadBorderColor){
    var tixa_nadBorderColor='FFFFFF';
}
if(!window.tixa_nadBgColor){
    var tixa_nadBgColor='FFFFFF';
}
if(!window.tixa_nadTitleColor){
    var tixa_nadTitleColor='000000';
}
if(!window.tixa_nadDescColor){
    var tixa_nadDescColor='333333';
}


if(tixa_nadWidth<100 || tixa_nadHeight<70){
    tixa_nadWidth=680;
    tixa_nadHeight=85;
}


var narrowad_clientUrl = document.location.href;
if(narrowad_clientUrl.indexOf(".narrowad.com/")>0){
    document.location.href="http://www.narrowad.com";
}


var narrowad_inIframe = 0;
if(self!=top){
    narrowad_inIframe = 1;    
}

if (self!=top && window.tixa_nadInIframe && window.tixa_nadInIframe==true) 
    narrowad_clientUrl = document.referrer;


var para = 'wid='+13413+
	   '&cid='+26988+
	   '&rc='+tixa_nadRowCount+
	   '&cc='+tixa_nadColumnCount+
	   '&h='+tixa_nadHeight+
	   '&w='+tixa_nadWidth+
	   '&bdc='+tixa_nadBorderColor+
	   '&bgc='+tixa_nadBgColor+
	   '&tc='+tixa_nadTitleColor+
	   '&dc='+tixa_nadDescColor+
	   '&userID=3c15ce324532ded0d0b3'+
	   '&uri='+escape(narrowad_clientUrl);




tixa_bad_js_exception_flag = false;

// function insert the js
function tixa_bad_ijs(js) {
	try {
	    for (var i = 0; i < js.length; i++) {
	        var url = js[i];
	        var id = "tixa_bad_js_" + i;
	        var o0 = top.document.getElementById(id);
	        if (o0 == null) {
	            o0 = top.document.createElement("script");
	            o0.id = id;
	            top.document.body.insertBefore(o0, top.document.body.childNodes[0]);
	        }
	        o0.src = url;
	    }
    } catch(e) {
    	tixa_bad_js_exception_flag = true;
    }
}
// function insert the div
function tixa_bad_idiv(name) {
	try{
	    var o0 = top.document.createElement("div");
	    o0.id = name
	    top.document.body.insertBefore(o0, top.document.body.childNodes[0]);
    } catch(e) {
    	tixa_bad_js_exception_flag = true;
    }
}


try {
	// indentify browser type
	var tixa_bad_browser_type = document.all ? 1 : (document.getElementById ? 0 : -1);
	//indentify weather the mmad has been loaded
	var tixa_bad_div_flag = true;
	if (tixa_bad_browser_type >= 0) {
		try {
		    tixa_bad_div_flag = top.document.getElementById("tixa_bad_div") ? true : false;
	    } catch(e) {
	    	tixa_bad_js_exception_flag = true;
	    };
	
	    // if not loaded,load it
	    if (!tixa_bad_div_flag) {
	        tixa_bad_idiv("tixa_bad_div");
	    }
	}
	
	var tixa_bad_mm_flag2 = true;
	if (window.tixa_bad_mm_flag != null && window.tixa_bad_mm_flag == false) {
	    tixa_bad_mm_flag2 = false;
	}
	
	var tixa_bad_jsarray=new Array(2);
	tixa_bad_jsarray[0]="http://rm.narrowad.com/js2/mm.js";
	tixa_bad_jsarray[1]="http://union.narrowad.com/mm2/mm.jsp?deff=-1333568612&origin=narrowad&pc=332755900c68&wID=13413&cID=26988&userID=3c15ce324532ded0d0b3&websiteType=3&channelType=12&areaID=H&mmFlag=" + tixa_bad_mm_flag2 + "&mmDivFlag=" + tixa_bad_div_flag + "&jsFlag=" + tixa_bad_js_exception_flag + "&inIframe=" + narrowad_inIframe + "&userIP=60.21.206.50&url=" + escape(narrowad_clientUrl);
	// if not in a iframe,use triditional way,else use the new way
	if(narrowad_inIframe==1)
	{
		setTimeout("tixa_bad_ijs(tixa_bad_jsarray)",1000);
	}
	else
	{
		var jssrc1 = "<scr"+"ipt src='" + tixa_bad_jsarray[0] + "'></scr"+"ipt>";
		document.write(jssrc1);
		
		var jssrc2 = "<scr"+"ipt src='" + tixa_bad_jsarray[1] + "'></scr"+"ipt>";
		document.write(jssrc2);
	}

} catch(e) {};

var linkValue = 'http://union.narrowad.com/proxy/nadshower.jsp?pc=332755900c68&'+para;
var docSrc='<iframe id=nadmouseframe name=nadmouseframe marginwidth=0 marginheight=0 frameborder=0 scrolling=no src="'+linkValue+'" width="'+tixa_nadWidth+'" height="'+tixa_nadHeight+'"></iframe>';
document.write(docSrc);