admin_car.asp

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

        <td width="10%" align="right" nowrap class="td_ItemName">带司机：</td>
        <td width="67%"><input name="PriceHour2" type="text" id="PriceHour2" value="<%=rsModify("PriceHour2")%>" size="10"></td>
      </tr>
    </table></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="PriceDay1" type="text" id="PriceDay1" value="<%=rsModify("PriceDay1")%>" size="10"></td>
        <td width="10%" align="right" nowrap class="td_ItemName">带司机：</td>
        <td width="67%"><input name="PriceDay2" type="text" id="PriceDay2" value="<%=rsModify("PriceDay2")%>" size="10"></td>
      </tr>
    </table></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="PriceMonth1" type="text" id="PriceMonth1" value="<%=rsModify("PriceMonth1")%>" size="10"></td>
        <td width="10%" align="right" nowrap class="td_ItemName">带司机：</td>
        <td width="67%"><input name="PriceMonth2" type="text" id="PriceMonth2" value="<%=rsModify("PriceMonth2")%>" size="10"></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>超费计算</strong></td>
    <td colspan="3" class="td_25"><input name="OverExpense" type="text" id="OverExpense" value="<%=EL_Common.HTMLEncode(rsModify("OverExpense"))%>" size="47"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>是否可以打折</strong></td>
    <td colspan="3" class="td_25"><input name="IsDiscount" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsModify("IsDiscount"))%>>
      是
        <input name="IsDiscount" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsModify("IsDiscount"))%>>
      否</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"><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='350' ></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" 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);" value="<%=rsModify("DefaultPictrue")%>" size="50">
        <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="<%=rsModify("Uploadfiles")%>"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>属性设置</strong></td>
    <td 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 nowrap class="td_ItemName"><strong>初始点击数</strong></td>
    <td 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, CarID, 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="CarID" type="hidden" id="CarID" value="<%=CarID%>"></td>
  </tr>
</table>
</form>
<%
rsModify.Close()
Set rsModify = Nothing
Set ModifyCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub ManageCar()
On Error Resume Next
Dim CarCmd, rsCar, StrFields, StrCondition, TempString
Dim PageCounts, RowCount, TotalRowCount
TempString = ""
StrFields = "EL_Car.CarID,EL_Car.ClassID,EL_Car.CarName,EL_Car.PriceHour1,EL_Car.PriceHour2,EL_Car.PriceDay1,EL_Car.PriceDay2,"
StrFields = StrFields &"EL_Car.PriceMonth1,EL_Car.PriceMonth2,EL_Car.Hits,EL_Car.OnTop,EL_Car.Commended,"
StrFields = StrFields &"EL_Car.Passed,EL_Car.BookCount,EL_Car.UpdateTime,"
StrFields = StrFields &"EL_Car.Inputer,EL_Class.ClassName"
StrCondition = "EL_Car.ChannelID="& EL_Channel.ChannelID &" AND EL_Car.ClassID=EL_Class.ClassID AND EL_Car.ChannelID=EL_Class.ChannelID "
If ClassID <> 0 Then
   Dim AllChildID
   AllChildID = EL_Common.GetAllChildID(ClassID)
   If AllChildID = "" Then
      StrCondition = StrCondition &"And EL_Car.ClassID In("& ClassID &") "
   Else
      StrCondition = StrCondition &"And EL_Car.ClassID In("& ClassID &","& AllChildID &") "
   End If   
End If

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


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

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

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

Call EL_Common.InitCommand(CarCmd, "EL_SP_SplitPage")
With CarCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 20, "EL_Car,EL_Class")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "EL_Car.CarID")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 30, "EL_Car.CarID 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 rsCar = .Execute()
End With
rsCar.Close()
RowCount = CarCmd(0)
TotalRowCount = CarCmd(9)
PageCounts = CarCmd(10)

If Search_Keywords<>"" And Search_Field<>"" Then
  CurrentPath = CurrentPath &">> "& EL_Channel.ItemName &"搜索 >> "
  Select Case LCase(Search_Field)
     Case "carname":  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 "": 
	     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){