admin_article.asp

依蓝旅游网站管理系统Elan2008.SP2

      <span class="BlueText">&lt;= 【<span class="GreenText" onClick="document.myform.Copyfrom.value=this.innerText" style="cursor:hand; ">本站原创</span>】【<span class="GreenText" onClick="document.myform.Copyfrom.value=this.innerText" style="cursor:hand; ">未知</span>】</span></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ItemName%>内容</strong>
	  <div style="height:50%">
	  <input name="IsSaveRemoteImages" type="checkbox" class="nomargin" id="IsSaveRemoteImages" value="<%=EL_True%>" checked>
	  <span class="BlueText">是否保存编辑器中包含的远程图片到本地文件，当远程图片较多时保存速度较慢</span><br>
	  <span class="redText">在使用此功能之前必须在网站基本信息配置中打开“自动保存远程图片”功能</span>
	  </div>
	  <table width="100%" height="50%" border="0" cellspacing="0" cellpadding="0">
	    <tr>
          <td valign="bottom" height="100%">
		  <%
		    Response.Write "<img src="""& EL_Common.PictrueURL(rsModify("DefaultPictrue"), EL_Channel.FilePath) &""" name=""PictruePreview"" width=""140"" height=""100"" id=""PictruePreview"">"
		  %>		  
		  </td>
        </tr>
        <tr>
          <td height="10">&nbsp;</td>
        </tr>
      </table>	</td>
    <td colspan="3" class="td_25">
	<textarea name='Content' id="Content" style='display:none'><%=EL_Common.ServerHTMLEncode(rsModify("Content"))%></textarea>
	<iframe ID='Editor' src='../editor.asp?ChannelID=<%=EL_Channel.ChannelID%>&ShowType=0&tContentid=Content' frameborder='1' scrolling='no' width='650' height='450' ></iframe>
	</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ItemName%>默认缩略图</strong></td>
    <td colspan="3" class="td_25">
	  <input name="DefaultPictrue" type="text" id="DefaultPictrue" value="<%=rsModify("DefaultPictrue")%>" size="50" onChange="PictruePreview.src=(this.value.trim()=='' || this.value.trim().toLowerCase=='http://')?'../images/nopic.gif':( (this.value.indexOf('http://')==0 || this.value.indexOf('/')==0)?this.value:'<%=EL_Channel.FilePath%>'+this.value);">
      <select name='PictrueList' id='PictrueList' onChange="DefaultPictrue.value=this.value;PictruePreview.src=((this.value == '')?'../images/nopic.gif':'<%=EL_Channel.FilePath%>'+this.value);">
        <option selected>----------------</option>
		<%
		  Dim TempArrPictrue, k
		  TempArrPictrue = Split(rsModify("Uploadfiles"), "|")
		  For k = 0 To UBound(TempArrPictrue)
		     If EL_Common.CheckIsPictrue(TempArrPictrue(k)) = True Then
			    If TempArrPictrue(k) = rsModify("DefaultPictrue") Then
				   Response.Write "<option value='"& TempArrPictrue(k) &"' selected>"& TempArrPictrue(k) &"</option>"
				Else
				   Response.Write "<option value='"& TempArrPictrue(k) &"'>"& TempArrPictrue(k) &"</option>"
				End If
			 End If
		  Next
		%>
      </select>
      <input name="Uploadfiles" type="hidden" id="Uploadfiles" value="<%=EL_Common.HTMLEncode(rsModify("Uploadfiles"))%>"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>属性设置</strong></td>
    <td width="21%" class="td_25"><input name="OnTop" type="checkbox" class="nomargin" id="OnTop" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsModify("OnTop"))%>>
      固顶
        <input name="Commended" type="checkbox" class="nomargin" id="Commended" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsModify("Commended"))%>>
      推荐</td>
    <td width="10%" nowrap class="td_ItemName"><strong>初始点击数</strong></td>
    <td width="51%" class="td_25"><input name="Hits" type="text" id="Hits" value="<%=rsModify("Hits")%>" size="5"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>配色风格</strong></td>
    <td colspan="3" class="td_25"><select name="SkinID" id="SkinID">
      <option value="0">使用系统默认</option>
	  <%=EL_Common.SkinList(rsModify("SkinID"))%>
    </select></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>页面模板</strong></td>
    <td colspan="3" class="td_25"><select name="TemplateID" id="TemplateID">
      <option value="0">使用系统默认</option>
	  <%=EL_Common.TemplateList(EL_Channel.ChannelID, 3, rsModify("TemplateID"))%>
    </select></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>更新日期</strong></td>
    <td colspan="3" class="td_25">
	<input name="UpdateTime" type="text" id="UpdateTime" value="<%=rsModify("UpdateTime")%>">
	<span class="BlueText">&lt;= 【<span class="GreenText" onClick="getObject('UpdateTime').innerText=NowTime()" style="cursor:hand; ">现在时间</span>】</span></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>是否立即发布</strong></td>
    <td colspan="3" class="td_25">
	<div style="float:left;">
	<input name="Passed" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsModify("Passed"))%>>
      是
        <input name="Passed" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsModify("Passed"))%>>
        否
	</div>
	</td>
  </tr>
  <%=EL_Common.ShowDefinedField(EL_Channel.ChannelID, EL_Channel.ChannelModule, ArticleID, 3)%>
  <tr>
    <td class="td_ItemName"></td>
    <td colspan="3" class="td_50"><input type="submit" name="Submit" value="保存修改">
      <input type="button" name="Submit2" value="返回上页" onClick="history.back()">
      <input name="Action" type="hidden" id="Action" value="SaveModify">
      <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
      <input name="ArticleID" type="hidden" id="ArticleID" value="<%=ArticleID%>"></td>
  </tr>
</table>
</form>
<%
rsModify.Close()
Set rsModify = Nothing
Set ModifyCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub ManageArticle()
On Error Resume Next
Dim ManageCmd, rsArticle, StrFields, StrCondition, TempString
Dim PageCounts, RowCount, TotalRowCount
TempString = ""
StrFields = "EL_Article.ArticleID,EL_Article.ClassID,EL_Article.Title,EL_Article.Author,"
StrFields = StrFields &"EL_Article.Copyfrom,EL_Article.Hits,EL_Article.OnTop,EL_Article.Commended,"
StrFields = StrFields &"EL_Article.Passed,EL_Article.UpdateTime,EL_Article.Inputer,"
StrFields = StrFields &"EL_Class.ClassName"
StrCondition = "EL_Article.ChannelID="& EL_Channel.ChannelID &" AND EL_Article.ClassID=EL_Class.ClassID AND EL_Article.ChannelID=EL_Class.ChannelID "

If ClassID <> 0 Then
   Dim AllChildID
   AllChildID = EL_Common.GetAllChildID(ClassID)
   If AllChildID = "" Then
      StrCondition = StrCondition &"And EL_Article.ClassID In("& ClassID &") "
   Else
      StrCondition = StrCondition &"And EL_Article.ClassID In("& ClassID &","& AllChildID &") "
   End If   
End If

If Passed <> "" Then
   StrCondition = StrCondition &"And EL_Article.Passed="& Passed &" "
   If Passed = EL_True Then
      TempString = EL_Common.Join2String(TempString, "已发布", "、")
   Else
      TempString = EL_Common.Join2String(TempString, "<span class=redtext>未发布</span>", "、")
   End If
End If

If OnTop = EL_True Then 
   StrCondition = StrCondition &"And EL_Article.OnTop="& EL_True &" "
   TempString = EL_Common.Join2String(TempString, "固顶", "、")
End If
If Commended = EL_True Then 
   StrCondition = StrCondition &"And EL_Article.Commended="& EL_True &" "
   TempString = EL_Common.Join2String(TempString, "推荐", "、")
End If

If ManageType = "Recycled" Then 
   StrCondition = StrCondition &"And EL_Article.Deleted="& EL_True &" "
Else
   StrCondition = StrCondition &"And EL_Article.Deleted="& EL_False &" "
End If

If ManageType = "Myself" Then
   StrCondition = StrCondition &"And EL_Article.Inputer='"& EL_Admin.AdminName &"' "
End If 

If Search_Keywords<>"" And Search_Field<>"" Then 
   StrCondition = StrCondition &"And EL_Article."& Search_Field &" Like '%"& Search_Keywords &"%' "
End If


Call EL_Common.InitCommand(ManageCmd, "EL_SP_SplitPage")
With ManageCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_Article,EL_Class")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "EL_Article.ArticleID")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "EL_Article.ArticleID DESC,EL_Article.UpdateTime DESC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsArticle = .Execute()
End With
rsArticle.Close()
RowCount = ManageCmd(0)
TotalRowCount = ManageCmd(9)
PageCounts = ManageCmd(10)


If Search_Keywords<>"" And Search_Field<>"" Then
  CurrentPath = CurrentPath &">> "& EL_Channel.ItemName &"搜索 >> "
  Select Case LCase(Search_Field)
     Case "title":  CurrentPath = CurrentPath & EL_Channel.ItemName & "标题："
	 Case "content":  CurrentPath = CurrentPath & EL_Channel.ItemName & "内容："
	 Case "author":  CurrentPath = CurrentPath & EL_Channel.ItemName & "作者："
	 Case "inputer":  CurrentPath = CurrentPath & EL_Channel.ItemName & "录入者："
  End Select
  CurrentPath = CurrentPath &"<span class=redtext>"& Search_Keywords &"</span>"
Else  
  Select Case ManageType
     Case "": 
	     CurrentPath = CurrentPath & EL_Common.GetParentPath(ClassURL, ClassID) &">> 所有<span class=bluetext>"& TempString &"</span>"& EL_Channel.ItemName
	 Case "Myself":
	     CurrentPath = CurrentPath & EL_Common.GetParentPath(ClassURL, ClassID) &">> <span class=redtext>"& EL_Admin.AdminName &" 添加的<span class=bluetext>"& TempString &"</span>"& EL_Channel.ItemName &"</span>"
	 Case "Check":
	     CurrentPath = CurrentPath & ">> "& EL_Channel.ItemName &"发布管理 "
		 CurrentPath = CurrentPath & EL_Common.GetParentPath(ClassURL, ClassID) &">> 所有<span class=bluetext>"& TempString &"</span>"& EL_Channel.ItemName	     
	 Case "Recycled":
	     CurrentPath = CurrentPath & ">> "& EL_Channel.ItemName &"回收站管理 "
	     CurrentPath = CurrentPath & EL_Common.GetParentPath(ClassURL, ClassID) &">> 所有<span class=redtext>已删除的"& TempString &"</span>"& EL_Channel.ItemName
  End Select
End If

%>
<script language="javascript">
function CheckedAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = true;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
}
function CancelAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = false;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
   var frm = getObject("myform");
   for (var i=0;i<frm.elements.length;i++){
    var e = frm.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
       return true
    }
  }
  return false;
}
function Check(frm){
  SubmitOnce(frm);
  return true;
}
var JURL = "<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>";
function doDelete(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1<%=EL_Channel.ItemUnit & EL_Channel.ItemName%>");
	 return false;
  }
  frm.action = JURL + "&Action=Delete";
  if(confirm("本次操作将选定<%=EL_Channel.ItemName%>删除至回收站，以后可以从回收站中恢复\n确认要执行选定删除吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doMove(){
  var frm = getObject("myform");