undColor='#cccccc'" style="padding: 0px 2px;">
    <td>
      <%
	iDepth=rsClass("Depth")
	if rsClass("NextID")>0 then
		arrShowLine(iDepth)=True
	else
		arrShowLine(iDepth)=False
	end if
	if iDepth>0 then
	  	for i=1 to iDepth
			if i=iDepth then
				if rsClass("NextID")>0 then
					Response.write "<img src='images/tree_line1.gif' width='17' height='16' valign='abvmiddle'>"
				else
					'Response.Write "&nbsp;&nbsp;©À "
					Response.write "<img src='images/tree_line2.gif' width='17' height='16' valign='abvmiddle'>"
				end if
			else
				if arrShowLine(i)=True then
					Response.write "<img src='images/tree_line3.gif' width='17' height='16' valign='abvmiddle'>"
				else
					'Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "
					Response.write "<img src='images/tree_line4.gif' width='17' height='16' valign='abvmiddle'>"
				end if
			end if
	  	next
	  end if
	  if rsClass("Child")>0 then
	  	'Response.write "<img src='Images/tree_folder4.gif' width='15' height='15' valign='abvmiddle'>"
	  else
	  	'Response.write "<img src='Images/tree_folder3.gif' width='15' height='15' valign='abvmiddle'>"
	  end if
	  if rsClass("Depth")=0 then
	  	Response.write "<b>"
	  end if
	  Response.write "<a href='admin_logclass.asp?Action=Modify&id=" & rsClass("id") & "&t=" & t & "' title='" & rsClass("ReadMe") & "'>" & rsClass("classname") & "</a>"
	  if rsClass("Child")>0 then
	  	Response.write "£¨" & rsClass("Child") & "£©"
	  end if


	  'Response.write "&nbsp;&nbsp;" & rsClass("id") & "," & rsClass("PrevID") & "," & rsClass("NextID") & "," & rsClass("ParentID") & "," & rsClass("RootID")
	  %>
    </td>
    <td align="center">
    	<a href="admin_logclass.asp?Action=Add&ParentID=<%=rsClass("id")%>&t=<%=t%>">Ìí¼Ó×Ó·ÖÀà</a> |
    	<a href="admin_logclass.asp?Action=Modify&id=<%=rsClass("id")%>&t=<%=t%>">ÐÞ¸ÄÉèÖÃ</a> |
      	<a href="admin_logclass.asp?Action=Move&id=<%=rsClass("id")%>&t=<%=t%>">Òƶ¯·ÖÀà</a> |
      	<a href="admin_logclass.asp?Action=Del&id=<%=rsClass("id")%>&t=<%=t%>" onClick="<%if rsClass("Child")>0 then%>return ConfirmDel1();<%else%>return ConfirmDel2();<%end if%>">ɾ³ý</a></td>
  </tr>
  <%
	rsClass.movenext
loop
%>
</table>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
<script language="JavaScript" type="text/JavaScript">
function ConfirmDel1()
{
   alert("´Ë·ÖÀàÏ»¹ÓÐ×Ó·ÖÀ࣬±ØÐëÏÈɾ³ýÏÂÊô×Ó·ÖÀàºó²ÅÄÜɾ³ý´Ë·ÖÀ࣡");
   return false;
}

function ConfirmDel2()
{
   if(confirm("ɾ³ý·ÖÀཫ²»Äָܻ´£¡È·¶¨ÒªÉ¾³ý´Ë·ÖÀàÂð£¿"))
     return true;
   else
     return false;

}
</script>
<%
end sub

sub AddClass()
%>
<table cellpadding="0" cellspacing="1" border="0" width="98%" class="border" align=center>
  <form name="form1" method="post" action="admin_logclass.asp?t=<%=t%>" onSubmit="return check()">
    <tr>
      <td colspan="3" align="center" class="title"><strong>Ìí ¼Ó ·Ö Àà</strong></td>
    </tr>
    <tr class="tdbg">
      <td width="350"><strong>ËùÊô·ÖÀࣺ</strong><br>
        ²»ÄÜÖ¸¶¨ÎªÍⲿ·ÖÀà </td>
      <td> <select name="ParentID">
          <%call Admin_ShowClass_Option(0,ParentID)%>
        </select></td>
    </tr>
    <tr class="tdbg">
      <td width="350"><strong>·ÖÀàÃû³Æ£º</strong></td>
      <td><input name="classname" type="text" size="37" maxlength="20"></td>
    </tr>
    <tr class="tdbg">
      <td width="350"><strong>·ÖÀà˵Ã÷£º<br>
        </strong> Êó±êÒÆÖÁ·ÖÀàÃû³ÆÉÏʱ½«ÏÔʾÉ趨µÄ˵Ã÷ÎÄ×Ö£¨²»Ö§³ÖHTML£©</td>
      <td><textarea name="Readme" cols="37" rows="4" id="Readme"></textarea></td>
    </tr>
    <tr class="tdbg">
      <td height="40" colspan="2" align="center"><input name="Action" type="hidden" id="Action" value="SaveAdd"> <input name="Add" type="submit" value=" Ìí&nbsp;&nbsp;¼Ó " >
        &nbsp; <input name="Cancel" type="button" id="Cancel" value=" È¡ Ïû " onClick="window.location.href='admin_logclass.asp?t=<%=t%>'">
      </td>
    </tr>
  </form>
</table>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
<script language="JavaScript" type="text/JavaScript">
function check()
{
  if (document.form1.classname.value=="")
  {
    alert("·ÖÀàÃû³Æ²»ÄÜΪ¿Õ£¡");
	document.form1.classname.focus();
	return false;
  }
}
</script>
<%
end sub

sub Modify()
	dim id,sql,rsClass,i
	id=Trim(Request("id"))
	if id="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>²ÎÊý²»×㣡</li>"
		exit sub
	else
		id=CLng(id)
	end if
	sql="select * From oblog_logclass where id=" & id
	set rsClass=Server.CreateObject ("Adodb.recordset")
	rsClass.open sql,conn,1,3
	if rsClass.bof and rsClass.eof then
		Response.Write "<br><li>ÕÒ²»µ½Ö¸¶¨µÄ·ÖÀ࣡</li>"
		Response.End()
	else
%>
<table cellpadding="0" cellspacing="1" border="0" width="98%" class="border" align=center>
  <form name="form1" method="post" action="admin_logclass.asp?t=<%=t%>" onSubmit="return check()">
    <tr>
      <td colspan="3" align="center" class="title"><strong>ÐÞ ¸Ä ·Ö Àà</strong></td>
    </tr>
    <tr class="tdbg">
      <td width="350"><strong>ËùÊô·ÖÀࣺ</strong><br>
        Èç¹ûÄãÏë¸Ä±äËùÊô·ÖÀ࣬Çë<a href="admin_logclass.asp?Action=Move&id=<%=id%>&t=<%=t%>">µã´ËÒƶ¯·ÖÀà</a></td>
      <td>
        <%
	if rsClass("ParentID")<=0 then
	  	Response.write "ÎÞ£¨×÷Ϊһ¼¶·ÖÀࣩ"
	else
    	dim rsParentClass,sqlParentClass
		sqlParentClass="select * From oblog_logclass where id in (" & rsClass("ParentPath") & ") order by Depth"
		set rsParentClass=Server.CreateObject("adodb.recordset")
		rsParentClass.open sqlParentClass,conn,1,1
		do while not rsParentClass.eof
			for i=1 to rsParentClass("Depth")
				Response.write "&nbsp;&nbsp;&nbsp;"
			next
			if rsParentClass("Depth")>0 then
				Response.write "©¸"
			end if
			Response.write "&nbsp;" & rsParentClass("classname") & "<br>"
			rsParentClass.movenext
		loop
		rsParentClass.close
		set rsParentClass=nothing
	end if
	%></select>
        </td>
    </tr>
    <tr class="tdbg">
      <td width="350"><strong>·ÖÀàÃû³Æ£º</strong></td>
      <td><input name="classname" type="text" value="<%=rsClass("classname")%>" size="37" maxlength="20"> <input name="id" type="hidden" id="id" value="<%=rsClass("id")%>"></td>
    </tr>
    <tr class="tdbg">
      <td width="350"><strong>·ÖÀà˵Ã÷£º<br>
        </strong> Êó±êÒÆÖÁ·ÖÀàÃû³ÆÉÏʱ½«ÏÔʾÉ趨µÄ˵Ã÷ÎÄ×Ö£¨²»Ö§³ÖHTML£©</td>
      <td><textarea name="Readme" cols="37" rows="4" id="Readme"><%=rsClass("ReadMe")%></textarea></td>
    </tr>
    <tr class="tdbg">
      <td height="40" colspan="2" align="center"><input name="Action" type="hidden" id="Action" value="SaveModify"> <input name="Submit" type="submit" value=" &nbsp;±£´æÐ޸Ľá¹û&nbsp; " >
        &nbsp; <input name="Cancel" type="button" id="Cancel" value=" È¡&nbsp;&nbsp;Ïû " onClick="window.location.href='admin_logclass.asp?t=<%=t%>'">
      </td>
    </tr>
  </form>
</table>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
<script language="JavaScript" type="text/JavaScript">
function check()
{
  if (document.form1.classname.value=="")
  {
    alert("·ÖÀàÃû³Æ²»ÄÜΪ¿Õ£¡");
	document.form1.classname.focus();
	return false;
  }
}
</script>
<%
	end if
	rsClass.close
	set rsClass=nothing
end sub

sub MoveClass()
	dim id,sql,rsClass,i
	id=Trim(Request("id"))
	if id="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>²ÎÊý²»×㣡</li>"
		exit sub
	else
		id=CLng(id)
	end if

	sql="select * From oblog_logclass where id=" & id
	set rsClass=Server.CreateObject ("Adodb.recordset")
	rsClass.open sql,conn,1,3
	if rsClass.bof and rsClass.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>ÕÒ²»µ½Ö¸¶¨µÄ·ÖÀ࣡</li>"
	else
%>
<table cellpadding="0" cellspacing="1" border="0" width="98%" class="border" align=center>
<form name="form1" method="post" action="admin_logclass.asp?&t=<%=t%>">
	<tr>
	  <td colspan="3" align="center" class="title"><strong>ÒÆ ¶¯ ·Ö À<!--#include file="inc/inc_sys.asp"-->
<!--#include file="../inc/Cls_xmlDoc.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>JSµ÷ÓùÜÀí</title>
<link rel="stylesheet" href="images/style.css" type="text/css" />
<script src="images/menu.js" type="text/javascript"></script>
</head>
<body>
<div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left">JSµ÷ÓùÜÀí£º</li>
		<li class="main_top_right right"> </li>
	</ul>
	<div class="main_content_rightbg">
		<div class="main_content_leftbg">
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
    <tr >
      <td width="70" height="30"><strong>×¢ÒâÊÂÏ</strong></td>
      <td height="30" style="color:red;">¢ÙÌí¼Óµ÷Óúó£¬ÔÚÁбíÖеã»÷ÏàÓ¦µÄÔ¤ÀÀ¼´¿É¿´µ½Ð§¹û£¬½«µ÷ÓôúÂ븴ÖƵ½ÈÎÒâλÖü´¿Éµ÷Óá£<br>¢Ú½¨Ò齫ʱ¼ä¼ä¸ôÉèÖõÄÉÔ΢³¤Ò»µã£¬ÓÐÀû¼õÉÙ×ÊÔ´ÏûºÄ</td>
    </tr>
    <tr >
      <td width="70" height="30"><strong>¹ÜÀíµ¼º½£º</strong></td>
      <td height="30"><a href="?action=add">Ìí¼ÓJSµ÷ÓÃ</a> | <a href="?">JSµ÷ÓÃÁбí</a></td>
    </tr>
</table>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
<%
Dim getType

Dim xmlDoc

ReDim getType(13)

getType(0) = ""
getType(1) = "Õ¾µãͳ¼Æ"
getType(2) = "Óû§ÐÅÏ¢"
getType(3) = "Õ¾µã¹«¸æ"
getType(4) = "ϵͳ·ÖÀà"
getType(5) = "ÈÕÖ¾"
getType(6) = "ÏàƬ"
getType(7) = "²©¿ÍÖ®ÐÇ"
getType(8) = "Ȧ×ÓÁбí"
getType(9) = "Ȧ×ÓÈÕÖ¾"
getType(10) = "±êÇ©£¨TAG£©"
getType(11) = "Óû§ÍƼö£¨DIGG£©ÈÕÖ¾"
getType(12) = "±»ÍƼö£¨DIGG£©Óû§ÐÅÏ¢"
getType(13) = "µÇ¼´°¿Ú"

Dim eName,Intro,eType,Update,FormatTime
Dim isModify
Dim action
Dim node
Dim head,skinmain,foot
Dim Sql

eName = Trim(Request("eName"))
Intro = Trim(Request("Intro"))
eType = Trim(Request("eType"))
Update = Trim(Request("Update"))
FormatTime = Trim(Request("FormatTime"))
isModify = Trim(Request("modify"))

head = Trim(Request("head"))
skinmain = Trim(Request("main"))
foot = Trim(Request("foot"))

Dim topN,length,order,isbest

topN = Trim(request("topn"))
If topN<>"" Then topN = CLng(topN) Else topN=10
If topN  >50 Then topN = 50
length = Trim(request("length"))
If length<>"" Then length = CLng(length) Else length=20
order = Trim(request("order"))
isbest = Trim(request("isbest"))
action = Trim(Request("action"))

Select Case Trim(Request("action"))
	Case "del":Call delNode()
	Case "add","modify":Call add()
	Case "saveadd":Call saveadd()
	Case Else :Call main()
End Select

'²¿·Ö²Î¿¼DV
Sub main()%>
<div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left">JSµ÷ÓÃÁбí</li>
		<li class="main_top_right right"> </li>
	</ul>
	<div class="main_content_rightbg">
		<div class="main_content_leftbg">
<form action="" method="post" name="myform">
<table cellpadding="0" cellspacing="1" border="0" align="center" width="100%" class="border">
	<tr class="title">
		<td align="center" width="28" height="23"><strong>Ñ¡ÖÐ</strong></td>
		<td align="center" width="100"><strong>·ÖÀà</strong></td>
		<td align="center"><strong>Ãû³Æ</strong></td>
		<td align="center" width="150"><strong>˵Ã÷</strong></td>
		<td align="center" width="80"><strong>Ìí¼Ó¸üÐÂʱ¼ä</strong></td>
		<td align="center" width="60"><strong>Ìí¼ÓÕß</strong></td>
		<td align="center" width="60"><strong>²Ù×÷</strong></td>
	</tr>
<%
Dim xmlDoc
Set XmlDoc=CreateObject("Msxml2.DOMDocument"&MsxmlVersion)
	If Not xmlDoc.Load(Server.Mappath("../xmlData/jsTemplate.config")) Then
		Response.Write  "Ä£°åÎļþ²»´æÔÚ£¬ÎÞ·¨Íê³É²Ù×÷"
		Response.End
	End If
Dim nodes,i,node
Set nodes = xmlDoc.getElementsByTagName("template")
For Each node In nodes
%>
	<tr>
		<td align=center><input name='ename' type='checkbox' id="ename" value='<%=node.GetAttribute("name")%>' /></td>


		<td align=center style="color:#090;font-weight:600;"><%=getType(node.GetAttribute("type"))%></td>
		<td align=center><%=node.GetAttribute("name")%></td>
		<td >
		<%=node.GetAttribute("intro")%>
		<br><font color="gray">¸üÐÂʱ¼ä¼ä¸ôΪ£º<font color="red"><%=node.GetAttribute("update")%></font>&nbsp;Ãë¡£</font>
		</td>
		<td style="color:#666;font-family:tahoma,Arial,Helvetica,sans-serif;font-size:10px;padding:0 0 0 8px!important;"><%=node.GetAttribute("addTime")%><br><font color="red"><%=node.GetAttribute("updateTime")%></font></td>
		<td align=center style="color:#666;font-family:tahoma,Arial,Helvetica,sans-serif;font-size:10px;padding:0 0 0 8px!important;"><span style="font-size:12px;font-weight: 600;">admin</span><br><font color="gray"><%=node.GetAttribute("IP")%></font></td>
		<td align=center>
		<a href="#" onclick="document.myform.action.value='modify';document.myform.eName.value='<%=node.GetAttribute("name")%>';document.myform.submit();">±à¼­</a> &nbsp;<a href="../jsView.htm?action=<%=node.GetAttribute("name")%>" target="blank">Ô¤ÀÀ</a>
		</td>
	</tr>
<%Next%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" height="30">
		<label for="chkAll"><input type="checkbox" id="chkAll" name="chkAll" onclick="CheckAll(this.form);"> Ñ¡Öб¾Ò³ËùÓÐ</label>
		<input type="hidden" name="action" value="del"><input type="hidden" name="eName" value=""><input type="submit" name="Submit" value="ɾ³ý" onclick="return confirm('È·¶¨ÒªÉ¾³ýÑ¡ÖеļǼÂð£¿');" >
	</td>
  </tr>
</table>
</form>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
	<%
	End Sub
Sub add()
	If  action="modify" Then

		Set xmlDoc = New Cls_XmlDoc
		xmlDoc.Unicode = False

		If Not xmlDoc.LoadXml("../xmlData/jsTemplate.config") Then
			oblog.ShowMsg "Ä£°åÎļþ²»´æÔÚ£¬ÎÞ·¨Íê³É²Ù×÷",""
		End If
		Dim node
		Set node = XmlDoc.NodeObj("template[@name='"&eName&"']")

		Intro = XmlDoc.AtrributeValue("template[@name='"&eName&"']","intro")
		eType = XmlDoc.AtrributeValue("template[@name='"&eName&"']","type")
		Update = XmlDoc.AtrributeValue("template[@name='"&eName&"']","update")
		order = XmlDoc.AtrributeValue("template[@name='"&eName&"']","order")

		head =  node.selectSingleNode("head").text
		skinmain =  node.selectSingleNode("main").text
		foot =  node.selectSingleNode("foot").text
	End if
	%>
<style type="text/css">
.main_content_leftbg div ul label { width: 200px; text-align: right; }
fieldset legend { font-weight: 600; }
#skin_info ol { padding: 0 0 0 12px; margin: 0 0 0 20px; }
#skin_info ol li { list-style: disc inline none; }

</style>

<div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left">Ìí¼ÓJSµ÷ÓÃ</li>
		<li class="main_top_right right"> </li>
	</ul>
	<div class="main_content_rightbg">
		<div class="main_content_leftbg">
<form method="post" action="?action=saveadd" name="TheForm">
<table cellpadding="3" cellspacing="1" border="0" align="center" width="100%">
	<tr>
		<td width="30%" class="td2" align="right">Ãû³Æ£º</td>
		<td width="70%" class="td1"><input type="text" name="eName" size="20" Maxlength="10" onkeyup="OutputNewsCode(this.value);" value="<%=eName%>" <%If  action="modify" Then Response.Write "readonly" %> >(Ó¢ÎÄ»òÕßÊý×Ö)</td>
	</tr>
	<tr>
		<td class="td2" align="right">µ÷ÓôúÂ룺</td>
		<td class="td1"><input type="text" name="code" id="code" style="width: 100%;" size="60" disabled value="<script src=&quot;<%=Trim(oblog.CacheConfig(3))%>jsNew.asp?action=<%=eName%>&quot;></script>"></td>
	</tr>
	<tr>
		<td class="td2" align="right">µ÷ÓÃ˵Ã÷£º</td>
		<td class="td1"><input type="text" name="Intro" size="30" Maxlength="30" value="<%=Intro%>"></td>
	</tr>
	<tr>
		<td class="td2" align="right">µ÷ÓÃÀàÐÍ£º</td>
		<td class="td1">
			<select NAME="eType" ID="eType" onchange="NewsTypeSel(this.selectedIndex)">
				<option value="0">ÇëÑ¡Ôñ</option>
<%
Dim i
For i = 1 To UBound(getType)
%>
				<option value="<%=i%>" <%If Int(OB_IIF(eType,0)) = i Then Response.Write "selected"%>><%=getType(i)%></option>
<%Next%>
				</select>
		</td>
	</tr>
	<tr>
		<td class="td2" align="right">Êý¾Ý¸üмä¸ô£º</td>
		<td class="td1"><input type="text" name="Update" value="<%=Update%>">(µ¥Î»£ºÃë)</td>
	</tr>
</table>
<div id="News"></div>

<table cellpadding="3" cellspacing="1" border="0" align="center" width="100%">
<!-- µ÷ÓÃÄ£°åÉèÖà -->
	<tr>
      <td height="25" colspan="2" class="topbg"><b>µ÷ÓÃÄ£°åÉèÖÃ&nbsp;£¨ÇëÓÃHTML´úÂëÌîд£©</b></td>
    </tr>
	<tr>
		<td width="30%" class="td2" align="right" valign="top">Ä£°å¿ªÊ¼±ê¼Ç²¿·Ö</td>
		<td width="70%" class="td2"><textarea name="head" ID="head" style="width:100%;" rows="3"><%=head%></textarea></td>
	</tr>
	<tr>
		<td class="td2" align="right" valign="top">Ä£°åÖ÷ÌåÑ­»·±ê¼Ç²¿·Ö
			<fieldset title="Ä£°å±äÁ¿">
				<legend>&nbsp;Ä£°å±äÁ¿ËµÃ÷&nbsp;</legend>
				<div id="skin_info" align="left">ÇëÑ¡Ôñµ÷ÓÃÀàÐÍ¡£</div>
			</fieldset>
		</td>
		<td class="td2" valign="top">
			<div id="DisInput"></div>
			<textarea name="main" ID="main" style="width:100%;" rows="10"><%=skinmain%></textarea>
		</td>
	</tr>
	<tr>
		<td class="td2" align="right" valign="top">Ä£°å½áÊø±ê¼Ç²¿·Ö</td>
		<td class="td2"><textarea name="foot" ID="foot" style="width:100%;" rows="3"><%=foot%></textarea></td>
	</tr>
<!-- µ÷ÓÃÄ£°åÉèÖà -->
	<tr>
      <td height="40" colspan="2" align="center" class="tdbg" ><%If action="modify" Then %><input type="hidden" name="modify" value="1" /><%End if%><input type="submit" class="button" value=" Ìá½»ÉèÖà "></td>
	</tr>
</table>

</form>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>

<!-- ÉèÖÃÐÅÏ¢²¿·Ö -->
<div id="News_1" style="display:none">
<!-- ͳ¼ÆÐÅÏ¢ -->
ÎÞÉèÖÃÐÅÏ¢
</div>
<div id="News_2" style="display:none">
<!-- Óû§ÐÅÏ¢ -->
<table cellpadding="3" cellspacing="1" border="0" align="center" width="100%">
	<tr>
		<td height="25" colspan="2" class="topbg"><b>Óû§ÐÅÏ¢ÉèÖÃ</b></td>
    </tr>
	<tr>
		<td class="td2" width="30%" align="right">µ÷ÓÃÌõÊý£º</td>
		<td class="td1" width="70%"><input type="text" id="topn" name="topn" value="<%
		If  action="modify" Then  Response.Write (XmlDoc.AtrributeValue("template[@name='"&eName&"']","topN"))%>" size="10" /></td>
	</tr>
	<tr>
		<td class="td2" align="right">²©¿ÍÃû³¤¶ÈÏÞÖÆ£º</td>
		<td class="td1"><input type="text" id="leng