admin_car.asp

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

            <td width="61%">带司机：<strong class="BlueText"><%=rsCar("PriceDay2")%></strong></td>
          </tr>
        </table></td>
        <td align="right" nowrap class="td_ItemName">押金：</td>
        <td class="td_25"><%=rsCar("Foregift")%></td>
        <td rowspan="4" align="center" class="td_25"><fieldset style="width:100%; height:90%; text-align:center; vertical-align:middle;">
            <img src="<%=EL_Common.PictrueURL(rsCar("DefaultPictrue"), EL_Channel.FilePath)%>" width="140" height="100" border="0" onClick="window.open(this.src)" style="cursor:hand; padding:5px;">
          </fieldset></td>
      </tr>
      <tr>
        <td align="right" nowrap class="td_ItemName">月租价：</td>
        <td class="td_25"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="39%">自驾：<strong class="YellowText"><%=rsCar("PriceMonth1")%></strong> &nbsp;</td>
            <td width="61%">带司机：<strong class="BlueText"><%=rsCar("PriceMonth2")%></strong></td>
          </tr>
        </table></td>
        <td align="right" nowrap class="td_ItemName">&nbsp;</td>
        <td class="td_25">&nbsp;</td>
        </tr>
      <tr>
        <td align="right" nowrap class="td_ItemName">超费计算：</td>
        <td colspan="3" class="td_25"><%=EL_Common.HTMLEncode(rsCar("OverExpense"))%></td>
      </tr>
      
    </table></td>
  </tr>
  <tr>
    <td class="td_25"><table width="100%" border="0" cellspacing="0" cellpadding="5">
      <tr>
        <td><%=rsCar("Content")%></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td class="td_50"><%=EL_Common.ShowNearInfo("EL_Car", "CarID", "CarName", "ChannelID="& EL_Channel.ChannelID &" AND ClassID="& rsCar("ClassID"), "CarID", rsCar("CarID"), EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Show&CarID=")%></td>
  </tr>
  <tr>
    <td class="td_25"><div class="rightdiv"><a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>">&lt;&lt; 返回管理</a> | <a href="#">返回顶部</a></div></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td class="td_ItemName"><div class="rightdiv">相关操作：
      <%
	  If EL_Admin.Purview = 1 Or EL_Admin.Purview = 2 Or EL_Admin.CheckAdminPurview(rsCar("ClassID"), 2)=True Or rsCar("Inputer")=EL_Admin.AdminName Then
	     If rsCar("Deleted") = False Then
	         Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Modify&CarID="& rsCar("CarID") &"'>修改</a> | "
		     Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Delete&CarID="& rsCar("CarID") &"' onClick=""return confirm('本次操作将该"& EL_Channel.ItemUnit & EL_Channel.ItemName &"删除至回收站，以后可以从回收站中恢复\n确认要执行删除吗？')"">删除</a> | "
		     If rsCar("OnTop") = True Then
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetOnTop&CarID="& rsCar("CarID") &"'>解固</a> | "
		     Else
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetOnTop&CarID="& rsCar("CarID") &"'>固顶</a> | "
		     End If
		     If rsCar("Commended") = True Then
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetCommended&CarID="& rsCar("CarID") &"'>取消推荐</a> | "
		     Else
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetCommended&CarID="& rsCar("CarID") &"'>设为推荐</a> | "
		     End If
			 If rsCar("Passed") = True Then
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetPassed&CarID="& rsCar("CarID") &"&SetValue="& EL_False &"'>取消发布</a>"
		     Else
			    Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetPassed&CarID="& rsCar("CarID") &"&SetValue="& EL_True &"'>立即发布</a>"
			 End If	
		 Else
		     Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=DeleteTrue&CarID="& rsCar("CarID") &"' onClick=""return confirm('本次操作将彻底删除该"& EL_Channel.ItemUnit & EL_Channel.ItemName &"，并不能恢复\n确认要执行彻底删除吗？')"">彻底删除</a> | "
			 Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Restore&CarID="& rsCar("CarID") &"'>还原</a>"
		 End If			      
	  Else
	    If rsCar("Deleted") = False Then
	         Response.Write "<span class=graytext>修改</span> | "
		     Response.Write "<span class=graytext>删除</span> | "
		     If rsCar("OnTop") = True Then
		        Response.Write "<span class=graytext>解固</span> | "
		     Else
		        Response.Write "<span class=graytext>固顶</span> | "
		     End If
		     If rsCar("Commended") = True Then
		        Response.Write "<span class=graytext>取消推荐</span> | "
		     Else
		        Response.Write "<span class=graytext>设为推荐</span> | "
		     End If
			 If rsCar("Passed") = True Then
		        Response.Write "<span class=graytext>取消发布</span>"
		     Else
			    Response.Write "<span class=graytext>立即发布</span>"
			 End If
		  Else
		     Response.Write "<span class=graytext>彻底删除</span> | "
			 Response.Write "<span class=graytext>还原</span>"
		  End If
	  End If
	%>
    </div>
        <div class="leftdiv">状态：
          <%
	  Response.Write EL_Common.ShowBoolean(rsCar("OnTop").value, "<span class=bluetext title='固顶"& EL_Channel.ItemName &"'>顶</span>", "<span class=graytext>顶</span>") &"&nbsp;&nbsp;"
	  Response.Write EL_Common.ShowBoolean(rsCar("Commended").value, "<span class=greentext title='推荐"& EL_Channel.ItemName &"'>荐</span>", "<span class=graytext>荐</span>") &"&nbsp;&nbsp;"
	  If rsCar("Passed") Then
	     Response.Write "<span class=greentext>已发布</span> &nbsp;"
	  Else
	     Response.Write "<span class=redtext>未发布</span> &nbsp;"
	  End If
	%>
      </div></td>
  </tr>
</table>
<br>
<%
Dim CommentCmd, rsComment, RowCount
Call EL_Common.InitCommonCmd(CommentCmd, rsComment, "EL_Comment", "Top 10 CommentID,Content,UserName,Content,UpdateTime", "ChannelID="& EL_Channel.ChannelID &" And InfoID="& CarID)
rsComment.Close()
RowCount = CommentCmd(0)
If RowCount>0 Then
rsComment.Open()
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td width="94%"><strong>·最近10条评论：</strong></td>
    <td width="6%" nowrap><a href="Admin_Comment.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=ShowAll&InfoID=<%=CarID%>" style="color:blue;">查看所有评论</a></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="5%" align="center" class="top_item"><strong>ID</strong></td>
    <td width="50%" align="center" class="top_item"><strong>评论内容</strong></td>
    <td width="12%" align="center" class="top_item"><strong>评论人</strong></td>
    <td width="17%" align="center" class="top_item"><strong>评论时间</strong></td>
    <td width="16%" align="center" class="top_item"><strong>操作</strong></td>
  </tr>
  <%
   For i = 1 To RowCount
  %>
  <tr class='td_25' onMouseOut=this.className='td_25' onMouseOver=this.className='MouseOver_25'>
    <td align="center"><%=rsComment("CommentID")%></td>
    <td style="padding-left:5px;" title="<%=EL_Common.ServerHTMLEncode(rsComment("Content"))%>"><%=EL_Common.GetTopic(rsComment("Content"), 60)%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsComment("UserName"))%></td>
    <td align="center"><%=rsComment("UpdateTime")%></td>
    <td align="center" nowrap><a href="Admin_Comment.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Reply&InfoID=<%=CarID%>">回复</a> | <a href="Admin_Comment.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Modify&CommentID=<%=rsComment("CommentID")%>">修改</a> | <a href="Admin_Comment.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Delete&CommentID=<%=rsComment("CommentID")%>">删除</a></td>
  </tr>
  <%
     If i<RowCount Then rsComment.MoveNext
   Next
  %>
</table>
<%
rsComment.Close()
End If
Set rsComment = Nothing
Set CommentCmd = Nothing
rsCar.Close()
Set rsCar = Nothing
Set CarCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub ModifyCar()
On Error Resume Next
Dim ModifyCmd, rsModify, CarID
CarID = EL_Common.ELRequest("CarID", 2)
Call EL_Common.InitCommonCmd(ModifyCmd, rsModify, "EL_Car", "*", "ChannelID="& EL_Channel.ChannelID &" AND CarID="& CarID)
rsModify.Close()
If ModifyCmd(0) <> 1 Then
   Set rsModify = Nothing
   Set ModifyCmd = Nothing
   EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"不存在")
   Exit Sub
End If
rsModify.Open()
If rsModify("Deleted") = True Then
   rsModify.Close()
   Set rsModify = Nothing
   Set ModifyCmd = Nothing
   EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"已被删除，请从回收站恢复后再做修改")
   Exit Sub
End If
%>
<script language="javascript">
function AddItem(strFileName){
  var arrName = strFileName.split('.');
  var FileExt = arrName[1];
  if (FileExt == 'gif' || FileExt == 'jpg' || FileExt == 'jpeg' || FileExt == 'jpe' || FileExt == 'bmp' || FileExt == 'png'){
     document.all.PictruePreview.src = '<%=EL_Channel.FilePath%>'+strFileName;
     document.myform.DefaultPictrue.value = strFileName;
	 document.myform.PictrueList.options[document.myform.PictrueList.length] = new Option(strFileName, strFileName);
     document.myform.PictrueList.selectedIndex += 1;
  }
  
  if(document.myform.Uploadfiles.value.trim() == ''){
    document.myform.Uploadfiles.value = strFileName;
  }else{
    document.myform.Uploadfiles.value += '|'+ strFileName;
  }
}
function Check(frm){
  var CurrentMode = Editor.CurrentMode;
  if (CurrentMode == 0){
    frm.Content.value = Editor.HtmlEdit.document.body.innerHTML; 
  }else if(CurrentMode==1){
    frm.Content.value = Editor.HtmlEdit.document.body.innerText;
  }else{
    alert('<%=EL_Channel.ItemName%>介绍处于预览状态不能保存');
    Editor.HtmlEdit.focus();
     return false;
  }
  
  if(frm.ClassID.value.trim()=="" || frm.ClassID.selectedIndex == -1){
     alert("请选择所属<%=EL_Channel.ClassItemName%>");
	 frm.ClassID.focus();
	 return false;
  }
  if(frm.CarName.value.trim()==""){
     alert("请输入<%=EL_Channel.ItemName%>车型");
	 frm.CarName.focus();
	 return false;
  }
  if(frm.Content.value.trim()==""){
     alert("请输入<%=EL_Channel.ItemName%>简介");
	 Editor.HtmlEdit.focus();
	 return false;
  }
  
  <%=EL_Common.ShowDefinedField_Js(EL_Channel.ChannelID, "frm")%>
  
  SubmitOnce(frm);
  return;   
}
</script>
<form name="myform" action="Admin_Car.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="4" class="top_25"><strong>修改<%=EL_Channel.ItemName%></strong></td>
  </tr>
  <tr>
    <td width="19%" class="td_ItemName"><strong>所属<%=EL_Channel.ClassItemName%></strong></td>
    <td colspan="3" class="td_25">
	<select name="ClassID" id="ClassID">
    <%=EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, rsModify("ClassID"), "")%>
    </select>
    <%If EL_Admin.Purview = 3 Then Response.Write "<span class=redtext>注：您只能在<span class=greentext>绿色</span>的"& EL_Channel.ClassItemName &"中操作</span>"%></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>车型</strong></td>
    <td colspan="3" class="td_25"><input name="CarName" type="text" class="RulerInput" id="CarName" value="<%=EL_Common.HTMLEncode(rsModify("CarName"))%>" size="60"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>座位</strong></td>
    <td width="27%" class="td_25"><input name="Seat" type="text" id="Seat" value="<%=rsModify("Seat")%>" size="10"></td>
    <td width="8%" align="right" nowrap class="td_ItemName"><strong>押金</strong></td>
    <td width="46%" class="td_25"><input name="Foregift" type="text" id="Foregift" value="<%=rsModify("Foregift")%>" size="10"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>时租价</strong></td>
    <td colspan="3" class="td_25"><table width="100%" border="0" cellspacing="1" cellpadding="0">
      <tr>
        <td width="9%" align="right" nowrap class="td_ItemName">自驾：</td>
        <td width="14%"><input name="PriceHour1" type="text" id="PriceHour1" value="<%=rsModify("PriceHour1")%>" size="10"></td>