<!--#include file="../../ACT.Function.asp"-->
<!--#include file="../ACT.F.asp"-->

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ACT图片标签管理</title>
<link href="../../Images/css1/css.css" rel="stylesheet" type="text/css">
<SCRIPT src="../../../ACT_inc/dtreeFunction.js"></SCRIPT>
<LINK href="../../../ACT_inc/dtree.css" type=text/css rel=StyleSheet>
<SCRIPT src="../../../ACT_inc/dtree.js" type=text/javascript></SCRIPT>
</head>
<body>
<%
Dim Action,ID,LabelRS,LabelName,Descript,LabelContent,LabelFlag,LabelContentArr,ClassID,ClassName,Rs,pages
Dim ArticleSort,ListNumber,TitleLen,ColNumber,TitleCss,ContentLen,PicHeight,PicWidth
Dim OpenType,PicStyle,TypeTitle,piccss,ModeID
Dim ActF,divid,divclass,ulid,ulclass,liid,liclass,Str,ACTIF,ATT
If Not ACTCMS.ACTCMS_QXYZ(0,"bqxt","") Then   Call Actcms.Alert("对不起，你没有操作权限！","")
Action = Request.QueryString("Action")
ID =  actcms.ChkNumeric(Request.QueryString("ID"))
IF Action = "Add" Then
	ClassID = 0
	ListNumber = 10
	TitleLen =30
	ATT = 0
	ActF=1
	ColNumber = 1
	PicWidth = 130
	PicHeight = 90
	PicStyle = 1
	TitleLen = 30
	LabelFlag = 0
	ContentLen = 50
	TypeTitle = True
	ModeID =  ActCMS.ChkNumeric(Request.QueryString("ModeID"))
	ClassName = "不指定栏目"
	pages = "新建图片文章列表标签"
Else
	  Set LabelRS = Server.CreateObject("Adodb.Recordset")
	  LabelRS.Open "Select * From Label_Act Where ID=" & ID & "", Conn, 1, 1
	  If LabelRS.EOF And LabelRS.BOF Then
		 LabelRS.Close
		 Conn.Close:Set Conn = Nothing
		 Set LabelRS = Nothing
		 Response.Write "参数传递出错!":Response.End
	  End If
		LabelName = Replace(Replace(LabelRS("LabelName"), "{ACTCMS_", ""), "}", "")
		Descript = LabelRS("Description")
		LabelContent = LabelRS("LabelContent")
		LabelFlag = Clng(LabelRS("LabelFlag"))
		LabelRS.Close:Set LabelRS = Nothing
		LabelContent = Replace(Replace(LabelContent, "{$GetArticlePic(", ""), ")}", "")
		LabelContent = Replace(LabelContent, """", "") 
		LabelContentArr = Split(LabelContent, "§")
		ClassID=LabelContentArr(0)
		ActF = LabelContentArr(1)
		ATT = LabelContentArr(2)
		ArticleSort = LabelContentArr(3)
		OpenType = LabelContentArr(4)
		ListNumber = LabelContentArr(5)
		ColNumber = LabelContentArr(6)
		TitleLen = LabelContentArr(7)
		Titlecss= LabelContentArr(8)
		piccss = LabelContentArr(9)
		PicWidth = LabelContentArr(10)
		PicHeight = LabelContentArr(11)
		ContentLen = LabelContentArr(12)
		PicStyle = LabelContentArr(13)
		TypeTitle = LabelContentArr(14)
		ACTIF= LabelContentArr(15)
		divid=LabelContentArr(16)
		divclass=LabelContentArr(17)
		ulid=LabelContentArr(18)
		ulclass=LabelContentArr(19)
		liid=LabelContentArr(20)
		liclass=LabelContentArr(21)
		ModeID=LabelContentArr(22)
		pages = "修改栏目文章列表标签"
End IF
 With Response 
 IF ModeID = 0 Or ModeID="" Then ModeID = 1
%>
<form id="myform" name="myform" method="post" action="AddLabelSave.asp">
 <input type="hidden" name="LabelContent"> 
  <input type="hidden" name="LabelType" value="1">
  <input type="hidden" name="Action" value="<%= Action %>"> 
  <input type="hidden" name="ID" value="<%= ID %>"> 
  <input type="hidden" name="ModeID" value="<%=ModeID%>">
 <input type="hidden" name="FileUrl" value="GetArticlePic.asp">  <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
    <tr>
      <td colspan="2" align="center" class="bg_tr"><%= pages %>&nbsp;</td>
    </tr>
    <tr>
      <td width="50%">标签名称
      <input name="LabelName" type="text" id="LabelName" value="<%= LabelName %>"></td>
      <td width="50%"><font color="red">* 调用格式"{ACTCMS_标签名称}"</font></td>
    </tr>
    <tr>
      <td>标签目录      
        <select name="LabelFlag" id="select">
         <option value="0">系统默认</option>
			 <%=AF.ACT_LabelFolder(CInt(LabelFlag))%>
        </select>&nbsp;&nbsp;<a href="ACT.LabelFolder.asp"><font color=red><b>新建存放目录</b></font></a> </td>
	   <td width="50%" height="24" ><font color=green>标签存放目录,日后方便管理标签</font>
		 </td>
    </tr>
		 <tr>
      <td width="50%">
	  输出格式
		 <select style='width:70%' name="ActF" id="ActF" onChange="SetActF(this.options[this.selectedIndex].value);"> 
	 <option value="1" <% IF ActF = 1 Then Response.Write("selected") %>>普通Table格式</option>
  <option value="2" <% IF ActF = 2 Then Response.Write("selected") %>>DIV+CSS格式</option>
</select>   
		 </td>
      <td width="50%"><font color=red>请选择系统支持的输出格式</font>
	  </td>
    </tr>
	
  <tr id=ActFs><td  colspan="2" >&lt;div id=&quot;
 <input name="divid" type="text" value="<%= divid %>" id="divid" size="6"  style="border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width:0px;border-bottom-color: #000000"  title="DIV调用的ID号，必须在CSS中预先定义且不能为空!">
 &quot; Class=&quot; <input name="divclass"  type="text" value="<%= divclass %>" id="divclass" size="6" style="border-top-width: 0px;	border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000" title="DIV调用的Class名称，请在CSS中预先定义,可以为空!">
  &quot;&gt;&nbsp; &lt;ul  id=&quot; <input value="<%= ulid %>" name="ulid" type="text" id="ulid"  size="6" style="border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000"  title="生成ul调用的ID，请在CSS中预先定义,可以为空!"> 
  &quot; Class=&quot; <input  value="<%= ulclass %>" name="ulclass"  type="text" id="ulclass" size="6" style="border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000" title="生成ul调用的class名称，请在CSS中预先定义。可以为空!">
  &quot;&gt;&nbsp;&lt;li id=&quot; <input value="<%= liid %>" name="liid" type="text" id="liid" size="6"  style="border-top-width: 0px;	border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000" title="生成li调用的ID，请在CSS中预先定义。可以为空!">
  &quot; Class=&quot; <input value="<%= liclass %>" name="liclass"  type="text" id="liclass" size="6" style="border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000"  title="生成li调用的class名称，请在CSS中预先定义。可以为空!"> 
  &quot;&gt;<br><font color=green>如果不想输出该标签,请将ID设为0,例:ul的id设为0,将不输出ul</font></td>
	</tr>
	
	
	<tr>
          <td>
	  所属栏目
	   <input name="ClassID" type="text" id="ClassID" value="<%= ClassID %>" readonly disabled=true>
	    <select name="select1" onChange="SelectClass();">
    <option value="0" <% IF ClassID = "0" Then  Response.Write "selected" %>>不指定栏目</option>
    <option value="1"  style="color:red" <% IF ClassID = "1" Then  Response.Write "selected" %>>当前栏目通用</option>
	<option value="2" <% IF ClassID <> "0" And ClassID <> "1"  Then  Response.Write "selected" %>>指定栏目</option>
	</select><a href="#" onClick="SelectClass()">快速打开</a>
      </td>
      <td>文章属性
	   <select name="ATT" id="ATT"><option value="0">普通文章</option>
          <%=ACTCMS.ACT_ATT(CInt(ATT))%>
        </select></td>
    </tr>
    <tr>
      <td>排序方法
	  <select   name="ArticleSort">
			<%response.Write AF.ACT_ArticleSort(ArticleSort) %>	
		</select>		      </td>
      <td><div style="position:relative;">链接目标<span style="margin-left:175px;width:18px;overflow:hidden;">
        <select name="select"  style="width:185px;margin-left:-167px" onChange="this.parentNode.nextSibling.value=this.value">
          <option value=""></option>
          <option value="_blank"> _blank </option>
          <option value="_parent"> _parent </option>
          <option value="_self"> _self </option>
          <option value="_top"> _top </option>
        </select>
        </span>
            <input  name="OpenType" style="width:175px;position:absolute;left:55px;" value="<%= OpenType %>">
      </div></td>
    </tr>
    <tr>
      <td>文章数量
      <input name="ListNumber" type="text" id="ListNumber2"    style="width:70%;"  value="<%= ListNumber %>"></td>
      <td>每行数量
        <input type="text"   size="4" value="<%= ColNumber %>" name="ColNumber"></td>
    </tr>
    <tr>
      <td>标题字数
      <input name="TitleLen"  type="text"    style="width:70%;" value="<%= TitleLen %>"></td>
      <td>标题样式
      <input name="TitleCss" type="text" id="TitleCss" style="width:70%;" value="<%= TitleCss %>"></td>
    </tr>
    <tr>
      <td>显示标题
      <label for="TypeTitle1"> <INPUT <% IF Cbool(TypeTitle) = True Then  Response.Write "Checked" %> type="radio" id="TypeTitle1" value="true" name="TypeTitle">
        是</label>
        <label for="TypeTitle2">  <INPUT <% IF Cbool(TypeTitle) = false Then  Response.Write "Checked" %> type="radio" id="TypeTitle2" value="false" name="TypeTitle">
      否</label></td>
      <td>图片样式
      <input name="piccss" type="text" id="piccss" style="width:70%;" value="<%= piccss %>"></td>
    </tr>
    <tr>
      <td>图片设置 宽
        <input name="PicWidth" type="text" id="PicWidth2" value="<%= PicWidth %>" size="6">
像素 高
<input name="PicHeight" type="text" id="PicHeight2" value="<%=PicHeight  %>" size="6" >
像素</td>
      <td>内容字数 
	   <input name="ContentLen" type="text" id="ContentLenArea"    style="width:70%;" value="<%=ContentLen%>">      </td>
    </tr>
    <tr>
      <td>  选择样式 
	  <select name="PicStyle" onChange="SelectPicStyle(this.value)">
	  <%				 If PicStyle = "1" Then
							Response.Write ("<option value=""1"" selected>①:仅显示缩略图</option>")
						  Else
							Response.Write ("<option value=""1"">①:仅显示缩略图</option>")
						  End If
						  If PicStyle = "2" Then
							Response.Write ("<option value=""2"" selected>②:缩略图+名称:上下</option>")
						  Else
							Response.Write ("<option value=""2"">②:缩略图+名称:上下</option>")
						  End If
						  If PicStyle = "3" Then
							Response.Write ("<option value=""3"" selected>③:缩略图+(名称+简介:上下):左右</option>")
						  Else
							Response.Write ("<option value=""3"">③:缩略图+(名称+简介:上下):左右</option>")
						  End If
						  If PicStyle = "4" Then
							Response.Write ("<option value=""4"" selected>④:(名称+简介:上下)+缩略图:左右</option>")
						  Else
							Response.Write ("<option value=""4"">④:(名称+简介:上下)+缩略图:左右</option>")
						  End If
				  
 End With%></select><span id="PicStyles">&nbsp;</span>
 </td>
      <td valign="top">SQL判断条件
      <input type="text"  style="width:60%;"  size="4" value="<%= ACTIF %>" name="ACTIF"><font color=red>格式</font></td>
    </tr>
	    <tr>
      <td colspan="2" align="center" >
       <input name="SubmitBtn" class="ACT_btn" type="button"  onClick="InsertScriptFun()"  id="SubmitBtn"  value=" 确 定 ">       &nbsp;&nbsp;
       <input type="reset" class="ACT_btn" name="Submit" value="  重置  "></td>
    </tr>
    
    
    </table>
  
</form>
<script language="javascript" >

function SelectClass()
{

 if(document.myform.select1.value==0)	
	{
	document.all.ClassID.value=0
	}

 if(document.myform.select1.value==1 )	
	{
	document.all.ClassID.value=1
	}

 if(document.myform.select1.value==2 )	
	{
	var result = Selector(2, document.all.ClassID.value);
	if(!result) return false;
	var val = "";
	for(var i=0; i<result.length; i++)
	{
		if(val == "")
		{
			val += result[i].id;
		}else{
			val += "," + result[i].id;
		}
	}
	document.all.ClassID.value = val;
	}
	}

		function SetActF(Val)
		{
		 if(Val==1)	
			{
			 ActFs.style.display="none";
			}
		 if(Val==2)	
			{
			 ActFs.style.display="";
			}
		 if(Val==3)	
			{
			 ActFs.style.display="none";
			}
		}



function SelectPicStyle(ObjValue)
		{
				document.all.PicStyles.innerHTML='<img src="../../Images/share/Act'+ObjValue+'.gif" height="130" width="240" border="0">';
				if (ObjValue==1)
				document.all.ContentLenArea.style.display="none";
				else
				 document.all.ContentLenArea.style.display="";

		}		
		
		
		function InsertScriptFun(Obj)
		{  
		  if (document.myform.LabelName.value=='')
			 {
			  alert('请输入标签名称');
			  document.myform.LabelName.focus(); 
			  return false
			  }
			  if (document.myform.PicStyle.value!=1 && document.myform.ContentLen.value=='')
			 {
				alert('请输入显示内容的字数!');
				  document.myform.ContentLen.focus(); 
				  return false;
			 }
			var ModeID=document.myform.ModeID.value;
			var ClassID=document.myform.ClassID.value;
			var OpenType='"'+document.myform.OpenType.value+'"';
			var ListNumber=document.myform.ListNumber.value;
			var PicStyle='"'+document.myform.PicStyle.value;+'"';
			var TitleLen=document.myform.TitleLen.value;
			var ArticleSort='"'+document.myform.ArticleSort.value+'"';
			var ColNumber=document.myform.ColNumber.value;
			var TitleCss='"'+document.myform.TitleCss.value+'"';
			var piccss='"'+document.myform.piccss.value+'"';
			var PicWidth=document.myform.PicWidth.value;
			var TypeTitle
			var PicHeight=document.myform.PicHeight.value;
			var ContentLen=document.myform.ContentLen.value;

			var ACTIF='"'+document.myform.ACTIF.value+'"';
			var ActF=document.myform.ActF.value;
			var ATT=document.myform.ATT.value;
			var divid=document.myform.divid.value;
			var divclass=document.myform.divclass.value;
			var ulid=document.myform.ulid.value;
			var ulclass=document.myform.ulclass.value;
			var liid=document.myform.liid.value;
			var liclass=document.myform.liclass.value;
			  
		
			var ActF=document.myform.ActF.value;
			for (var i=0;i<document.myform.TypeTitle.length;i++){
			 var TCJ = document.myform.TypeTitle[i];
			if (TCJ.checked==true)	   
				TypeTitle = TCJ.value
			}
			if  (ListNumber=='')  ListNumber=10;
			if  (TitleLen=='') TitleLen=30;
			if  (ColNumber=='') ColNumber=1;
			document.myform.LabelContent.value=	'{$GetArticlePic("'+ClassID+'"§'+document.myform.ActF.value+'§'+ATT+'§'+ArticleSort+'§'+OpenType+'§'+ListNumber+'§'+ColNumber+'§'+TitleLen+'§'+TitleCss+'§'+piccss+'§'+PicWidth+'§'+PicHeight+'§'+ContentLen+'§'+PicStyle+'§'+TypeTitle+'§'+ACTIF+'§'+divid+'§'+divclass+'§'+ulid+'§'+ulclass+'§'+liid+'§'+liclass+'§'+ModeID+')}';
			document.myform.SubmitBtn.value="正在提交数据,请稍等...";
			document.myform.SubmitBtn.disabled=true;
			document.myform.Submit.disabled=true;	
			document.myform.submit();
		}
	
</script>
<script language="javascript">SetActF(<%= ActF %>);</script>
<script language="javascript">SelectPicStyle(<%= """"&PicStyle&"""" %>);</script>
</body>
</html>
