admin_sight.asp

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

If City <> "" Then StrCondition = StrCondition &"And EL_Sight.City='"& City &"' "
If Area <> "" Then StrCondition = StrCondition &"And EL_Sight.Area='"& Area &"' "

If Passed <> "" Then
   StrCondition = StrCondition &"And EL_Sight.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_Sight.OnTop="& EL_True &" "
   TempString = EL_Common.Join2String(TempString, "固顶", "、")
End If
If Commended = EL_True Then 
   StrCondition = StrCondition &"And EL_Sight.Commended="& EL_True &" "
   TempString = EL_Common.Join2String(TempString, "推荐", "、")
End If


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

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

If Search_Keywords<>"" And Search_Field<>"" Then 
   StrCondition = StrCondition &"And EL_Sight."& 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, 20, "EL_Sight")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "EL_Sight.SightID")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 30, "EL_Sight.SightID 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 rsManage = .Execute()
End With
rsManage.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 "sightname":  CurrentPath = CurrentPath & EL_Channel.ItemName & "名称："
	 Case "content":  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 "": 
	     If Province <> "" Then CurrentPath = CurrentPath &">> "& Province &" "
		 If City <> "" Then CurrentPath = CurrentPath &">> "& City &" "
		 If Area <> "" Then CurrentPath = CurrentPath &">> "& Area &" "
		 CurrentPath = CurrentPath &">> 所有<span class=bluetext>"& TempString &"</span>"& EL_Channel.ItemName
	 Case "Myself":
	     If Province <> "" Then CurrentPath = CurrentPath &">> "& Province &" "
		 If City <> "" Then CurrentPath = CurrentPath &">> "& City &" "
		 If Area <> "" Then CurrentPath = CurrentPath &">> "& Area &" "
		 CurrentPath = CurrentPath &">> <span class=redtext>"& EL_Admin.AdminName &" 添加的<span class=bluetext>"& TempString &"</span>"& EL_Channel.ItemName &"</span>"
	 Case "Check":
	     CurrentPath = CurrentPath & ">> "& EL_Channel.ItemName &"发布管理 "
		 If Province <> "" Then CurrentPath = CurrentPath &">> "& Province &" "
		 If City <> "" Then CurrentPath = CurrentPath &">> "& City &" "
		 If Area <> "" Then CurrentPath = CurrentPath &">> "& Area &" "
		 CurrentPath = CurrentPath &">> 所有<span class=bluetext>"& TempString &"</span>"& EL_Channel.ItemName	     
	 Case "Recycled":
	     CurrentPath = CurrentPath & ">> "& EL_Channel.ItemName &"回收站管理 "
		 If Province <> "" Then CurrentPath = CurrentPath &">> "& Province &" "
		 If City <> "" Then CurrentPath = CurrentPath &">> "& City &" "
		 If Area <> "" Then CurrentPath = CurrentPath &">> "& Area &" "
	     CurrentPath = CurrentPath &">> 所有<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 doPassed(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1<%=EL_Channel.ItemUnit & EL_Channel.ItemName%>");
	 return false;
  }
  frm.action = JURL + "&Action=SetPassed&SetValue=<%=EL_True%>";
  if(confirm("确认要发布选定的<%=EL_Channel.ItemName%>吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doCancelPassed(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1<%=EL_Channel.ItemUnit & EL_Channel.ItemName%>");
	 return false;
  }
  frm.action = JURL + "&Action=SetPassed&SetValue=<%=EL_False%>";
  if(confirm("确认要取消发布选定的<%=EL_Channel.ItemName%>吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doDeleteTrue(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1<%=EL_Channel.ItemUnit & EL_Channel.ItemName%>");
	 return false;
  }
  frm.action = JURL + "&Action=DeleteTrue";
  if(confirm("本次删除后将不能恢复，确认要彻底删除选定的<%=EL_Channel.ItemName%>吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doDeleteAllTrue(){
  var frm = getObject("myform");
  frm.action = JURL + "&Action=DeleteAllTrue";
  if(confirm("本次将彻底清空回收站中所有的<%=EL_Channel.ItemName%>，确认要清空吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doRestore(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1<%=EL_Channel.ItemUnit & EL_Channel.ItemName%>");
	 return false;
  }
  frm.action = JURL + "&Action=Restore";
  if(confirm("确认要还原选定的<%=EL_Channel.ItemName%>吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doRestoreAll(){
  var frm = getObject("myform");
  frm.action = JURL + "&Action=RestoreAll";
  if(confirm("确认要还原所有的<%=EL_Channel.ItemName%>吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doBatchSetup(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1<%=EL_Channel.ItemUnit & EL_Channel.ItemName%>");
	 return false;
  }
  frm.action = JURL + "&Action=Batch";
  frm.submit();
  return;
}
</script>
<%=ShowCityList(Province, City, Area, 18)%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<form name="myform" action="" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="3%" align="center" nowrap class="top_item"><strong>选择</strong></td>
	<td width="5%" align="center" class="top_item"><strong>ID</strong></td>
	<td width="41%" align="center" class="top_item"><strong><%=EL_Channel.ItemName%>名称</strong></td>
	<td width="6%" align="center" class="top_item"><strong>门市价</strong></td>
	<td width="6%" align="center" class="top_item"><strong>预订价</strong></td>
    <td width="9%" align="center" nowrap class="top_item"><strong>录入者</strong></td>
    <td width="6%" align="center" nowrap class="top_item"><strong>属性</strong></td>
    <td width="4%" align="center" nowrap class="top_item"><strong>发布</strong></td>
    <td width="20%" align="center" class="top_item"><strong>相关操作</strong></td>
  </tr>
  <%
    If RowCount = 0 Then
	  Response.Write "<tr><td colspan=8 class=""td_50"" align=""center"">没有任何"& EL_Channel.ItemName &"数据</td></tr>"
	Else
	  Dim i
	  rsManage.Open()
	  For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
    <td align="center"><input name="CheckObject" type="checkbox" id="CheckObject" value="<%=rsManage("SightID")%>"></td>
    <td align="center"><%=rsManage("SightID")%></td>
    <td style="padding-left:3px;">
	[<a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&Province=<%=EL_Common.ServerURLEncode(rsManage("Province"))%>"><%=rsManage("Province")%></a>.<a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&Province=<%=EL_Common.ServerURLEncode(rsManage("Province"))%>&City=<%=EL_Common.ServerURLEncode(rsManage("City"))%>"><%=rsManage("City")%></a>.<a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&Province=<%=EL_Common.ServerURLEncode(rsManage("Province"))%>&City=<%=EL_Common.ServerURLEncode(rsManage("City"))%>&Area=<%=EL_Common.ServerURLEncode(rsManage("Area"))%>"><%=rsManage("Area")%></a>]	
	<a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&Action=Show&SightID=<%=rsManage("SightID")%>" title="<%=EL_Channel.ItemName%>名称：<%=rsManage("SightName")%>&#13;更新日期：<%=rsManage("UpdateTime")%>&#13;预订统计：<%=rsManage("BookCount")%> 次&#13;点&nbsp;击&nbsp;数：<%=rsManage("Hits")%> 次"><%=EL_Common.HTMLEncode(rsManage("SightName"))%></a></td>
	<td align="center" class="redText"><strong><%=rsManage("MarketPrice")%></strong></td>
	<td align="center" nowrap><strong class="YellowText" title="普通会员价"><%=rsManage("BookPrice")%></strong></td>
    <td align="center"><%=EL_Common.HTMLEncode(rsManage("Inputer"))%></td>
    <td align="center" nowrap>
	<%
	  Response.Write EL_Common.ShowBoolean(rsManage("OnTop").value, "<span class=bluetext title='固顶"& EL_Channel.ItemName &"'>顶</span>", "<span class=graytext>顶</span>") &"&nbsp;&nbsp;"
	  Response.Write EL_Common.ShowBoolean(rsManage("Commended").value, "<span class=greentext title='推荐"& EL_Channel.ItemName &"'>荐</span>", "<span class=graytext>荐</span>")
	%></td>
    <td align="center"><%=EL_Common.ShowBoolean(rsManage("Passed").value, "<strong>√</strong>", "<span class=redtext><strong>×</strong></span>")%></td>
    <td align="center" nowrap>	
	<%
	  If EL_Admin.Purview = 1 Or EL_Admin.Purview = 2  Or rsManage("Inputer")=EL_Admin.AdminName Then
	    Select Case ManageType
		  Case "", "Myself":
	         Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Modify&SightID="& rsManage("SightID") &"'>修改</a> | "
		     Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Delete&SightID="& rsManage("SightID") &"' onClick=""return confirm('本次操作将该"& EL_Channel.ItemUnit & EL_Channel.ItemName &"删除至回收站，以后可以从回收站中恢复\n确认要执行删除吗？')"">删除</a> | "
		     If rsManage("OnTop") = True Then
		        Response.Write "<a href=