function setFont(targetObj,size)
{
	var obj = document.getElementById(targetObj);
	obj.style.fontSize = size + 'pt';
}

function setHome(){
this.homepage.style.behavior='url(#default#homepage)';this.homepage.sethomepage('http://www.eastlinden.com');
}

function HTMLcutPage(obj)
{
	if (document.getElementById(obj) ){
		var Source = document.getElementById(obj)
		var html = Source.innerHTML;
		//alert(html.length);
	}
	if (document.getElementById('Content'))
	{
		var Content = document.getElementById('Content');
		//alert(Content.style.Height);
	}
													
}

function SubmitOnce(form){
	if (document.all||document.getElementById)
		{
			for (i=0;i<form.length;i++)
			{
				var tempobj=form.elements[i];
				if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
				tempobj.disabled=true;
			}
		}
}

function setTarget(){
	if ( document.all || document.getElementsByTagName )
	{
		var tagList = document.getElementsByTagName("A");
		for( var i = 0 ; i < tagList.length; i ++)
		{
			tagList[i].target = "_blank";
		}
	}
}

function ReImgSize(){
  for (i=0;i<document.images.length;i++)
   {
   if (document.all){
	if (document.images[i].width>500)
	 {
       document.images[i].width="500"
       document.images[i].outerHTML='<a href="'+document.images[i].src+'" target="_blank" title="在新窗口打开图片">'+document.images[i].outerHTML+'</a>'
  	 }
   }
  else{
	if (document.images[i].width>400) {
	  document.images[i].title="在新窗口打开图片"
	  document.images[i].style.cursor="pointer"
	  document.images[i].onclick=function(e){window.open(this.src)}
	}
  }
  }
}
 
function clearHTML(Str){
    var S = Str
    //S = S.replace(/<a\s(href=\S+)(.+>)/gi ,"[[[a $1")
    //S = S.replace(/<a\s(.+\s)(href=.+s)(.+>)/gi ,"[[[a $2 >")
    //S = S.replace(/<\/a>/gi ,"[[[/a>")
    S = S.replace(/<img\s(src=\S+)(.*?>)/gi ,"[[[img $1>")
    S = S.replace(/<img\s(.+\s)(src=.*\s)(.*?>)/gi ,"[[[img $2 ")
    S = S.replace(/<br?>/gi , "[[[br/>")
    S = S.replace(/<p(.*?>)/gi , "[[[p>")
    S = S.replace(/<\/p>/gi , "[[[/p>")
    S = S.replace(/<(table+\s)/gi ,"[[[$1 ")
    S = S.replace(/<\/table?>/gi , "[[[/table>")    
    S = S.replace(/<(tr.+>)/gi ,"[[[tr>")
    S = S.replace(/<\/tr?>/gi , "[[[/tr>")
    S = S.replace(/<(td.*)(rowspan.\d.|colspan.\d.)(.*?)>/gi ,"[[[td $2>")
    S = S.replace(/<(td.+?)>/gi ,"[[[td>")
    S = S.replace(/<\/td?>/gi , "[[[/td>")
    S = S.replace(/<.+?>/gi , "")//去掉其它HTML代码
    S = S.replace(/\[\[\[/gi , "<")    
    return S
}