www.gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Admin_JScode.asp

    <!--#include file="Admin_ChkPurview.asp"-->
<%
'===============================================================
' 著作权号:中国国家版权局著作权登记号2004SR07385
' 版权所有:深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话:0755-26611119 81234844 81234845
' 联系手机:13316911914
' 联系邮箱:naipin@naipin.com
'===============================================================
%>
<html>
<head>
<title>首页调用</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Behind.WriteHtmlHead

Dim XmlDoc,CodePutSql,Node
Dim NewsConfigFile
Dim NewsName,NewsType,UpdateTime,Skin_Head,Skin_Main,Skin_Footer,NewsSql

NewsConfigFile = Server.MapPath("Templates/CodeTemplates.config")
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<input name="SystemPath" type="hidden" value="<%=Config.SystemUrl%>" size="60">
  <tr class="topbg">
    <td colspan=2 align=center class="topbg"><strong>代 码 管 理</strong></td>
  </tr>
  <tr class="tdbg">
    <td width="21%"><strong>管理导航</strong></td>
    <td>
<a href="?Action=AddSetting">添加调用</a> | <a href="?Action=NewsList">调用列表</a> | <a href="CodeDemo.asp" target="_blank">调用演示</a>
	</td>
  </tr>
</table>
<%
Select Case Request("Action")
	Case "NewsList": Call NewsList()
	Case "AddSetting" , "EditNewsInfo" : Call AddSetting()
	Case "SaveSetting" , "SaveEditSetting" : Call SaveSetting()
	Case "DelNewsInfo" : Call DelNewsInfo()
	Case Else
	Call NewsList()
End Select

Behind.WriteHtmlEnd

'删除记录
Sub DelNewsInfo()
	Dim DelNodes,DelChildNodes
	Set XmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
	If Not XmlDoc.load(NewsConfigFile) Then
		ErrMsg = "调用列表中为空,请填写调用后再执行本操作!"
		Behind.WriteErrMsg(ErrMsg)
		Exit Sub
	End If
	'Response.Write Request.Form("DelNodes").count
	For Each DelNodes in Request.Form("DelNodes")
		Set DelChildNodes = XmlDoc.DocumentElement.selectSingleNode("NewsCode[@AddTime='"&DelNodes&"']")
		If Not (DelChildNodes is nothing) Then
			XmlDoc.DocumentElement.RemoveChild(DelChildNodes)
		End If
	Next
	Call SaveXml()
	Behind.WriteSuccessMsg "所选的记录已删除!",Request.ServerVariables("HTTP_REFERER")
End Sub

Sub NewsList()
	Set XmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
	If Not XmlDoc.load(NewsConfigFile) Then
		Behind.WriteErrMsg("<br><li>首页调用列表为空,请添加首页调用后再执行本操作!</li>")
		Exit Sub
	End If
	Dim SendLogNode,Childs
	Set SendLogNode = XmlDoc.DocumentElement.SelectNodes("NewsCode")
	Childs = SendLogNode.Length	'列表数
	%>
	<br>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
	<tr>
	<td width="1%" height="23" class="tdbg1" align=center nowrap>选取</td>
	<td width="10%" class="tdbg1" align=center>类别</td>
	<td width="10%" class="tdbg1" align=center>名称</td>
	<td width="*" class="tdbg1" align=center nowrap>说明</td>
	<td width="20%" class="tdbg1" align=center>添加时间/更新时间</td>
	<td width="20%" class="tdbg1" align=center>添加者</td>
	<td width="1%" class="tdbg1" align=center>操作</td>
	</tr>
	<form action="?" method="post" name="TheForm">
	<%
	Dim SearchStr,Topic,i
	i=0
	For Each Node in SendLogNode
	%>
	<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#EBEBEB'">
	<td align=center>
	<INPUT TYPE="checkbox" NAME="DelNodes" value="<%=Node.getAttribute("AddTime")%>">
	</td>
	<td align=center><nobr><%=NewsCodeType(Node.getAttribute("NewsType"))%></nobr></td>
	<td align=center><%=Node.getAttribute("NewsName")%></td>
	<td>
	<%=Node.getAttribute("Intro")%>
	<br><font color="gray">更新时间间隔为:<font color="red"><%=Node.getAttribute("UpdateTime")%></font> 秒。</font>
	</td>
	<td><%=Node.getAttribute("AddTime")%><br><font color="red"><%=Node.getAttribute("LastTime")%></font></td>
	<td align=center><%=Node.getAttribute("MasterName")%><br><font color="gray"><%=Node.getAttribute("MasterIP")%></font></td>
	<td align=center><input type="submit"  onclick="this.form.Action.value='EditNewsInfo';Selchecked(this.form.DelNodes,<%=i%>);" value="编辑">
	<input type="button" value="预览" onClick="runscript(viewcode,'<%=Node.getAttribute("NewsName")%>');">
	</td>
	</tr>
	<%
	i=i+1
	Next
	%>
	<tr>
		<td colspan="7">
		<input type="hidden" name="viewcode" value="">
		<input type="hidden" name="Action" value="DelNewsInfo">
		<input type="submit" name="Submit" value="删除记录"  onclick="{if(confirm('注意:所删除的模版将不能恢复!')){this.form.submit();return true;}return false;}">  <input type=checkbox name=chkall value=on onClick="CheckAll(this,this.form)">全选</td>
	</tr>
	</form>
	</table>
	<SCRIPT LANGUAGE="JavaScript">
	<!--
	function Selchecked(obj,n){
		if (obj[n]){
			obj[n].checked=true;
		}else{
			obj.checked=true;
		}
	}
	function CheckAll(src,form){
		for(var i=0;i<form.elements.length;i++){
			var obj=form.elements[i];
			if(obj.type&&obj.type=="checkbox"){
				obj.checked = src.checked;
			}
		}
	}
	function runscript(n,Val){
	TheForm.viewcode.value = "<scr"+"ipt language=\"javascript\" src=\"<%=Config.SystemUrl%>CodePut.asp?Name="+Val.toLowerCase()+"\"><\/scr"+"ipt>";
	txtRun=n;	window.open("CodeView.asp",'CodeView','toolbar=no,location=no,directories=no,status=yes,menubar=yes,scrollbars=yes,resizable=yes,copyhistory=no,width=780,height=450,left=200,top=150');
	}
	//-->
	</SCRIPT>
	</table>
	<%
	Set XmlDoc = Nothing
End Sub

Sub LoadXml()
	Set XmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
	If Not XmlDoc.load(NewsConfigFile) Then
		XmlDoc.loadxml "<?xml version=""1.0"" encoding=""gb2312""?><NewscodeInfo/>"
	End If
End Sub

Function NewsCodeType(TypeVal)
	NewsCodeType = "未知"
	Select Case Cstr(TypeVal)
	Case "1"
		NewsCodeType = "文章"
	Case "2"
		NewsCodeType = "图片"
	Case "3"
		NewsCodeType = "公告"
	Case "4"
		NewsCodeType = "专题"
	Case "5"
		NewsCodeType = "分类"
	Case "6"
		NewsCodeType = "友情连接"
	Case "7"
		NewsCodeType = "首页大图"
	Case "8"
		NewsCodeType = "登录"
	Case "9"
		NewsCodeType = "广告"
	Case "10"
		NewsCodeType = "其他"
	Case "11"
		NewsCodeType = "顶部连接"
	End Select
	NewsCodeType = NewsCodeType & "调用"
End Function

'检查是否存在相同的标识
Function FoundNewsName(NewsName)
	Dim Test
	Set Test = XmlDoc.DocumentElement.selectSingleNode("NewsCode[@NewsName="""&NewsName&"""]")
	FoundNewsName = not (Test is nothing)
End Function

Sub SaveXml()
	XmlDoc.save NewsConfigFile
	Set XmlDoc = Nothing
End Sub

'公共记录
Sub CreateXmlLog()
	Dim attributes',createCDATASection,ChildNode
	Dim FormName,NoAttFormName
	Dim Addtime,i
	AddTime = Now()
	If Request("Action") = "SaveEditSetting" and Request.Form("AddTime")<>"" Then
		Set Node = XmlDoc.DocumentElement.selectSingleNode("NewsCode[@AddTime='"&Request.Form("AddTime")&"']")
		If Not (Node is nothing) Then
			AddTime = Node.getAttribute("AddTime")
			XmlDoc.DocumentElement.RemoveChild(Node)
		End If
	End If
	'创建节点
	Set Node=XmlDoc.createNode(1,"NewsCode","")
	NoAttFormName = ",Skin_Head,Skin_Main,Skin_Footer,UserLogin,UserInfo,Action,AddTime"
	For i = 0 To 5
		NoAttFormName = NoAttFormName & "Board_Input"&i&","
	Next
	For Each FormName In Request.Form
		If Instr(NoAttFormName,","&FormName&",")=0 Then
			Set attributes=XmlDoc.createAttribute(FormName)
			If FormName="NewsName" Then
				attributes.text = Lcase(Replace(Request.Form(FormName),"""",""))
			Else
				attributes.text = Replace(Request.Form(FormName),"""","")
			End If
			node.attributes.setNamedItem(attributes)
		End If
	Next
	
	SetNamedItem "MasterName",Netout.UserName
	SetNamedItem "MasterIP",Netout.UserTrueIP
	SetNamedItem "AddTime",AddTime
	SetNamedItem "LastTime",DateAdd("s", -UpdateTime,now())

	CreateCDATASection "Search",CodePutSql
	CreateCDATASection "Skin_Head",Skin_Head
	CreateCDATASection "Skin_Main",Skin_Main
	CreateCDATASection "Skin_Footer",Skin_Footer
	
	CreateCDATASection "UserLogin",Request.Form("UserLogin")
	CreateCDATASection "UserInfo",Request.Form("UserInfo")

	Select Case NewsType
	Case "1","2"
		Dim LastId
		Select Case NewsType
		Case "1":LastId = 2
		Case "2":LastId = 4
		End Select
		
		For i = 0 To LastId
			Board_Input = Netout.CheckNumeric(Request.Form("Board_Input"&i))
			If Board_Input = 0 Then Board_Input = ""
			CreateCDATASection "Board_Input"&i,Board_Input
		Next
		
		CreateCDATASection "Board_Input"&(LastId+1),Request.Form("Board_Input"&(LastId+1))
	Case Else
		CreateCDATASection "Board_Input0",Request.Form("Board_Input0")
	End Select
	XmlDoc.documentElement.appendChild(node)
End Sub

Sub SetNamedItem(attName,attValue)
	Dim attributes
	Set attributes = XmlDoc.createAttribute(attName)
	attributes.text = attValue
	node.attributes.setNamedItem(attributes)
End Sub
Sub CreateCDATASection(nodeName,nodeValue)
	Dim ChildNode,CDATASection
	Set ChildNode = XmlDoc.createNode(1,nodeName,"")
	Set CDATASection = XmlDoc.createCDATASection(replace(nodeValue,"]]>","]]&gt;"))
	ChildNode.appendChild(CDATASection)
	node.appendChild(ChildNode)
End Sub

Sub SaveSetting()
	NewsName	= Replace(Request.Form("NewsName"),"""","")
	NewsType	= Netout.CheckNumeric(Request.Form("NewsType"))
	UpdateTime	= Netout.CheckNumeric(Request.Form("UpdateTime"))
	Skin_Head	= Request.Form("Skin_Head")
	Skin_Main	= Request.Form("Skin_Main")
	Skin_Footer	= Request.Form("Skin_Footer")

	If NewsName="" Then
		Errmsg=ErrMsg + "<br><li>请填写调用标识!</li>"
	Else
		NewsName = Lcase(NewsName)
	End If
	If NewsType < 1 Then
		Errmsg=ErrMsg + "<br><li>选取调用类型!</li>"
	End If
	If NewsType < 8 Then
		If Skin_Main = "" Then
			Errmsg=ErrMsg + "<br><li>模板_主体循环标记部分不能为空!</li>"
		End If
	End If
	If Errmsg<>"" Then Behind.WriteErrMsg(ErrMsg) : Exit Sub
	Call LoadXml()

	If FoundNewsName(NewsName) and Request("Action") <> "SaveEditSetting" Then
		Errmsg=ErrMsg + "<br><li>调用标识已存在,不能重复添加!</li>"
		Behind.WriteErrMsg(ErrMsg)
		Exit Sub
	End If
	Select Case NewsType
		Case 1		'文章调用
			Call NewsType_1()
		Case 2		'图片调用
			Call NewsType_2()
		Case 3		'公告调用
			Call NewsType_3()
		Case 4		'专题调用
			Call NewsType_4()
		Case 5		'分类调用
			Call NewsType_5()
		Case 6		'连接调用
			Call NewsType_6()
		Case 7		'大图调用
			Call NewsType_7()
		Case 8		'登录调用
		Case 9		'广告调用
		Case 10		'其他调用
		Case 11		'顶部连接
			Call NewsType_11()
		Case Else
			Errmsg=ErrMsg + "<br><li>请正确选取调用类型!</li>"
			Behind.WriteErrMsg(ErrMsg)
	End Select
	Call CreateXmlLog()
	Call SaveXml()
	Behind.WriteSuccessMsg "调用设置成功!","Admin_JSCode.asp?Action=NewsList"
End Sub

'文章调用
Sub NewsType_1()
	Dim TotalPut,TopicLen,OrderBy,ClassID,ClassType,UserIDList,ShowDate,SpecialID
	TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
	Topiclen = Netout.CheckNumeric(Request.Form("TopicLen"))
	OrderBy = Request.Form("OrderBy")
	ShowDate = Netout.CheckNumeric(Request.Form("ShowDate"))
	ClassID = Netout.CheckNumeric(Request.Form("ClassID"))
	SpecialID = Netout.CheckNumeric(Request.Form("SpecialID"))
	ClassType = Request.Form("ClassType")
	UserIDList = Request.Form("UserIDList")
	If TotalPut = 0 Then TotalPut = 10
	
	Dim OrderString,SearchString,TempString
	
	CodePutSql = "SELECT TOP "& TotalPut
	
	If OrderBy = "2" Then
		OrderString = " Click Desc,"
	ElseIf OrderBy = "1" Then
		OrderString = " sTime Desc,"
	End If

	'指定分类
	If ClassID>0 Then
		Select Case ClassType
		Case "0"
			SearchString = " and ClassID="&ClassID
		Case "1"
			TempString = GetClassID(ClassID,"Nt_ArtClassName")
			If TempString<>"" Then SearchString = " and ClassID in("&TempString&")"
		Case "2"
			TempString = GetClassID(ClassID,"Nt_ArtClassName")
			If TempString="" Then
				TempString = ClassID
			Else
				TempString = ClassID&","&TempString
			End If
			SearchString = " and ClassID in("&TempString&")"
		End Select
	End If
	If SpecialID>0 Then
		SearchString = SearchString & " and SpecialID="&SpecialID
	End If
	If UserIDList<>"" Then
		If Instr(UserIDList,",") Then
			If IsNumeric(Replace(UserIDList,",","")) Then
				SearchString = SearchString & " AND DiaryUser IN ("&UserIDList&")"
			End If
		Else
			UserIDList = CInt(UserIDList)
			If UserIDList > 0 Then
				SearchString = SearchString & " AND DiaryUser = "&UserIDList
			End If
		End If
	End If
	If ShowDate>0 Then
		SearchString = SearchString & " AND Datediff('d',sTime,Now) < " & ShowDate
	End If
	CodePutSql = CodePutSql & " ID,ClassID,SpecialID,Title,Body,Click,DiaryUser,sTime From Nt_Diary Where Passed=1 "&SearchString&" Order By "&OrderString&" ID desc"
End Sub

Sub NewsType_2()
	Dim TotalPut,OrderBy,ClassID,ClassType,UserIDList,ShowDate,SpecialID,ImageType
	TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
	ImageType = Request.Form("ImageType")
	OrderBy = Request.Form("OrderBy")
	ShowDate = Netout.CheckNumeric(Request.Form("ShowDate"))
	ClassID = Netout.CheckNumeric(Request.Form("ClassID"))
	SpecialID = Netout.CheckNumeric(Request.Form("SpecialID"))
	ClassType = Request.Form("ClassType")
	UserIDList = Request.Form("UserIDList")
	If TotalPut = 0 Then TotalPut = 10
	
	Dim Recomm
	Recomm = Request.Form("Recomm")
	
	Dim OrderString,SearchString,TempString
	
	CodePutSql = "SELECT TOP "& TotalPut
	
	If ClassID>0 Then
		Select Case ClassType
		Case "0"
			SearchString = " and a.ClassID="&ClassID
		Case "1"
			TempString = GetClassID(ClassID,"Nt_ClassName")
			If TempString<>"" Then SearchString = " and a.ClassID in("&TempString&")"
		Case "2"
			TempString = GetClassID(ClassID,"Nt_ClassName")
			If TempString="" Then
				TempString = ClassID
			Else
				TempString = ClassID&","&TempString
			End If
			SearchString = " and a.ClassID in("&TempString&")"
		End Select
	End If
	If SpecialID>0 Then
		SearchString = SearchString & " and a.SpecialID="&SpecialID
	End If
	If UserIDList<>"" Then
		If Instr(UserIDList,",") Then
			If IsNumeric(Replace(UserIDList,",","")) Then
				SearchString = SearchString & " AND a.TitleUser IN ("&UserIDList&")"
			End If
		Else
			UserIDList = CInt(UserIDList)
			If UserIDList > 0 Then
				SearchString = SearchString & " AND a.TitleUser = "&UserIDList
			End If
		End If
	End If

	If ImageType = "0" Then
		If ShowDate>0 Then
			SearchString = SearchString & " AND Datediff('d',a.AddTime,Now) < " & ShowDate
		End If
		Select Case OrderBy
		Case "0"
			OrderString = " a.AddTime Desc,"
		Case "1"
			OrderString = " a.UpdateTime Desc,"
		Case "2"
			OrderString = " a.IClick Desc,"
		End Select
		CodePutSql = CodePutSql & " a.TitleID,a.ClassID,a.SpecialID,a.TitleName,a.TitleDesc,a.TitleUser,a.ManuName,a.iClick,a.iCount,a.AddTime,a.UpdateTime From Nt_Title as a "&_
			"Where Exists(Select [ID] from Nt_ImgBook where TitleID=a.TitleID and Passed=1 and IsHide=0) "&SearchString&" Order By "&OrderString&" TitleID Desc"
	Else
		If ShowDate>0 Then
			SearchString = SearchString & " AND Datediff('d',b.AddTime,Now) < " & ShowDate
		End If
		If Recomm = "1" Then SearchString = SearchString & " AND b.Recomm=1"
		
		If OrderBy = "0" Then
			OrderString = " b.AddTime Desc,"
		Else
			OrderString = " b.UpdateTime Desc,"
		End If
		CodePutSql = CodePutSql & " a.TitleID,a.ClassID,a.SpecialID,a.TitleName,a.TitleDesc,a.TitleUser,a.ManuName,a.iClick,a.iCount,b.AddTime,b.UpdateTime,b.ImageType,b.ID,b.ImageFile,b.ImageSize From Nt_Title as a,Nt_ImgBook as b "&_
			"where b.TitleID=a.TitleID and b.Passed=1 and b.IsHide=0 "&SearchString&" Order By "&OrderString&" b.ID desc"
	End If
End Sub

Sub NewsType_3()
	Dim TotalPut,ShowDate
	TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
	ShowDate = Netout.CheckNumeric(Request.Form("ShowDate"))
	
	If TotalPut = 0 Then TotalPut = 10
	
	Dim SearchString:SearchString = ""
	If ShowDate>0 Then
		SearchString = SearchString & " where Datediff('d',AddTime,Now) < " & ShowDate
	End If
	
	CodePutSql = "Select Top "&TotalPut&" [ID],Title,AddTime from Nt_Announce "&SearchString&" Order By [ID] Desc"
End Sub

Sub NewsType_4()
	Dim TotalPut,ClassType
	TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
	ClassType = Request.Form("ClassType")
	
	If TotalPut = 0 Then TotalPut = 20
	
	If ClassType = "0" Then
		CodePutSql = "Select Top "&TotalPut&" [ID],SpecialName from Nt_ArtSpecial Order By RootID,OrderID"
	Else
		CodePutSql = "Select Top "&TotalPut&" [ID],SpecialName from Nt_Special Order By RootID,OrderID"
	End If
End Sub

Sub NewsType_5()
	Dim TotalPut,ClassID,ClassType,ClassData,SearchString
	TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
	ClassID  = Netout.CheckNumeric(Request.Form("ClassID"))
	ClassType = Request.Form("ClassType")
	ClassData = Request.Form("ClassData")
	ClassUrl  = Request.Form("ClassUrl")
	
	If ClassType = "0" Then
		ClassType = "Nt_ArtClassName"
	Else
		ClassType = "Nt_ClassName"
	End If
	
	If TotalPut = 0 Then TotalPut = 20
	
	If ClassData = "0" Then
		If ClassID >0 Then
			Dim prs,ParentPath
			Set prs = Conn.Execute("Select ParentPath from "&ClassType&" Where ID="&ClassID)
			If Not prs.Eof Then
				ParentPath = prs(0)
			End If
			Set prs = Nothing
			ParentPath = ","&ParentPath&","&ClassID&","
			
			SearchString = " and ','+ParentPath+',' Like '"&ParentPath&"%'"
		End If
	Else
		SearchString = " and ParentID="&ClassID
	End If
	If ClassUrl <> "1" Then
		SearchString = SearchString&" and (ClassUrl='' Or ClassUrl Is Null)"
	End If
	
	CodePutSql = "Select Top "&TotalPut&" [ID],ParentID,ClassName,iDepth,NextID,target from "&ClassType&" Where 1=1 "&SearchString&" Order By RootID,OrderID"
End Sub

Sub NewsType_6()
	Dim TotalPut,ShowType
	TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
	ShowType = Request.Form("ShowType")
	
	If TotalPut = 0 Then TotalPut = 20
	
	CodePutSql = "Select Top "&TotalPut&" SiteName,SiteUrl,LogoUrl,SiteInfo from Nt_FriendSite"
	Select Case ShowType
	Case "1"
		CodePutSql = CodePutSql & " Where LogoUrl<>'' and LogoUrl Is Not Null"
	Case "2"
		CodePutSql = CodePutSql & " Where LogoUrl='' Or LogoUrl Is Null"
	End Select
End Sub

Sub NewsType_7()
	Dim TotalPut
	TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
	
	If TotalPut = 0 Then TotalPut = 20
	
	CodePutSql = "Select Top "&TotalPut&" SiteUrl,LogoUrl,LogoContent from Nt_AdInfo"
End Sub

Sub NewsType_11()
	Dim TotalPut,ShowType
	TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
	
	If TotalPut = 0 Then TotalPut = 20
	
	CodePutSql = "Select Top "&TotalPut&" LinkName,LinkUrl,target from Nt_TopLink"
End Sub

Function GetClassID(ClassID,TableName)
	Dim ars
	Set ars = Conn.Execute("Select ID From "&TableName&" Where ','+ParentPath+',' Like '%,"&ClassID&",%' and ID<>"&ClassID)
	If Not(ars.Eof Or ars.Bof) Then
		GetClassID = ars.GetString(,,,",","")
	Else
		GetClassID = ","
	End If
	Set ars = Nothing
	GetClassID = Left(GetClassID,Len(GetClassID)-1)
End Function

Sub AddSetting()
	Dim ChildNode,attributes,Action
	Call LoadXml()
	If Request("Action") = "EditNewsInfo" Then
		Set Node = XmlDoc.DocumentElement.selectSingleNode("NewsCode[@AddTime='"&Request("DelNodes")&"']")
		If (Node is nothing) Then
			Behind.WriteErrMsg("<br><li>所选取的调用已不存在!</li>")
			Exit Sub
		End If
		Action = "SaveEditSetting"
	Else
		Set Node=XmlDoc.createNode(1,"NewsCode","")
		Set ChildNode = XmlDoc.createNode(1,"Skin_Head","")
		node.appendChild(ChildNode)
		Set ChildNode = XmlDoc.createNode(1,"Skin_Main","")
		node.appendChild(ChildNode)
		Set ChildNode = XmlDoc.createNode(1,"Skin_Footer","")
		node.appendChild(ChildNode)
		Action = "SaveSetting"
	End If

	Set ChildNode = XmlDoc.createNode(1,"Board_Input0","")
	node.appendChild(ChildNode)
	Set ChildNode = XmlDoc.createNode(1,"Board_Input1","")
	node.appendChild(ChildNode)
	Set ChildNode = XmlDoc.createNode(1,"Board_Input2","")
	node.appendChild(ChildNode)
	Set ChildNode = XmlDoc.createNode(1,"Board_Input3","")
	node.appendChild(ChildNode)
	Set ChildNode = XmlDoc.createNode(1,"Board_Input4","")
	node.appendChild(ChildNode)
	Set ChildNode = XmlDoc.createNode(1,"Board_Input5","")
	node.appendChild(ChildNode)
	Set ChildNode = XmlDoc.createNode(1,"UserLogin","")
	node.appendChild(ChildNode)
	Set ChildNode = XmlDoc.createNode(1,"UserInfo","")
	node.appendChild(ChildNode)
	
	Set XmlDoc = Nothing
	Dim ClassID,SpecialID
	ClassID = "0":SpecialID = "0"
	If Node.getAttribute("ClassID") <> "" Then
		ClassID = Node.getAttribute("ClassID")
	End If
	If Node.getAttribute("SpecialID") <> "" Then
		SpecialID = Node.getAttribute("SpecialID")
	End If
%>
<br>
<script language="javascript">
function chkForm(){
	if(TheForm.NewsName.value==""){
		alert("调用标识名称不能为空!");
		TheForm.NewsName.focus();
		return false;
	}
	if(TheForm.NewsType.selectedIndex==0){
		alert("请选择调用类型!");
		return false;
	}else if(TheForm.NewsType.selectedIndex<7){
		if(TheForm.Skin_Main.value==""){
			alert("模板_主体循环标记部分不能为空!");
			return false;
		}
	}
	return true;
}
function NewsTypeSel(index){
	var mt = document.getElementById("MainTable");
	var nt = document.getElementById("UserTable");
	var News = document.getElementById("News");
	
	var Val = parseInt(index);
	if(Val){
		if(Val>7&&Val<11) {
			mt.style.display="none";
			News.innerHTML = "";
			switch(Val){
				case 8:nt.style.display="";break;
				case 9:
				case 10:
					nt.style.display="none";
					News.innerHTML = document.getElementById("skininfo_"+Val).innerHTML;
					break;
				default:
					break;
			}
		}else{
			mt.style.display="";
			nt.style.display="none";
			
			var skininfo = document.getElementById("skininfo_"+Val);
			if (skininfo) document.getElementById("skin_info").innerHTML = skininfo.innerHTML;
			if (Val>0) News.innerHTML = document.getElementById("News_"+Val).innerHTML;
			else News.innerHTML = "";
			document.getElementById("DisInput").innerHTML = document.getElementById("BoardInput"+Val).innerHTML;
			if (Val>3) ShowTypeSel("0",Val);
		}
	}
}

function OutputNewsCode(Val){
	var obj = TheForm.Newscode;
	if (obj){
		if (Val!=''){
			obj.value = "<scr"+"ipt src=\"CodePut.asp?Name="+Val.toLowerCase()+"\"><\/scr"+"ipt>";
		}else{
			obj.value = "";
		}
	}
}
function CheckSel(name,value){
	if(value!=""){
		var obj = document.getElementById(name);
		if(obj) obj.value = value;
	}
}
function CheckRadio(name,value){
	var obj = document.getElementById(name);
	if(obj.length){
		for(var i=0;i<obj.length;i++){
			if(obj[i].value==value){
				obj[i].checked=true;
				break;
			}
		}
	}
}
function ShowTypeSel(value,Val){
	if(Val==4||Val==5){
		if(value=="1"){
			document.getElementById("divCol_"+Val).style.display = "";
			document.getElementById("DisInput").style.display = "";
		}else{
			document.getElementById("divCol_"+Val).style.display = "none";
			document.getElementById("DisInput").style.display = "none";
		}
	}
}

function ImageTypeSel(value){
	if(value=="1"){
		TheForm.OrderBy.options.remove(2);
		document.getElementById("skin_info").innerHTML = document.getElementById("skininfo_2_1").innerHTML;
		document.getElementById("ShowRec").style.display = "";
	}else if(value=="0"){
		if(TheForm.OrderBy.length==2) TheForm.OrderBy.options.add(new Option("按照点击(热门组图)","2"));
		document.getElementById("skin_info").innerHTML = document.getElementById("skininfo_2").innerHTML;
		document.getElementById("ShowRec").style.display = "none";
	}
}
function admin_Size(num,objname){
	var obj=document.getElementById(objname)
	if (parseInt(obj.rows)+num>=3) {
		obj.rows = parseInt(obj.rows) + num;	
	}
}
</script>
<form METHOD=POST ACTION="?Action=<%=Action%>" name="TheForm">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr>
  <th colspan="2" height="23" class="tdbg1">编辑调用</th>
</tr>
<tr class="tdbg">
<td width="30%" align="right">
调用标识名称:
</td>
<td width="70%">
<INPUT TYPE="text" NAME="NewsName" size="10" Maxlength="10" onpropertychange="OutputNewsCode(this.value);" value="<%=Node.getAttribute("NewsName")%>">(请使用英文或数字设定调用名称,并且是唯一标识.不能超出10个字符)
</td>
</tr>
<tr class="tdbg">
<td width="15%" align="right">
调用代码:
</td>
<td width="85%">
<INPUT TYPE="text" NAME="Newscode" size="70" disabled value="<script src=&quot;CodePut.asp?Name=<%=Node.getAttribute("NewsName")%>&quot;></script>">
</td>
</tr>
<tr class="tdbg">
<td align="right">
调用说明:
</td>
<td>
<INPUT TYPE="text" NAME="Intro" size="30" Maxlength="30" value="<%=Node.getAttribute("Intro")%>">(提示说明,以作管理区分.不能超出30个字符)
</td>
</tr>
<tr class="tdbg">
<td align="right">
调用类型:
</td>
<td>
	<SELECT NAME="NewsType" ID="NewsType" onChange="NewsTypeSel(this.value)">
	<option value="0">选取调用类型</option>
	<!--<option value="1">文章调用</option>-->
	<option value="2">图片调用</option>
	<option value="3">公告调用</option>
	<option value="4">专题调用</option>
	<option value="5">分类调用</option>
	<option value="6">友情连接调用</option>
	<option value="7">首页大图调用</option>
	<option value="8">登录调用</option>
	<option value="9">广告调用</option>
	<option value="11">顶部连接调用</option>
	<option value="10">其他调用</option>
	</SELECT>
</td>
</tr>
<tr class="tdbg">
<td align="right">
数据更新间隔:
</td>
<td class="forumrow"><INPUT TYPE="text" NAME="UpdateTime" value="<%=Node.getAttribute("UpdateTime")%>">(单位:秒)</td>
</tr>
<tr class="tdbg">
<td align="right">
数据为空时显示文字:
</td>
<td class="forumrow"><INPUT TYPE="text" NAME="EmptyText" value="<%=Server.HtmlEncode(Node.getAttribute("EmptyText")&"")%>"></td>
</tr>
<tr class="tdbg">
<td align="right">
时间显示格式:
</td>
<td>
<SELECT NAME="FormatTime" ID="FormatTime">
	<option value="YYYY-MM-DD HH:NN:SS">YYYY-MM-DD HH:NN:SS</option>
	<option value="YYYY-MM-DD HH:NN">YYYY-MM-DD HH:NN</option>
	<option value="YYYY-MM-DD">YYYY-MM-DD</option>
	<option value="YYYY-M-D H:N:S">YYYY-M-D H:N:S</option>
	<option value="YYYY-M-D H:N">YYYY-M-D H:N</option>
	<option value="YYYY-M-D">YYYY-M-D</option>
	<option value="MM-DD HH:NN:SS">MM-DD HH:NN:SS</option>
	<option value="MM-DD HH:NN">MM-DD HH:NN</option>
	<option value="M-D H:N:S">M-D H:N:S</option>
	<option value="M-D H:N">M-D H:N</option>
	<option value="MM-DD">MM-DD</option>
	<option value="M-D">M-D</option>
	<option value="HH:NN:SS">HH:NN:SS</option>
	<option value="HH:NN">HH:NN</option>
	<option value="H:N:S">H:N:S</option>
	<option value="H:N">H:N</option>
	<option value="YYYY年MM月DD日HH时NN分SS秒">YYYY年MM月DD日HH时NN分SS秒</option>
	<option value="YYYY年MM月DD日HH时NN分">YYYY年MM月DD日HH时NN分</option>
	<option value="YYYY年MM月DD日">YYYY年MM月DD日</option>
	<option value="YYYY年M月D日H时N分S秒">YYYY年M月D日H时N分S秒</option>
	<option value="YYYY年M月D日H时N分">YYYY年M月D日H时N分</option>
	<option value="YYYY年M月D日">YYYY年M月D日</option>
	<option value="MM月DD日HH时NN分SS秒">MM月DD日HH时NN分SS秒</option>
	<option value="MM月DD日HH时NN分">MM月DD日HH时NN分</option>
	<option value="M月D日H时N分S秒">M月D日H时N分S秒</option>
	<option value="M月D日H时N分">M月D日H时N分</option>
	<option value="MM月DD日">MM月DD日</option>
	<option value="M月D日">M月D日</option>
	<option value="HH时NN分SS秒">HH时NN分SS秒</option>
	<option value="HH时NN分">HH时NN分</option>
	<option value="H时N分S秒">H时N分S秒</option>
	<option value="H时N分">H时N分</option>
</SELECT>
</td>
</tr>

<tr class="tdbg">
<td align="right" valign="top">调用设置:</td>
<td>
<div id="News"></div>
</td>
</tr>
</table>
<table id="MainTable" width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<!-- 调用模板设置 -->
<tr><th colspan="2" height="23" class="tdbg1">调用模板设置(请用HTML语法填写)</th></tr>
<tr class="tdbg">
<td align="right" valign="top" width="30%">模板_开始标记部分
</td>
<td>
	<textarea name="Skin_Head" ID="Skin_Head" style="width:100%;" rows="6"><%=Server.Htmlencode(Node.selectSingleNode("Skin_Head").text&"")%></textarea>
	<br><a href="javascript:admin_Size(-3,'Skin_Head')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'Skin_Head')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<tr class="tdbg">
<td align="right" valign="top">
模板_主体循环标记部分
<fieldset title="模板变量">
<legend>&nbsp;模板变量说明&nbsp;</legend>
<div id="skin_info" align="left"></div>
</fieldset>
</td>
<td valign="top">
	<div id="DisInput"></div>
	<textarea name="Skin_Main" ID="Skin_Main" style="width:100%;" rows="10"><%=Server.Htmlencode(Node.selectSingleNode("Skin_Main").text&"")%></textarea>
	<br><a href="javascript:admin_Size(-3,'Skin_Main')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'Skin_Main')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<tr class="tdbg">
<td align="right" valign="top">模板_结束标记部分
</td>
<td>
<textarea name="Skin_Footer" id="Skin_Footer" style="width:100%;" rows="6"><%=Server.Htmlencode(Node.selectSingleNode("Skin_Footer").text&"")%></textarea>
	<br><a href="javascript:admin_Size(-3,'Skin_Footer')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'Skin_Footer')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
<table id="UserTable" style="display: none;" width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr><th colspan="2" height="23" class="tdbg1">调用模板设置(请用HTML语法填写)</th></tr>
<tr class="tdbg">
<td align="right" valign="top" width="30%">会员登录
<fieldset title="模板变量">
<legend>&nbsp;模板变量说明&nbsp;</legend>
<div align="left">
	<ol>
	<li>验证码:{?CheckCode}</li>
	<li>风格ID:{?StyleID}</li>
	</ol>
</div>
</fieldset>
</td>
<td>
	<textarea name="UserLogin" ID="UserLogin" style="width:100%;" rows="6"><%=Server.Htmlencode(Node.selectSingleNode("UserLogin").text&"")%></textarea>
	<br><a href="javascript:admin_Size(-3,'UserLogin')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'UserLogin')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<tr class="tdbg">
<td align="right" valign="top">
会员信息
<fieldset title="模板变量">
<legend>&nbsp;模板变量说明&nbsp;</legend>
<div align="left">
	<ol>
	<li>用户名:{?UserName}</li>
	<li>所属组:{?UserGroup}</li>
	<li>组图数:{?TitleCount}</li>
	<li>图片数:{?ImageCount}</li>
	<li>文章数:{?ArticleCount}</li>
	<li>权限列表:{?Purview}</li>
	<li>风格ID:{?StyleID}</li>
	</ol>
</div>
</fieldset>
</td>
<td valign="top">
	<div id="DisInput"></div>
	<textarea name="UserInfo" ID="UserInfo" style="width:100%;" rows="6"><%=Server.Htmlencode(Node.selectSingleNode("UserInfo").text&"")%></textarea>
	<br><a href="javascript:admin_Size(-3,'UserInfo')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'UserInfo')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
<!-- 调用模板设置 -->
<table  width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr class="tdbg">
<td align="right" width="30%">&nbsp;</td>
<td>
<INPUT TYPE="submit" onClick="return chkForm();" value="保存">
&nbsp;&nbsp;&nbsp;<INPUT TYPE="reset" value="重填">
<INPUT TYPE="hidden" name="AddTime" value="<%=Node.getAttribute("AddTime")%>">
</td>
</tr>
</table>
</form>
<!-- 设置信息部分 -->
<div id="News_1" style="display:none">
<!-- 文章调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td>
显示记录数:<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
&nbsp;&nbsp;&nbsp;&nbsp;
每行显示个数:<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">
&nbsp;&nbsp;&nbsp;&nbsp;
标题长度:<INPUT TYPE="text" NAME="TopicLen" size="4" value="<%=Node.getAttribute("TopicLen")%>">
</td>
</tr>
<tr>
<td>
文章排序:&nbsp;&nbsp;<SELECT NAME="OrderBy" ID="OrderBy">
	<option value="0" SELECTED>默认最新排序(推荐使用)</option>
	<option value="1">按照发表时间</option>
	<option value="2">按照点击(热门文章)</option>
	</SELECT>
</td>
</tr>
<tr><td>
天数的限制:<INPUT TYPE="text" NAME="ShowDate" value="<%=Node.getAttribute("ShowDate")%>" size="4">(查询多少天内的文章,1为当天。若为空则日期不限,建议为空。)
</td></tr>
<tr><td>
调用的专题:<SELECT id="SpecialID" NAME="SpecialID"><%Behind.ShowArtSpecial_Option 0,SpecialID%></SELECT>
</td>
</tr>
<tr><td>
调用的分类:<SELECT id="ClassID" NAME="ClassID"><%Behind.ShowArtClass_Option 3,ClassID,0%></SELECT>
分类设置:<SELECT NAME="ClassType" ID="ClassType">
	<option value="0" SELECTED>只显示该分类的数据</option>
	<option value="1">显示该分类的下级所有分类的数据</option>
	<option value="2">显示该分类和下级所有分类的数据</option>
	</SELECT>
</td>
</tr>
<tr><td>
单独用户ID:<INPUT TYPE="text" NAME="UserIDList" value="<%=Node.getAttribute("UserIDList")%>">(请填写用户会员ID,用英文逗号分隔)
</td>
</tr>
</table>
</div>
<div id="News_2" style="display:none">
<!-- 图片调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td width="180">
显示记录数:<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
</td>
<td width="790">
每行显示个数:<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">
&nbsp;&nbsp;
图片显示属性:<SELECT NAME="Thumbnail" ID="Thumbnail">
	<option value="0">按比例显示</option>
	<option value="1">固定大小显示</option>
	</SELECT>
</td>
</tr>
<tr>
<td colspan="2">
天数的限制:<INPUT TYPE="text" NAME="ShowDate" value="<%=Node.getAttribute("ShowDate")%>" size="4">(查询多少天内的图片,1为当天。若为空则日期不限,建议为空。)
</td>
</tr>
<tr>
<td colspan="2">
调用的方式:<SELECT NAME="ImageType" ID="ImageType" onChange="javascript:ImageTypeSel(this.value);">
	<option value="0">按组图</option>
	<option value="1">按单图</option>
	</SELECT>
图片排序:<SELECT NAME="OrderBy" ID="OrderBy">
	<option value="0" SELECTED>默认最新排序(推荐使用)</option>
	<option value="1">按照更新时间</option>
	<option value="2">按照点击(热门组图)</option>
	</SELECT>
</td>
</tr>
<tr><td colspan="2">
调用的专题:<SELECT id="SpecialID" NAME="SpecialID"><%Behind.ShowSpecial_Option 0,SpecialID%></SELECT>
<span id="ShowRec" style="display:none;">&nbsp;&nbsp;<input name="Recomm" type="checkbox" value="1"<%If Node.getAttribute("Recomm")="1" Then%> checked<%End If%>>只调用推荐的图片</span>
</td>
</tr>
<tr><td colspan="2">
调用的分类:<SELECT id="ClassID" NAME="ClassID"><%Behind.ShowClass_Option 3,ClassID,0%></SELECT>
分类设置:<SELECT NAME="ClassType" ID="ClassType">
	<option value="0" SELECTED>只显示该分类的数据</option>
	<option value="1">显示该分类的下级所有分类的数据</option>
	<option value="2">显示该分类和下级所有分类的数据</option>
	</SELECT>
</td>
</tr>
<tr><td colspan="2">
单独用户ID:<INPUT TYPE="text" NAME="UserIDList" value="<%=Node.getAttribute("UserIDList")%>">(请填写用户会员ID,用英文逗号分隔)
</td>
</tr>
</table>
</div>
<div id="News_3" style="display:none">
<!-- 公告调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td>
显示记录数:<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
&nbsp;&nbsp;&nbsp;&nbsp;
每行显示个数:<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">
&nbsp;&nbsp;&nbsp;&nbsp;
标题长度:<INPUT TYPE="text" NAME="TopicLen" size="4" value="<%=Node.getAttribute("TopicLen")%>">
</td>
</tr>
<tr><td>
天数的限制:<INPUT TYPE="text" NAME="ShowDate" value="<%=Node.getAttribute("ShowDate")%>" size="4">(查询多少天内的公告,1为当天。若为空则日期不限,建议为空。)
</td></tr>
</table>
</div>
<div id="News_4" style="display:none">
<!-- 专题调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td>
显示记录数:<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
<span id="divCol_4"<%If Node.getAttribute("ShowType")="0" Then%> style="display:none;"<%End If%>>
&nbsp;&nbsp;&nbsp;&nbsp;
每行显示:<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4"个>
&nbsp;&nbsp;&nbsp;&nbsp;
专题名称长度:<INPUT TYPE="text" NAME="TopicLen" size="4" value="<%=Node.getAttribute("TopicLen")%>">
</span>
<input type="hidden" name="ClassType" value="1">
调用方式:<SELECT NAME="ShowType" ID="ShowType" onChange="ShowTypeSel(this.value,4);">
	<option value="0" SELECTED>下拉列表</option>
	<option value="1">文字或连接</option>
	</SELECT>
</td>
</tr>
</table>
</div>
<div id="News_5" style="display:none">
<!-- 分类调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td width="220">
显示记录数:<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
</td>
<td width="700">
<span id="divCol_5"<%If Node.getAttribute("ShowType")="0" Then%> style="display:none;"<%End If%>>
每行显示:<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">个
&nbsp;&nbsp;&nbsp;&nbsp;
分类名称长度:<INPUT TYPE="text" NAME="TopicLen" size="4" value="<%=Node.getAttribute("TopicLen")%>">
</span>
</td>
</tr>
<tr>
<td>
上级分类ID:<INPUT TYPE="text" NAME="ClassID" size="4" value="<%=Node.getAttribute("ClassID")%>">
</td>
<td>
分类数据:<SELECT NAME="ClassData" ID="ClassData">
	<option value="0" SELECTED>包括子分类</option>
	<option value="1">不包括子分类</option>
	</SELECT>
</td>
</tr>
<tr>
<td>
调用类型:<SELECT NAME="ClassType" ID="ClassType">
	<option value="0" SELECTED>文章分类</option>
	<option value="1">图片分类</option>
	</SELECT>
</td>
<td>
调用方式:<SELECT NAME="ShowType" ID="ShowType" onChange="ShowTypeSel(this.value,5);">
	<option value="0" SELECTED>下拉列表</option>
	<option value="1">文字或连接</option>
	</SELECT>
</td>
</tr>
<tr>
<td colspan="2">
包含外部连接分类:<input name="ClassUrl" type="checkbox" value="1"<%If Node.getAttribute("ClassUrl")="1" Then%> checked<%End If%>>
</td>
</tr>
</table>
</div>
<div id="News_6" style="display:none">
<!-- 友情连接调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td>
显示记录数:<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
&nbsp;&nbsp;&nbsp;&nbsp;
每行显示个数:<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">
&nbsp;&nbsp;&nbsp;&nbsp;
调用类型:<SELECT NAME="ShowType" ID="ShowType">
	<option value="0">所有连接</option>
	<option value="1">图片连接</option>
	<option value="2">文字连接</option>
	</SELECT>
</td>
</tr>
</table>
</div>
<div id="News_7" style="display:none">
<!-- 首页大图调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td>
显示记录数:<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
&nbsp;&nbsp;&nbsp;&nbsp;
每行显示个数:<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">
</td>
</tr>
</table>
</div>
<div id="News_11" style="display:none">
<!-- 友情连接调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td>
显示记录数:<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
&nbsp;&nbsp;&nbsp;&nbsp;
每行显示个数:<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">
</td>
</tr>
</table>
</div>
<!-- 变量说明 -->
<div id="skininfo_0" style="display:none"></div>
<div id="skininfo_1" style="display:none">
	<ol>
	<li>文章ID:{?ID}</li>
	<li>文章标题:{?Title}</li>
	<li>文章作者:{?UserName}</li>
	<li>发表时间:{?AddTime}</li>
	<li>分类ID:{?ClassID}</li>
	<li>分类名称:{?ClassName}</li>
	<li>分类说明:{?ClassInfo}</li>
	<li>专题ID:{?SpecialID}</li>
	<li>专题名称 :{?SpecialName}</li>
	<li>风格ID:{?StyleID}</li>
	</ol>
</div>
<div id="BoardInput1" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend>&nbsp;版块特殊设置&nbsp;</legend>
分类名称长度:<INPUT TYPE="text" NAME="Board_Input0" size="3" value="<%=Node.selectSingleNode("Board_Input0").text%>"><br>
分类说明长度:<INPUT TYPE="text" NAME="Board_Input1" size="3" value="<%=Node.selectSingleNode("Board_Input1").text%>"><br>
专题名称长度:<INPUT TYPE="text" NAME="Board_Input2" size="3" value="<%=Node.selectSingleNode("Board_Input2").text%>"><br>
换行标记字符:<INPUT TYPE="text" NAME="Board_Input3" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input3").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_2" style="display:none">
	<ol>
	<li>组图ID :{?TitleID}</li>
	<li>组图标题 :{?TitleName}</li>
	<li>组图说明 :{?TitleInfo}</li>
	<li>分类ID :{?ClassID}</li>
	<li>分类名称:{?ClassName}</li>
	<li>分类说明:{?ClassInfo}</li>
	<li>专题ID:{?SpecialID}</li>
	<li>专题名称 :{?SpecialName}</li>
	<li>图片署名 :{?ManuName}</li>
	<li>上传人 :{?UserName}</li>
	<li>点击数:{?Click}</li>
	<li>图片数:{?ImageCount}</li>
	<li>添加时间:{?AddTime}</li>
	<li>更新时间 :{?UpdateTime}</li>
	<li>图片ID:{?ImageID}</li>
	<li>图片文件名:{?ImageCode}</li>
	<li>风格ID:{?StyleID}</li>
	</ol>
</div>
<div id="skininfo_2_1" style="display:none">
	<ol>
	<li>组图ID :{?TitleID}</li>
	<li>组图标题 :{?TitleName}</li>
	<li>组图说明 :{?TitleInfo}</li>
	<li>分类ID :{?ClassID}</li>
	<li>分类名称:{?ClassName}</li>
	<li>分类说明:{?ClassInfo}</li>
	<li>专题ID:{?SpecialID}</li>
	<li>专题名称 :{?SpecialName}</li>
	<li>图片类型:{?ImageType}</li>
	<li>图片署名 :{?ManuName}</li>
	<li>上传人 :{?UserName}</li>
	<li>添加时间:{?AddTime}</li>
	<li>更新时间 :{?UpdateTime}</li>
	<li>图片ID:{?ImageID}</li>
	<li>图片显示代码:{?ImageCode}</li>
	<li>风格ID:{?StyleID}</li>
	</ol>
</div>
<div id="BoardInput2" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend>&nbsp;版块特殊设置&nbsp;</legend>
图片最大宽度:<INPUT TYPE="text" NAME="PicWidth" size="10" value="<%=Node.getAttribute("PicWidth")%>">像素<br>
图片最大高度:<INPUT TYPE="text" NAME="PicHeight" size="10" value="<%=Node.getAttribute("PicHeight")%>">像素<br>
组图标题长度:<INPUT TYPE="text" NAME="Board_Input0" size="10" value="<%=Node.selectSingleNode("Board_Input0").text%>"><br>
组图说明长度:<INPUT TYPE="text" NAME="Board_Input1" size="10" value="<%=Node.selectSingleNode("Board_Input1").text%>"><br>
分类名称长度:<INPUT TYPE="text" NAME="Board_Input2" size="10" value="<%=Node.selectSingleNode("Board_Input2").text%>"><br>
分类说明长度:<INPUT TYPE="text" NAME="Board_Input3" size="10" value="<%=Node.selectSingleNode("Board_Input3").text%>"><br>
专题名称长度:<INPUT TYPE="text" NAME="Board_Input4" size="10" value="<%=Node.selectSingleNode("Board_Input4").text%>"><br>
换行标记字符:<INPUT TYPE="text" NAME="Board_Input5" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input5").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_3" style="display:none">
<ol>
<li>公告ID:{?ID}</li>
<li>公告标题:{?Title}</li>
<li>添加时间:{?AddTime}</li>
<li>风格ID:{?StyleID}</li>
</ol>
</div>
<div id="BoardInput3" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend>&nbsp;版块特殊设置&nbsp;</legend>
换行标记字符:<INPUT TYPE="text" NAME="Board_Input0" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input0").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_4" style="display:none">
<ol>
<li>专题ID:{?SpecialID}</li>
<li>专题名称:{?SpecialName}</li>
<li>风格ID:{?StyleID}</li>
</ol>
</div>
<div id="BoardInput4" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend>&nbsp;版块特殊设置&nbsp;</legend>
换行标记字符:<INPUT TYPE="text" NAME="Board_Input0" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input0").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_5" style="display:none">
<ol>
<li>分类ID:{?ClassID}</li>
<li>分类名称:{?ClassName}</li>
<li>上级分类ID:{?ParentID}</li>
<li>窗口打开方式:{?target}</li>
<li>风格ID:{?StyleID}</li>
</ol>
</div>
<div id="BoardInput5" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend>&nbsp;版块特殊设置&nbsp;</legend>
换行标记字符:<INPUT TYPE="text" NAME="Board_Input0" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input0").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_6" style="display:none">
<ol>
<li>连接地址:{?LinkUrl}</li>
<li>连接图片:{?LogoUrl}</li>
<li>连接名称:{?LinkName}</li>
<li>连接信息:{?LinkInfo}</li>
<li>风格ID:{?StyleID}</li>
</ol>
</div>
<div id="BoardInput6" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend>&nbsp;版块特殊设置&nbsp;</legend>
换行标记字符:<INPUT TYPE="text" NAME="Board_Input0" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input0").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_7" style="display:none">
<ol>
<li>连接地址:{?LinkUrl}</li>
<li>图片文件:{?ImageFile}</li>
<li>图片说明:{?ImageInfo}</li>
<li>风格ID:{?StyleID}</li>
</ol>
</div>
<div id="BoardInput7" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend>&nbsp;版块特殊设置&nbsp;</legend>
换行标记字符:<INPUT TYPE="text" NAME="Board_Input0" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input0").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_9" style="display: none;">
    调用广告:<select name="ShowType">
	  <option value="1">广告一</option>
	  <option value="2">广告二</option>
	  <option value="3">广告三</option>
	</select><br>
	图片宽度:<INPUT TYPE="text" NAME="PicWidth" size="10" value="<%=Node.getAttribute("PicWidth")%>">像素<br>
	图片高度:<INPUT TYPE="text" NAME="PicHeight" size="10" value="<%=Node.getAttribute("PicHeight")%>">像素
</div>
<div id="skininfo_10" style="display: none;">
    调用类型:<select name="ShowType">
	  <option value="4">网站Logo</option>
	  <option value="5">友情连接Logo</option>
	</select><br>
	图片宽度:<INPUT TYPE="text" NAME="PicWidth" size="10" value="<%=Node.getAttribute("PicWidth")%>">像素<br>
	图片高度:<INPUT TYPE="text" NAME="PicHeight" size="10" value="<%=Node.getAttribute("PicHeight")%>">像素
</div>
<div id="skininfo_11" style="display:none">
<ol>
<li>连接地址:{?LinkUrl}</li>
<li>连接名称:{?LinkName}</li>
<li>窗口打开方式:{?target}</li>
<li>风格ID:{?StyleID}</li>
</ol>
</div>
<div id="BoardInput11" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend>&nbsp;版块特殊设置&nbsp;</legend>
换行标记字符:<INPUT TYPE="text" NAME="Board_Input0" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input0").text&"",True)%>"><br>
</fieldset>
</div>
<!-- 默认模式 -->
<SCRIPT LANGUAGE="JavaScript">
<!--
//默认值
CheckSel("FormatTime",'<%=Node.getAttribute("FormatTime")%>');
CheckSel("NewsType",'<%=Node.getAttribute("NewsType")%>');
CheckSel("OrderBy",'<%=Node.getAttribute("OrderBy")%>');
NewsTypeSel(<%=Node.getAttribute("NewsType")%>);
CheckSel("ClassType",'<%=Node.getAttribute("ClassType")%>');
CheckSel("ClassData",'<%=Node.getAttribute("ClassData")%>');
CheckSel("ImageType",'<%=Node.getAttribute("ImageType")%>');
CheckSel("Thumbnail",'<%=Node.getAttribute("Thumbnail")%>');
CheckSel("ShowType",'<%=Node.getAttribute("ShowType")%>');
ShowTypeSel("<%=Node.getAttribute("ShowType")%>","<%=Node.getAttribute("NewsType")%>");
ImageTypeSel("<%=node.getAttribute("ImageType")%>");
//-->
</SCRIPT>
<%
End Sub
%>