<!--#include file="../fy.Function.asp"-->
<!--#include file="../Mode/fy.M.ASP"-->
<!--#include file="fy.diy.M.ASP"-->
<!--#include file="../include/fy.F.ASP"-->
<!--#include file="../../fy_inc/fy.Code.asp"-->
<!doctype html>
<html>
<head>
<meta charset="gb2312">
<title><%=ModeName%>内容添加 By Act</title>
<link rel="stylesheet" type="text/css" href="../css/base.css">
<link rel="stylesheet" type="text/css" href="../css/content.css">
<script type='text/javascript' src='../js/main.js'></script>
<SCRIPT LANGUAGE='JavaScript'>
var fyuser="<%=fycms.strToAsc(RSQL(Trim(Request.Cookies(fycmsN)("AdminName"))))%>";
var fypass="<%=fycms.strToAsc(RSQL(Trim(Request.Cookies(fycmsN)("AdminPassword"))))%>";
</SCRIPT>
<!--#include file="../../editor/index.asp"-->
<%=writejs("../../")%>
<script type="text/javascript" src="../../fy_inc/js/jquery.js"></script>
<script type="text/javascript" src="../../fy_inc/js/swfobject.js"></script>
<script type='text/javascript' src='../../fy_inc/js/time/WdatePicker.js'></script>
<script type='text/javascript' src='../../fy_inc/js/lhg/lhgdialog.min.js'></script>
<style type="text/css">
#thumbnails div.thumbshow{text-align:center;margin:2px;padding:2px;width:162px;height:155px;border: dashed 1px #B8B808; background:#FFFFF6;float:left}
#thumbnails div.thumbshow img{width:130px;height:92px;border:1px solid #CCCC00;padding:1px}
#thumbnailsfycms div.thumbshow{text-align:center;margin:2px;padding:2px;width:162px;height:155px;border: dashed 1px #B8B808; background:#FFFFF6;float:left}
#thumbnailsfycms div.thumbshow img{width:130px;height:92px;border:1px solid #CCCC00;padding:1px}
.buttons,.buttons span{height:28px; line-height:28px;overflow:hidden; cursor:pointer; float:left;background-image: url(picBnt.png);background-repeat:no-repeat;}
.buttons{padding-left:4px;background-position:left top;}
.buttons span{height:28px; overflow:hidden;padding-left:10px; padding-right:14px;
font-size:14px; font-family:"宋体"; font-weight:bold; color:#ffffff; text-align:center;background-position:right top;}
.buttons2{background-position:left bottom;}
.buttons2 span{background-position:right bottom;}
.button span{height:28px;padding-left:10px; padding-right:14px;
font-size:14px; font-family:"宋体"; font-weight:bold; color:#ffffff; text-align:center;background-position:right top;}
.button object { margin-top:6px; padding-top:6px;}
</style>
<%	Dim FileName,ClassName,ClassID,Title,IntactTitle,Intro,Keywords,CopyFrom,Slide,TemplateUrl
	Dim ATT,IStop,ModeID,ModeName,Action,ID,a_d,SavePic,MakeHtml,KeywordArr,TemplateUrltype
	Dim actlink,rev,Content,Hits,Straction,PicUrl,addtime,a_d2,author,publishtime
	Dim ChargeType,InfoPurview,arrGroupID,ReadPoint,PitchTime,ReadTimes,DividePercent,allpic,description
	ModeID = ChkNumeric(Request("ModeID"))
	if ModeID=0  Then ModeID=ChkNumeric(fycms.ACT_L(Request.QueryString("ClassID"),10))
	if ModeID=0  Then ModeID=1
	a_d=Split(af.get_DIY_F(ModeID),"§") 
	If ubound(a_d)<1 Then die "模型已被删除"
	ModeName= fycms.ACT_C(ModeID,1) 
	Action=Request.QueryString("Action")
	ID=ChkNumeric(Request("ID"))
	ClassID=ChkNumeric(Request("ClassID"))
 
	
%>
 <script language="javascript">
 
  
  		var pid=0;

function addImage(strs,bigsrc,smallsrc,text,aid) {
 	var newImgDiv = document.createElement("div");
	var delstr = '';
	delstr = '<a href="javascript:DelUpFiles('+"'"+strs+"'"+','+pid+','+aid+','+<%=modeid%>+')" style="color:#ff6600">[删除]</a>';
	delstr += ' <a href="javascript:iHtml('+"'Content1'"+','+"'"+bigsrc+"'"+')" >[插入]</a>';
	newImgDiv.className = 'thumbshow';
	newImgDiv.id = 'thumbshow'+strs+pid;
	document.getElementById("thumbnails"+strs).appendChild(newImgDiv);
	newImgDiv.innerHTML = '<a href="'+bigsrc+'" target="_blank"><span id="show'+strs+pid+'"></span></a>';
	newImgDiv.innerHTML += '<div style="margin-top:10px;text-align:left">'+delstr+'<b>注释：</b><input type="hidden" class="pics"  name="pic'+strs+pid+'"  id="pic'+strs+pid+'" value="'+bigsrc+'"/><input type="hidden" class="pics"  name="thumbpic'+strs+pid+'"  id="thumbpic'+strs+pid+'" value="'+smallsrc+'"/><input type="hidden" class="pics"  name="aid'+strs+pid+'"  id="aid'+strs+pid+'" value="'+aid+'"/><input onMouseOut="javascript:settitle('+"'"+strs+"'"+','+pid+','+aid+','+<%=modeid%>+')" type="text"   id="title'+strs+pid+'" name="title'+strs+pid+'" value="'+text+'" style="width:155px;" /></div>';
	var newImg = document.createElement("img");
	newImg.style.margin = "5px";
	document.getElementById("show"+strs+pid).appendChild(newImg);
	newImg.src = smallsrc;
	pid++;
document.getElementById("PicUrls"+strs).value+='$$$';

}
	function sapLoadMsg(t){
 		var actup=t.split('|');
		 {

				if (actup.length==2)
				{
 				insertHTMLToEditor(actup[1],actup[0]);
				}
				else
				{
 				addImage(actup[0], actup[1], actup[2], actup[3], actup[4]);
				}
 		}
		}
</script>

</head>
<body>
<% 
	KeywordArr=Split(a_d(4), "-")
	Dim TitleTypeList,i,KeywordsArr,AuthorArr,rs3,Score_fy
	StrAction = request("Action")
	IF Straction = "edit" Then Straction = "edit"  Else Straction = "add"
	Dim Rs,ShowErr
	Set Rs=server.CreateObject("adodb.recordset") 

	IF Action = "edit" Then
	  If UBound(Split(a_d(2),"-"))=3  Then 
			a_d2=Split(a_d(2),"-")
			SavePic=a_d2(2)
			MakeHtml=a_d2(3)
	  Else
			SavePic=0
			MakeHtml=1
	  End If 
 		Rs.OPen "Select * from  "&fycms.ACT_C(ModeID,2)&"  where ID = "& ID &"",Conn,1,1

		IF Rs.eof Then 
			ShowErr = "数据查询错误"
			Call fycms.ActErr(ShowErr,"","1")
			Response.End
		Else
			actlink=RS("actlink")
			Title=RS("Title")
			rev=RS("rev")
			Slide = Rs("Slide")
			IntactTitle=RS("IntactTitle")
			If fycms.ACT_C(modeid,18)="1" Then
				 Content=fycms.Htmljapan(getcontentxml(modeid,id,rs("addtime")))
			Else 
				If RS("Content") <> "" Then Content=fycms.Htmljapan(RS("Content"))
			End If 
			Intro=RS("Intro")
			Keywords=RS("Keywords")
 			CopyFrom=RS("CopyFrom")
			Hits=RS("Hits")
			FileName=RS("FileName")
			PicUrl=RS("PicUrl")
 			publishtime=RS("publishtime")
			ATT=RS("ATT")
			IStop=RS("IStop")
			TemplateUrl=RS("TemplateUrl")
			ClassID=RS("ClassID")
			addtime=RS("addtime")
			author=rs("author")
			ReadPoint =RS("ReadPoint")
			ChargeType=RS("ChargeType")
			PitchTime =RS("PitchTime")
			ReadTimes =RS("ReadTimes")
			InfoPurview=RS("InfoPurview")
			arrGroupID =RS("arrGroupID")
			DividePercent=RS("DividePercent")
			allpic=RS("allpic")
			description=RS("description")
			TemplateUrltype="1"
 			Rs.close
		If Not fycms.fycms_QXYZ(ModeID,"3",ClassID) Then   Call fycms.Alert("对不起，你没有"&fycms.ACT_C(ModeID,1)&"的修改权限","")
		End IF
	Else
	   ATT=0:IStop=0:Slide=0
 	   CopyFrom=session("CopyFrom")
	   addtime=now()
		ReadPoint =0
		ChargeType=0
		PitchTime =0
		ReadTimes =0
		InfoPurview=0
		arrGroupID =0
		DividePercent=0
		If a_d(32)="1" Then actlink=0 Else actlink=1
		If a_d(35)="1" Then Slide=0 Else Slide=1
  		PicUrl=a_d(0)
 	  If UBound(Split(a_d(2),"-"))=3  Then 
			a_d2=Split(a_d(2),"-")
			IStop=a_d2(0)
			rev=a_d2(1)
			SavePic=a_d2(2)
			MakeHtml=a_d2(3)
	  Else
			IStop=0
			rev=1
			SavePic=0
			MakeHtml=1
	  End If 


		Dim dellink_type,introduce_type,contentlength_type,reppic_type
	  If UBound(Split(a_d(19),"-"))=3  Then 
			dtype=Split(a_d(19),"-")
			dellink_type=dtype(0)
			introduce_type=dtype(1)
			contentlength_type=dtype(2)
			reppic_type=dtype(3)
	  Else
 			dellink_type=1
			introduce_type=1
			contentlength_type=200
			reppic_type=1
	  End If 
			
		Dim dtype



 	   If UBound(KeywordArr)=>0 Then Keywords=KeywordArr(0)
	   author=a_d(6)
	   CopyFrom=a_d(8)
	   Intro=a_d(10)
	   arrGroupID=Replace(a_d(14),"-",",")
	   Score_fy=a_d(16)
			
		description=a_d(30)
		title=a_d(28)
		publishtime=a_d(36)
		Hits=a_d(40)
		If a_d(43)=""  Then TemplateUrltype=""
		
		
	   If Trim(a_d(13)) <> "" Then Content =Server.HTMLEncode(LoadTemplate(a_d(13)))
		IF ClassID <> "0" Then
			Set rs=fycms.actexe("Select ClassName,ClassID,ModeID from Class_fy  where ClassID = "&ClassID )
			If Not rs.eof Then 
				ClassName = Rs("ClassName")
				ClassID = Rs("ClassID")
				ModeID=Rs("ModeID")
			Else
				die "程序出现错误,没有找到该栏目"
 			End If 
		Else
			IF Session("ClassName") <> "" And Session("ClassID") <> "" Then
				ClassName = Session("ClassName")
				ClassID = Session("ClassID")
			End IF
		End If
		If ChkNumeric(a_d(26))<>"0" Then ClassID=a_d(26)
	End If

 %>
<div class="content"> 
	<div class="breadnav">当前位置：<%=ModeName%>管理 &gt;&gt; 添加<%=ModeName%></div>
 
<form  name="tcjdxr" id="act" method="post" action="fy.Save.asp?action=<%=Straction%>&ID=<%=Request("ID")%>&fycms=<%=Request.QueryString("fycms")%>">
  <input type="hidden" id="ModeID" name="ModeID" value="<%=ModeID%>">
  <div class="divtable"> 
      <%
	 
	  
	  If a_d(27)="0"  or a_d(33)="0" Then %>
		<dl>
            <dt>所属栏目:</dt>
            <dd>
 			<%If a_d(27)="0" Then %>
           <select name="ClassID">
			<option>请选择栏目</option>
			  <%= AF.ForClasslist(ModeID)%>
			</select> 
			  <%
			  Else 
				echo "<input type=""hidden"" id=""ClassID"" name=""ClassID"" value="""&ClassID&""">"
			  End If
			%>
	
	
                自定义属性：
                <select name="ATT" id="ATT">
					<option value="0">普通<%=ModeName%></option>
			<%=fycms.ACT_ATT(ATT)%></select>
			<%If a_d(33)="0" Then %>
                <input type="checkbox" onclick="actlinks()" value="1" id="actlinkss" name="actlink"  <%if actlink= "1" Then echo "Checked "%>>
                <label for="actlinkss"><font color="#FF0000"><b>使用转向链接</b></font></label>
			 <%End If %>
             </dd>
        </dl>
	
	 <%
	 Else 
				echo "<input type=""hidden"" id=""ClassID"" name=""ClassID"" value="""&ClassID&""">"
				echo "<input type=""hidden"" id=""ATT"" name=""ATT"" value="""&ATT&""">"
	 
	 End If %>
	
	<%If a_d(29)="0" Then %>
       <dl>
            <dt>标题:</dt>
            <dd>
                <input class="tinput" type="text" maxlength="255" size="45" value="<%=Server.HTMLEncode(Title)%>" id="Title" name="Title">
                    <span id="msg1"></span>
                    <select onchange="FormatTitle(this, tcjdxr.Title, '')" name="select">
                      <option selected="">-- 修饰 --</option>
                      <option value="1">粗体</option>
                      <option value="3">红色</option>
                      <option value="4">蓝色</option>
                      <option value="5">倾斜</option>
                      <option value="2">[图文]</option>
                      <option value="-1">清除样式</option>
                      <option value="-2">清除内容</option>
                  </select>
                  <font color="green">支持HTML</font>
            </dd>
         </dl>
	  <%
	  Else 
		echo "<input type=""hidden"" id=""Title"" name=""Title"" value="""&a_d(28)&""">"
	  End If
	%>



<%If a_d(33)="0" Then %>
		<dl id="ChangesUrl" <% 	
  if actlink = "1" Then 
	 echo "style=""'DISPLAY: none'"""
	else
	 echo "style=""DISPLAY: none"""
	End if
 %> >
            <dt>转向链接地址:</dt>
            <dd>
			
         <input name="ChangesLinkUrl" type="text"  class="tinput" id="ChangesLinkUrl" value="<%=FileName%>" size="50" maxlength="255"> 
			   <font color="#ff0000">如果<%=ModeName%>是转向链接，那么以下各项填写无效,请不要填写!</font>
            </dd>
        </dl>
<%End if %>
 


 <%If a_d(1)="0" Then %>

         <dl>
            <dt>缩略图:</dt>
            <dd>
                <input class="tinput" type="text" size="50" value="<%=picurl%>" id="PicUrl" name="PicUrl" />
  <input id="PicUrls" class="btn btn_primary" onClick="javascript:tdialog(<%=ModeID%>,'<%=fycms.actsys&fycms.adminurl%>/include/Upload_Admin.asp?A=add&instr=PicUrl&ModeID=<%=ModeID%>&instrname=PicUrl');" name="button" type="button"   value="点击上传图片">
                <input type="checkbox" name="Slide" value="1" id="Slide" <%if Slide= "1" Then echo "Checked "%>><label for="Slide"><font color="green">是否幻灯片</font></label>
                
            </dd>
          </dl>
	  <%
	  Else 
		echo "<input type=""hidden"" id=""PicUrl"" name=""PicUrl"" value="""&a_d(0)&""">"
	  End If
	%>



     <% If a_d(3)="0" Then%>
            <dl>
                <dt><%=ModeName%>属性:</dt>
                <dd>
                    <input type="checkbox" name="IStop" value="1" id="IStop"  <%if IStop= "1" Then echo "Checked "%> ><label for="IStop">置顶</label>
                    <input type="checkbox" name="rev" value="1" id="rev"  <%if rev= "1" Then echo "Checked "%> ><label for="rev">允许评论</label>
                    <input type="checkbox" name="MakeHtml" value="1" id="MakeHtml"  <%if MakeHtml= "1" Then echo "Checked "%> ><label for="makehtml">立即生成</label>
                    <input type="checkbox" name="SavePic" value="1" id="SavePic"  <%if SavePic= "1" Then echo "Checked "%> ><label for="savepic">远程存图(是否将<%=ModeName%>中的外部图片采集回来,影响速度)</label>
                </dd>
            </dl>
  <%
  else
  	echo "<input type=""hidden"" id=""IStop"" name=""IStop"" value="""&IStop&""">"
  	echo "<input type=""hidden"" id=""rev"" name=""rev"" value="""&rev&""">"
  	echo "<input type=""hidden"" id=""SavePic"" name=""SavePic"" value="""&SavePic&""">"
  	echo "<input type=""hidden"" id=""MakeHtml"" name=""MakeHtml"" value="""&MakeHtml&""">"
   End if%>
           
			<%  
	If a_d(5)="0" Then
%>
			
			<dl>
                <dt>关键字:</dt>
                <dd>
                    <input type="text" value="<%= Keywords %>" id="Keywords" maxlength="255" size="50" class="tinput" name="Keywords">
                    <input type="checkbox" value="1" name="Tags" id="Tags"><label for="Tags">写入Tags</label>
					<a class="btn btn_primary"  id="KeyLinkByTitle"  onClick="javascript:GetKeyTags();" >根据标题自动获取Tags</a>
                </dd>
            </dl>
<%Else
		echo "<input type=""hidden"" id=""Keywords"" name=""Keywords"" value="""&Keywords&""">"
	End If %>

		<%  
	If a_d(31)="0" Then
%>
 <dl>
                <dt>Meta描述：</dt>
                <dd>
                    <input name="description" type="text"  class="tinput" size="50" maxlength="255" id="description" value="<%= description %>">
 HTML头部的Meta站点描述信息
                </dd>
            </dl>
<%End If %>




 <%
 	If a_d(7)="0" Then
  %>

            <dl>
                <dt><%=ModeName%>作者：</dt>
                <dd>
                   <input name="author" type="text"  class="tinput"  value="<%=author %>">
				<select name="" onChange="document.tcjdxr.author.value=this.value">
				<option>常用作者列表</option>
				<%   set rs3=fycms.ActExe("Select Field1,Field2 from  AC_fy where Types=1")
					 if Not rs3.eof Then
					 Do While Not rs3.eof
						 echo  "<option value="&rs3("Field1") &">" & rs3("Field1") & "</option>"
						  rs3.movenext
					 Loop
					 rs3.close:set rs3=Nothing
				 End if
			 %></select>
                    <input type="checkbox" checked="" value="1" name="addauthor" id="addauthor">
                    <label title="添加格式(以-分割)： 作者-作者电子信箱" for="addauthor">添加至作者列表中</label> 
                </dd>
            </dl>
<%Else
  	echo "<input type=""hidden"" id=""author"" name=""author"" value="""&author&""">"
    End If
  %>

 <%
 	If a_d(9)="0" Then
  %>



            <dl>
                <dt><%=ModeName%>来源：</dt>
                <dd>
                    <input name="CopyFrom" type="text"  class="tinput" value="<%= CopyFrom %>">
	<select name="" onChange="document.tcjdxr.CopyFrom.value=this.value">
	<option>常用来源列表</option>
	<% Set  rs3=fycms.ActExe("Select Field1,Field2 from  AC_fy where Types=0")
	  If Not  rs3.eof Then
		 Do While Not rs3.eof
			echo  "<option value="&rs3("Field1") &">" & rs3("Field1") & "</option>"
			rs3.movenext
		 loop
		End if
	 %></select>
                    <label title="添加格式(以-分割)： 来源-来源网站地址" for="addCopyFrom">添加至来源列表中</label>
                </dd>
            </dl>
<%Else
  	echo "<input type=""hidden"" id=""CopyFrom"" name=""CopyFrom"" value="""&CopyFrom&""">"
    End If
  %>








 <% If a_d(11)="0" Then%>
            <dl>
                <dt><%=ModeName%>导读：</dt>
                <dd>
                    <textarea id="Intro" rows="4" cols="80" name="Intro"><%= Intro %></textarea>
                </dd>
            </dl>
	<% Else
		echo "<input type=""hidden"" id=""Intro"" name=""Intro"" value="""&Intro&""">"
	  End If%>


<%If fycms.actexe("select count(id) from Table_fy where modeid="&modeid)(0)<>"0" Then %>
   
      <% 	 '
	If Action="edit" Then 
			If fycms.ACT_C(ModeID,4)="0" Then 
				echo M.ACT_MXEdit(ModeID,ID) 
			Else
				echo  M.ReplaceFormEdit(ModeID,id,LTemplate(fycms.ACTSYS&"fy_inc/cache/"&ModeID&"/"&fycms.ACT_C(ModeID,2)&"-mode.inc"))

			End If 

	Else 
			If fycms.ACT_C(ModeID,4)="0" Then 

				echo   M.ACT_NoRormMXList(ModeID)
			Else
				echo  M.ReplaceForm(ModeID,LTemplate(fycms.ACTSYS&"fy_inc/cache/"&ModeID&"/"&fycms.ACT_C(ModeID,2)&"-mode.inc"))

			End If 
		End If 
   
   End If
 	echo M_diy.ACT_MXEdit(ModeID,ID) 

   %>







		<%	If a_d(20)="0" Then 

 		

		%>
            <dl>
                <dt>附加选项：</dt>
                <dd>
                    <input <%if dellink_type= "1" Then echo "Checked "%>  type="checkbox" id="dellink" name="dellink" value="1"><label for="dellink">除去内容中的超级链接</label>
  <label for="introduces"><input id="introduces" name="introduce" type="checkbox"  value="1" <%if introduce_type= "1" Then echo "Checked "%>>是否截取内容</label>&nbsp;&nbsp; <input type="text"  class="tinput" name="contentlength" value="<%=contentlength_type%>" size="3">字符至<%=ModeName%>导读
 &nbsp;&nbsp; 提取内容中第<input name="reppic" type="text"  size="10" class="tinput"  value="<%=reppic_type%>" />张图片为缩略图
                </dd>
            </dl>
			<%End If%>

			<%If a_d(21)="0" Then %>

            <dl>
                <dt>批量上传文件：</dt>
                <dd>
                  <div id="sapload"></div>
				 <style type="text/css">#thumbnailsfycms div.thumbshow{text-align:center;margin:2px;padding:2px;width:162px;height:155px;border: dashed 1px #B8B808; background:#FFFFF6;float:left}#thumbnailsfycms div.thumbshow img{width:130px;height:92px;border:1px solid #CCCC00;padding:1px}</style><div id="saploadfycms">
				</div>
			<div id="divFileProgressContainerfycms"></div>  <div id="thumbnailsfycms"></div>  <input type='hidden' name='PicUrlsfycms' id='PicUrlsfycms'>  <script type="text/javascript">
			// <![CDATA[
			var so = new SWFObject("<%=fycms.ACTSYS%>fy_inc/sapload.swf", "saploadfycms", "450", "25", "9", "#ffffff");
			so.addVariable('types','<%=Replace(fycms.fycms_Sys(11),"/",";")%>');
			so.addVariable('isGet','1');
			so.addVariable('args','aid=<%=id%>;ih=fycms;myid=Upload;ModeID=<%=ModeID%>;U='+fyuser+";"+';P='+fypass+";"+'Yname=fycms');
			so.addVariable('upUrl','<%=fycms.ACTSYS%><%=fycms.admindir%>/include/Uploadall.asp');
			so.addVariable('fileName','Filedata');
			so.addVariable('maxNum','110');
			so.addVariable('maxSize','<%=fycms.fycms_Sys(10)/1024%>');
			so.addVariable('etmsg','1');
			so.addVariable('ltmsg','1');
			so.addParam('wmode','transparent');
			so.write("saploadfycms");
 			var PicUrlsfycms='<%=fycms.typepic("fycms",id)%>';
			var PicUrlArrfycms=null;
			//alert(PicUrlsfycms);

			if (PicUrlsfycms!='')
			 { 
			PicUrlArrfycms=PicUrlsfycms.split('|||');
			 for ( var i=1 ;i<PicUrlArrfycms.length+1;i++){ 
	 	
				addImage('fycms',PicUrlArrfycms[i-1].split('|')[0],PicUrlArrfycms[i-1].split('|')[1],PicUrlArrfycms[i-1].split('|')[2],PicUrlArrfycms[i-1].split('|')[3],PicUrlArrfycms[i-1].split('|')[4]);
			  }
			  }
			// ]]>
			</script>

                </dd>
            </dl>
			<%End If%>

			<%If a_d(25)="0" Then%>
            <dl>
                <dt>
                    <%=ModeName%>内容：<br><br>
                    <button class="btn" type="button" value="[NextPage]" name="button" onClick="insertHTMLToEditor('[NextPage]','Content1');">插入分页符</button>
                </dt>
                <dd>
                    <div class="filter"><b>过滤:</b>
                      <label><input type="checkbox" value="1" name="FilterIframe">Iframe</label>
                      <label><input type="checkbox" value="1" name="FilterObject">Object</label>
                      <label><input type="checkbox" value="1" name="FilterScript">Script</label>
                      <label><input type="checkbox" value="1" name="FilterDiv">Div</label>
                      <label><input type="checkbox" value="1" name="FilterClass">Class</label>
                      <label><input type="checkbox" value="1" name="FilterTable">Table</label>
                      <label><input type="checkbox" value="1" name="FilterSpan">Span</label>
                      <label><input type="checkbox" value="1" name="FilterImg">IMG</label>
                      <label><input type="checkbox" value="1" name="FilterFont">Font</label>
                      <label><input type="checkbox" value="1" name="FilterA">A链接</label>
                      <label><input type="checkbox" onclick="alert('所有HTML格式将被清除！');" value="1" name="FilterHtml">HTML</label>
                      <label><input type="checkbox" value="1" name="FilterTd">TD</label>
                      
                    </div>
                    <div class="edit"> <%=writeeditor(ModeID,"Content1","Content","",Content)%></div>
                </dd>
            </dl>
			<%Else
		echo "<input type=""hidden"" id=""Content1"" name=""Content"" value="""&Content&""">"
	  End If%>
		<%if a_d(18)="0"  Then%>
            <dl>
                <dt>文件名：</dt>
                <dd>
					<input name="FileName" type="text"  class="tinput" id="FileName" value="<% =FileName%>" /> 生成的文件名
                </dd>
            </dl>
		  <%
	   Else 
	   echo "<input type=""hidden"" id=""FileName"" name=""FileName"" value="""&FileName&""">"
	   End If %>

<%if a_d(37)="0"  Then%>
            <dl>
                <dt>指定日期显示：</dt>
                <dd>
					<input  name="publishtime" type="text"  class="tinput" id="publishtime" value="<% =publishtime%>"  onClick="WdatePicker()"/> 

                </dd>
            </dl>

		<%
	   Else 
		 echo "<input type=""hidden"" id=""publishtime"" name=""publishtime"" value="""&publishtime&""">"
	   End If %>

<%if a_d(39)="0"  Then%>

            <dl>
                <dt>添加日期：</dt>
                <dd>
	<input name="addtime"  type="text"  class="tinput" id="addtime" value="<%=addtime%>"   onClick="WdatePicker()" />

                </dd>
            </dl>

	<%
	   Else 
		 echo "<input type=""hidden"" id=""addtime"" name=""addtime"" value="""&addtime&""">"
 	   End If %>




<%if a_d(41)="0"  Then%>

            <dl>
                <dt>初始点击数：</dt>
                <dd>
	<input name="Hits" type="text"  class="tinput" id="Hits" value="<%= Hits %>" />

                </dd>
            </dl>

	<%
	   Else 
		 echo "<input type=""hidden"" id=""Hits"" name=""Hits"" value="""&Hits&""">"
 	   End If %>





      


<%if a_d(15)="0"  Then%>

            <dl>
                <dt>权限：</dt>
                <dd>
                       <label for="InfoPurview1">
    <input name='InfoPurview' id='InfoPurview1' type='radio' <% if  InfoPurview="0" then response.Write "checked=""checked""" %> value='0'  />
      继承栏目权限（当所属栏目为认证栏目时，建议选择此项）</label><br />
      <label for="InfoPurview2"><input name='InfoPurview' id='InfoPurview2' <% if  InfoPurview="1" then response.Write "checked=""checked""" %>  type='radio' value='1' />
      所有会员（当所属栏目为开放栏目，想单独对某些<%=ModeName%>进行阅读权限设置，可以选择此项）</label><br />
     <label for="InfoPurview3"> <input name='InfoPurview' id='InfoPurview3' <% if  InfoPurview="2" then response.Write "checked=""checked""" %>  type='radio' value='2' />
      指定会员组（当所属栏目为开放栏目，想单独对某些<%=ModeName%>进行阅读权限设置，可以选择此项,<font color="green">在下面设置相应的会员组权限</font>）</label><br />
	
 					<%= fycms.GetGroup_CheckBox("arrGroupID",arrGroupID,5)  %>
                </dd>
            </dl>
        	 
     
            <dl>
                <dt>阅读点数：</dt>
                <dd>
                      <input  name='ReadPoint' type='text' id='ReadPoint'  value='<%=ReadPoint  %>' size='6' class='tinput' />
      免费阅读请设为 &quot;<font color="red">0</font>&quot;，否则有权限的会员阅读此<%=ModeName%>时将消耗相应点数，游客将无法阅读此<%=ModeName%> 
                </dd>
            </dl>



       <dl>
                <dt>重复收费：</dt>
                <dd>只有当上述计费才有效<br>
                      <label for="ChargeType1">
     <input name='ChargeType'  id='ChargeType1' type='radio' value='0' <% if  ChargeType="0" then response.Write "checked=""checked""" %>  />
      不重复收费(如果需扣点数<%=ModeName%>，建议使用)</label><br />
       <label for="ChargeType2"><input name='ChargeType' id='ChargeType2' <% if  ChargeType="1" then response.Write "checked=""checked""" %> type='radio' value='1' />
      距离上次收费时间
      <input name='PitchTime' type='text' class='tinput' value='<%= PitchTime %>' size='8' maxlength='8'  />
      小时后重新收费</label><br />

       <label for="ChargeType6"><input name='ChargeType' type='radio' <% if  ChargeType="2" then response.Write "checked=""checked""" %>  id='ChargeType6'  value='2' />
      每阅读一页次就重复收费一次（建议不要使用,多页<%=ModeName%>将扣多次点数）</label>
                </dd>
            </dl>


 



  <%
   End If
  %>





<%if a_d(43)="0"  Then%>

            <dl>
                <dt>模板地址：</dt>
                <dd>
                    <input <% IF TemplateUrltype = "" Then echo " checked=""checked""" %> onclick='Templates(this.value);' id="Templates2"   type="radio" name="TemplateUrl`" value="1" /><label for="Templates2">继承栏目设定</label>
      <input <% IF TemplateUrltype <> ""   Then echo " checked=""checked""" %>  onclick='Templates(this.value);' id="Templates1" type="radio" name="TemplateUrl`" value="2" /><label for="Templates1">自定义</label>
      <div id='Templatefs' 
	   <% 	
  if TemplateUrltype <> "" Then 
	 echo "style=""'DISPLAY: none'"""
	else
	 echo "style=""DISPLAY: none;text-align: left;"""
	End if
 %>  >
       <input class="tinput" type="text" name='TemplateUrl' id='TemplateUrl'  size="30"  value='<%=TemplateUrl%>' />
<input id="PicUrls3" class="btn btn_primary" onClick="javascript:stemp('<%=fycms.actsys&fycms.adminurl%>/include/TempLate/Select.asp?ShowPath=<%=fycms.ThisTheme%>&iname=TemplateUrl');" name="button" type="button"   value="选择模板">
                
                </div> 
                </dd>
            </dl>
<%End if%>


            <dl class="lastrow">
            <dt class="vhid"></dt>
            <dd>
                <a class="btn btn_primary" href="javascript:void(0);" onclick="CheckForm()">保存</a>
               <input name="Submit2" type="reset" class="btn" value="重置">
            </dd>
         </dl>
        
    </div>
    </form>


</div>

<script src="../js/base.js"></script>
<script type="text/javascript">
<%=insertjs("Content1")%>


		function DelUpFiles(strs,pid,id,modeid)
		{  var p=$('#pic'+strs+pid).val();

 		   if (p!==''){
		    $.ajax({
			  url: "../include/plus/delfile.asp",
			  cache: false,
			  data: "action=DelPhoto&modeid="+modeid+"&id="+id+"&flag=1",
			  success: function(r){
			  }
			  });
	       }
		   $("#thumbshow"+strs+pid).remove();	
		}	




		function settitle(strs,pid,id,modeid)
		{  
			 
			var p=$('#title'+strs+pid).val();
			//alert(p);
 		   if (p!==''){
		    $.ajax({
			  url: "../include/plus/setfile.asp",
			  cache: false,
			  data: "action=DelPhoto&modeid="+modeid+"&id="+id+"&text="+p,
			  success: function(r){
			  }
			  });
	       }
 		}	




		function actlinks()
				{ if (document.tcjdxr.actlink.checked==true)
				  {
				  ChangesUrl.style.display="";
				  }
				  else
					{
					 ChangesUrl.style.display="none";
					 }
				}
				function Templates(Templatef)
			{   if (Templatef==2)
			  {
			  Templatefs.style.display="";
			  }
			  else
				{
				 Templatefs.style.display="none";
				 }
			}
		function GetKeyTags()
			{
			  var text=escape($('input[name=Title]').val());
 			  if (text!=''){
				  $('#Keywords').val('请稍等,系统正在自动获取tags...').attr("disabled",true);
				  $.get("../../fy_inc/tag.asp", { action: "GetTags", text: text,maxlen: 20 },
				  function(data){
					$('#Keywords').val(unescape(data)).attr("disabled",false);
				  });
			  }else{
			   alert('对不起,请先输入内容!');
			  }
			}

 function CheckForm()
	{ 

	var form=document.tcjdxr;
 	 if (form.ClassID.value=='')
		{ alert("请选择栏目!");   
		  return false;
		}
		
 
 		<%
 If a_d(25)="0" Then


echo checkeditpost(ModeID,1)
 
end if %>
 		form.submit();
        return true;
	}	


 </script>
</body>
</html>
