te "selected" %>>日志分类</option>
				<option value="1" <%If order = "1" Then Response.Write "selected" %>>相册分类</option>
				<option value="2" <%If order = "2" Then Response.Write "selected" %>>圈子分类</option>
			</select>
		</td>
	</tr>
</table>
</div>
<div id="News_5" 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="length" name="length" value="<%If  action="modify" Then  Response.Write (XmlDoc.AtrributeValue("template[@name='"&eName&"']","length"))%>" size="10" /></td>
	</tr>
	<tr>
		<td class="td2" align="right">日志分类：</td>
		<td class="td1"><select id="classid" name="classid">
		<% Dim classid
		If  action="modify" Then
			classid =  XmlDoc.AtrributeValue("template[@name='"&eName&"']","classid")
		Else
			classid = 0
		End if
		%>
		<%=oblog.show_class(2,classid,0)%></select></td>
	</tr>
	<tr>
		<td class="td2" align="right">用户ID：</td>
		<td class="td1"><input type="text" id="userid" name="userid" value="<%If  action="modify" Then  Response.Write (XmlDoc.AtrributeValue("template[@name='"&eName&"']","userid"))%>" size="10" />（如果要调用某一个人的日志，请指定已经存在的某个用户的ID）</td>
	</tr>
	<tr>
		<td class="td2" align="right">日志时间范围：</td>
		<td class="td1"><input type="text" id="sdate" name="sdate" value="<%If  action="modify" Then  Response.Write (XmlDoc.AtrributeValue("template[@name='"&eName&"']","sdate"))%>" size="10" />天内</td>
	</tr>
	<tr>
		<td class="td2" align="right">排序方式：</td>
		<td class="td1">
			<select id="order" name="order">
				<option value="0" <%If order = "0" Then Response.Write "selected" %>>日志访问数</option>
				<option value="1" <%If order = "1" Then Response.Write "selected" %>>日志回复数</option>
				<option value="2" <%If order = "2" Then Response.Write "selected" %>>发布日期倒序</option>
			</select>
		</td>
	</tr>
	<tr>
		<td class="td2" align="right">是否显示系统分类：</td>
		<td class="td1"><input type="checkbox" id="iscid" name="iscid" value="1" <%
		If  action="modify" Then
			if XmlDoc.AtrributeValue("template[@name='"&eName&"']","isClass") = "1" Then
				Response.Write "checked"
			End If
		End if%> /></td>
	</tr>
	<tr>
		<td class="td2" align="right">是否显示用户专题：</td>
		<td class="td1"><input type="checkbox" id="issid" name="issid" value="1" <%
		If  action="modify" Then
			if XmlDoc.AtrributeValue("template[@name='"&eName&"']","isSubject") = "1" Then
				Response.Write "checked"
			End If
		End if%> /></td>
	</tr>
	<tr>
		<td class="td2" align="right">是否精华日志：</td>
		<td class="td1"><input type="checkbox" id="isbest" name="isbest" value="1"<%
		If  action="modify" Then
			if XmlDoc.AtrributeValue("template[@name='"&eName&"']","isbest") = "1" Then
				Response.Write "checked"
			End If
		End if%> /></td>
	</tr>
	<tr>
		<td class="td2" align="right">时间格式：</td>
		<td class="td1">
		<%
		Dim formatTime
		If  action="modify" Then
			formatTime = XmlDoc.AtrributeValue("template[@name='"&eName&"']","formatTime")
		End If
		%>
			<select name="FormatTime" id="FormatTime">
				<option value="0" <%If formatTime = "0" Then Response.Write "selected" %>>YYYY-M-D H:M:S(长格式)</option>
				<option value="1" <%If formatTime = "1" Then Response.Write "selected" %>>YYYY年M月D</option>
				<option value="2" <%If formatTime = "2" Then Response.Write "selected" %>>YYYY-M-D</option>
				<option value="3" <%If formatTime = "3" Then Response.Write "selected" %>>H:M:S</option>
				<option value="4" <%If formatTime = "4" Then Response.Write "selected" %>>hh:mm</option>
			</select>（按服务器时间区域格式显示。）
		</td>
	</tr>
</table>
</div>
<div id="News_6" 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="br" name="br" value="<%If  action="modify" Then  Response.Write (XmlDoc.AtrributeValue("template[@name='"&eName&"']","br"))%>" size="10" /></td>
	</tr>
	<tr>
		<td class="td2" align="right">排序方式：</td>
		<td class="td1">
			<select id="order" name="order">
				<option value="0" <%If order = "0" Then Response.Write "selected" %>>发布时间</option>
				<option value="1" <%If order = "1" Then Response.Write "selected" %>>访问数</option>
				<option value="2" <%If order = "2" Then Response.Write "selected" %>>评论数</option>
			</select>
		</td>
	</tr>
	<tr>
		<td class="td2" align="right">是否为调用相片（不选为相册）：</td>
		<td class="td1"><input type="checkbox" id="isalbum" name="isalbum" value="1" <%
		If  action="modify" Then
			if XmlDoc.AtrributeValue("template[@name='"&eName&"']","isalbum") = "1" Then
				Response.Write "checked"
			End If
		End if%> />是</td>
	</tr>
</table>
</div>
<div id="News_7" 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="br" name="br" value="<%If  action="modify" Then  Response.Write (XmlDoc.AtrributeValue("template[@name='"&eName&"']","br"))%>" size="10" /></td>
	</tr>
</table>
</div>
<div id="News_8" 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="len" name="len" value="<%If  action="modify" Then  Response.Write (XmlDoc.AtrributeValue("template[@name='"&eName&"']","length"))%>" size="10" /></td>
	</tr>
	<tr>
		<td class="td2" align="right">排序方式：</td>
		<td class="td1">

			<select id="order" name="order">
				<option value="0" <%If order = "0" Then Response.Write "selected" %>>圈子成员人数倒序</option>
				<option value="1" <%If order = "1" Then Response.Write "selected" %>>圈子帖子数目倒序</option>
				<option value="2" <%If order = "2" Then Response.Write "selected" %>>创建日期倒序</option>
			</select>
		</td>
	</tr>
</table>
</div>
<div id="News_9" 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">圈子ID（多个请用|分开，比如1|2|3 ，可留空）：</td>
		<td class="td1"><input type="text" id="teamid" name="teamid" value="<%If  action="modify" Then  Response.Write (XmlDoc.AtrributeValue("template[@name='"&eName&"']","teamid"))%>" size="10" /></td>
	</tr>
	<tr>
		<td class="td2" align="right">标题长度限制：</td>
		<td class="td1"><input type="text" id="length" name="length" value="<%If  action="modify" Then  Response.Write (XmlDoc.AtrributeValue("template[@name='"&eName&"']","length"))%>" size="10" /></td>
	</tr>
	<tr>
		<td class="td2" align="right">时间格式：</td>
		<td class="td1">
			<select name="FormatTime" ID="FormatTime">
				<option value="0" <%If formatTime = "0" Then Response.Write "selected" %>>YYYY-M-D H:M:S(长格式)</option>
				<option value="1" <%If formatTime = "1" Then Response.Write "selected" %>>YYYY年M月D</option>
				<option value="2" <%If formatTime = "2" Then Response.Write "selected" %>>YYYY-M-D</option>
				<option value="3" <%If formatTime = "3" Then Response.Write "selected" %>>H:M:S</option>
				<option value="4" <%If formatTime = "4" Then Response.Write "selected" %>>hh:mm</option>
			</select>（按服务器时间区域格式显示）
		</td>
	</tr>
</table>
</div>
<div id="News_10" style="display:none">
<!-- 标签（TAG）调用 -->
<table cellpadding="3" cellspacing="1" border="0" align="center" width="100%">
	<tr>
		<td height="25" colspan="2" class="topbg"><b>标签（TAG）调用设置</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="br" name="br" value="5" size="10" /></td>
	</tr>
	<tr>
		<td class="td2" align="right">排序方式：</td>
		<td class="td1">
			<select id="order" name="order">
				<option value="0" <%If order = "0" Then Response.Write "selected" %>>使用频度倒序</option>
				<option value="1" <%If order = "1" Then Response.Write "selected" %>>创建日期倒序</option>
			</select>
		</td>
	</tr>
	<tr>
		<td class="td2" align="right">表现形式：</td>
		<td class="td1">
		<%
		Dim iscloud
		If  action="modify" Then
			iscloud = XmlDoc.AtrributeValue("template[@name='"&eName&"']","iscloud")
		End If
		%>
			<select id="iscloud" name="iscloud">
				<option value="0" <%If iscloud = "0" Then Response.Write "selected" %>>列表</option>
				<option value="1" <%If iscloud = "1" Then Response.Write "selected" %>>云图</option>
			</select>
		</td>
	</tr>
</table>
</div>
<div id="News_11" style="display:none">
<!-- 用户推荐（DIGG）日志调用 -->
<table cellpadding="3" cellspacing="1" border="0" align="center" width="100%">
	<tr>
		<td height="25" colspan="2" class="topbg"><b>用户推荐（DIGG）日志调用设置</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">
			<select id="order" name="order">
				<option value="0" <%If order = "0" Then Response.Write "selected" %>>推荐次数倒序</option>
				<option value="1" <%If order = "1" Then Response.Write "selected" %>>创建日期倒序</option>
				<option value="2" <%If order = "2" Then Response.Write "selected" %>>最后推荐日期倒序</option>
			</select>
		</td>
	</tr>
</table>
</div>
<div id="News_12" style="display:none">
<!-- 被推荐（DIGG）用户信息调用 -->
<table cellpadding="3" cellspacing="1" border="0" align="center" width="100%">
	<tr>
		<td height="25" colspan="2" class="topbg"><b>被推荐（DIGG）用户信息调用设置</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="10" size="10" /></td>
	</tr>
	<tr>
		<td class="td2" align="right">排序方式：</td>
		<td class="td1">
			<select id="order" name="order">
				<option value="0" <%If order = "0" Then Response.Write "selected" %>>推荐次数倒序</option>
				<option value="1" <%If order = "1" Then Response.Write "selected" %>>用户ID倒序</option>
			</select>
		</td>
	</tr>
</table>
</div>

<div id="News_13" 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="checkbox"  name = "login" id="login1" value="1" <%If order = "1" Then Response.Write "checked" %> /> 横向（默认竖向）
		</td>
	</tr>
</table>
</div>
<!-- 变量说明 -->
<div id="skininfo_0" style="display:none"></div>

<div id="skininfo_1" style="display:none">
	<ol>
		<li>博客总数：$usercount$</li>
		<li>日志总数：$logcount$</li>
		<li>评论总数：$commentcount$</li>
		<li>留言总数：$messagecount$</li>
		<li>今天日志：$logtoday$</li>
		<li>昨天日志：$logyestoday$</li>
	</ol>
</div>

<div id="skininfo_2" style="display:none">
	<ol>
		<li>用户博客地址：$userurl$</li>
		<li>用户名：$username$</li>
		<li>用户博客名：$blogname$</li>
		<li>用户日志总数：$logcount$</li>
	</ol>
</div>

<div id="skininfo_3" style="display:none">
	<ol>
		<li>公告内容：$placard$</li>
	</ol>
</div>

<div id="skininfo_4" style="display:none">
	<ol>
		<li>分类地址 ：$classurl$</li>
		<li>分类名 ：$classname$</li>
	</ol>
</div>

<div id="skininfo_5" style="display:none">
	<ol>
		<li>日志地址：$logurl$</li>
		<li>日志标题：$topic$</li>
		<li>用户博客地址：$userurl$</li>
		<li>日志作者：$postname$</li>
		<li>日志发布时间：$posttime$</li>
		<li>日志访问量：$iis$</li>
		<li>日志评论数：$commentnum$</li>
		<li>日志分类名：$classname$</li>
		<li>日志分类URL：$classurl$</li>
		<li>日志专题名：$subjectname$</li>
		<li>日志专题URL：$subjecturl$</li>
	</ol>
</div>

<div id="skininfo_6" style="display:none">
	<ol>
		<li>用户相册地址：$albumurl$</li>
		<li>相片地址：$imgsrc$</li>
		<li>相片介绍：$readme$</li>
		<li>换行标志：$br$（如果设定了每行显示记录，请在模板的主体循环标记部分最后加上$br$）</li>
	</ol>
</div>

<div id="skininfo_7" style="display:none">
	<ol>
		<li>博客之星地址：$userurl$</li>
		<li>用户博客地址：$blogurl$</li>
		<li>图片地址：$picurl$</li>
		<li>博客之星介绍：$info$</li>
		<li>博客博客名：$blogname$</li>
		<li>表格关闭标志：$tr$（如果设定了每行显示记录，请在模板的主体循环标记部分最后加上$tr$）</li>
	</ol>
</div>

<div id="skininfo_8" style="display:none">
	<ol>
		<li>圈子LOGO：$ico$</li>
		<li>圈子地址：$gurl$</li>
		<li>圈子名：$tname$</li>
		<li>圈子成员：$count0$</li>
		<li>圈子帖子总数：$count1$</li>
	</ol>
</div>

<div id="skininfo_9" style="display:none">
	<ol>
		<li>圈子日志地址：$posturl$</li>
		<li>帖子标题：$topic$</li>
		<li>帖子作者：$author$</li>
		<li>帖子发布时间：$addtime$</li>
	</ol>
</div>

<div id="skininfo_10" style="display:none">
	<ol>
		<li>TagUrl：$tagurl$</li>
		<li>Tag名：$tagname$</li>
		<li>Tag使用次数：$num$</li>
	</ol>
</div>

<div id="skininfo_11" style="display:none">
	<ol>
		<li>用户地址：$userurl$</li>
		<li>推荐次数：$num$</li>
		<li>日志地址：$url$</li>
		<li>日志标题：$title$</li>
		<li>添加时间：$addtime$</li>
	</ol>
</div>
<div id="skininfo_12" style="display:none">
	<ol>
		<li>用户地址：$userurl$</li>
		<li>推荐次数：$num$</li>
		<li>用户头像：$imgsrc$</li>
		<li>用户名：$username$</li>
	</ol>
</div>
<div id="skininfo_13" style="display:none">
	<ol>
		<li><strong><font color="red">请勿更改模板部分的内容</font></strong></li>
	</ol>
</div>
<%End Sub

Sub delNode()
	Dim eName,arrTemp,nodeTemp,xmlTemp
	Dim i
	Set xmlTemp = new Cls_xmlDoc
	xmlTemp.Unicode = False
	If Not xmlTemp.LoadXml("../xmlData/jsTemplate.config") Then
		Response.Write  "模板文件不存在，无法完成操作"
		Response.End
	End If
	eName = Trim(request("ename"))
	If eName ="" Then
		oblog.ShowMsg "请选择一个项目",""
	Else
		arrTemp = Split (eName,",")
		For Each eName In  Request("ename")
			Set nodeTemp = xmlTemp.NodeObj("template[@name='"&eName&"']")
			If Not (nodeTemp Is Nothing ) Then
				xmlTemp.removeChild("template[@name='"&eName&"']")
			End if
		Next
		xmlTemp.Save()
		oblog.ShowMsg "删除成功",""
	End if
End Sub

Sub saveAdd()

	If eName = "" Then
		oblog.ShowMsg "名称不能为空","back"
	End If
	If Intro = "" Then
		oblog.ShowMsg "调用说明不能为空","back"
	End If
	If eType = 0 Then
		oblog.ShowMsg "请选择一个调用类别","back"
	End If
	If Update ="" Or Not IsNumeric(Update) Then Update = 600
	Set xmlDoc = new Cls_xmlDoc
	xmlDoc.Unicode = False

	If Not xmlDoc.LoadXml("../xmlData/jsTemplate.config") Then
		oblog.ShowMsg "模板文件不存在，无法完成操作","back"
	End If

	Set node = XmlDoc.NodeObj("template[@name='"&eName&"']")

	If isModify = "" Then
	'非编辑模式不允许重名
		If Not (node Is Nothing ) Then
			oblog.ShowMsg "此名称已经存在，请换名重试","back"
		End If
		XmlDoc.InsertElement2 XmlDoc.NodeObj("root"),"template","",False,"name",eName
	End If

	Set node = XmlDoc.NodeObj("template[@name='"&eName&"']")

	xmlDoc.setAttributeNode "template[@name='"&eName&"']","type",etype
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","intro",intro
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","update",update
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","IP",oblog.UserIp
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","admin",session("adminname")

	If isModify = "" Then
		xmlDoc.setAttributeNode "template[@name='"&eName&"']","addTime",Now()
		XmlDoc.InsertElement node,"head",head,False,True
		XmlDoc.InsertElement node,"main",skinmain,False,True
		XmlDoc.InsertElement node,"foot",foot,False,True
	Else
		XmlDoc.UpdateNodeText2 node.selectSingleNode("head"),head,True
		XmlDoc.UpdateNodeText2 node.selectSingleNode("main"),skinmain,True
		XmlDoc.UpdateNodeText2 node.selectSingleNode("foot"),foot,True
	End If

	xmlDoc.setAttributeNode "template[@name='"&eName&"']","updateTime",Now()

	Select Case eType
		Case 1
		Case 2 : Call listUser()
		Case 3
		Case 4 : Call listClass()
		Case 5 : Call showLog()
		Case 6 : Call showPhoto()
		Case 7 : Call showBlogStar()
		Case 8 : Call showTeam()
		Case 9 : Call showTeamPost()
		Case 10 : Call showTag()
		Case 11 : Call showDigg()
		case 12 : Call showUserDigg()
		Case 13 :