📄 classhotel.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 5 页
字号:
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$PageTitle}", EL_Common.Join2String(HotelName, SiteTitle, EL_Common.TitleDivide))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DefaultSkin}", EL_Common.Skin(ChannelID, 0, 0))
	  
	  StrPath = EL_Common.Lang("BaseConfig.Path", "&nbsp;&gt;&gt;&nbsp;")
	  EL_Common.ShowPath = EL_Common.ShowPath & StrPath &"<a href='"& InstallDir & EL_Channel.ChannelDir &"/Index.asp'>"& EL_Channel.ChannelName &"</a>" 
	  EL_Common.ShowPath = EL_Common.ShowPath & StrPath & EL_Common.RegExpStaticLabel(EL_Common.Lang("BaseConfig.BookPath.Book", "{$ItemName}预订"), "{$ItemName}", EL_Channel.ItemName) & StrPath & EL_Common.Lang("BaseConfig.BookPath.Confirm", "订单信息确认")
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowPath}", EL_Common.ShowPath)
	  
	  HTML = ChannelCommonLabels(HTML)
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$HotelID}", HotelID)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$RoomID}", RoomID)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$HotelName}", HotelName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Hotel_LevelPictrue}", "<img src='"& LevelPictrue &"' alt='"& LevelName &"'>")
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Hotel_LevelName}", LevelName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Address}", Address)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$RoomName}", RoomName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Room_Remark}", Room_Remark)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DayNum}", DayNum)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowConfirmType}", EL_Common.GetConfirmType())
	  
	  Dim PriceList
	  PriceList = ConfirmPriceList(HotelID, RoomID, Hotel_Rooms, TotalPrice)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$PriceList}", PriceList)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$TotalPrice}", TotalPrice)	
  
	  Dim DiscountHTML, TempDiscount
	  TempDiscount = 1
	  If IsDiscount Then
	     If EL_User.DiscountOfHotel = 0 Then
	        DiscountHTML = EL_Common.Lang("Hotel.Discount.d0", "您不可以享受折扣")
	     Else
	        DiscountHTML = EL_Common.Lang("Hotel.Discount.d1", "您可享受{$Discount}折优惠，折后价")
		    TempDiscount = EL_User.DiscountOfHotel / 10
		    DiscountHTML = EL_Common.RegExpStaticLabel(DiscountHTML, "{$Discount}", EL_User.DiscountOfHotel)
		    DiscountHTML = EL_Common.RegExpStaticLabel(DiscountHTML, "{$PriceOfDiscount}", TotalPrice &" x "& EL_Common.FormatDecimal(TempDiscount) &" = "& EL_Common.Lang("BaseConfig.PriceIcon", "&#xFFE5;") & EL_Common.ELRound(TempDiscount * TotalPrice))
	     End If
		 HTML = EL_Common.RegExpStaticLabel(HTML, "{$Points}", EL_Common.ELClng(TotalPrice * TempDiscount / ConsumeProportion))
	  Else
	     DiscountHTML = EL_Common.Lang("Hotel.NoDiscount", "此酒店房型不允许打折")
		 HTML = EL_Common.RegExpStaticLabel(HTML, "{$Points}", EL_Common.ELClng(TotalPrice / ConsumeProportion))
	  End If
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowDiscount}", DiscountHTML)	  
	  Response.Write HTML
   End Sub 
   
   Public Sub ShowHotel()
      EL_Flag = False
      Dim HotelCmd, rsHotel, i
	  Dim HotelID, HotelName, Address, AroundHotel, AroundSight, SymbolObject, Content, Remark
	  Dim DefaultPictrue, Uploadfiles, SkinID, TemplateID, Hotel_LevelName, Hotel_LevelPictrue
	  Dim StrPath, Province, City, Area
	  
	  HotelID = EL_Common.ELRequest("HotelID", 2)
	  	  
	  Call EL_Common.InitCommand(HotelCmd, "EL_SP_GetHotelInfo")
	  With HotelCmd
	     .Parameters.Append .CreateParameter("RETURN", 2, 4)
		 .Parameters.Append .CreateParameter("@HotelID", 3, 1, 4, HotelID)
		 .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
		 Set rsHotel = .Execute()		 
	  End With
	  rsHotel.Close()
	  If HotelCmd(0) <> 1 Then
	     EL_Common.ShowErrorMsg(EL_Common.RegExpStaticLabel(EL_Common.Lang("BaseConfig.InfoError", "指定{$ItemName}不存在"), "{$ItemName}", EL_Channel.ItemName))
		 Set rsHotel = Nothing
		 Set HotelCmd = Nothing
		 Exit Sub
	  End If
	  rsHotel.Open()
	  Province = rsHotel("Province")
	  City = rsHotel("City")
	  Area = rsHotel("Area")
	  HotelName = rsHotel("HotelName")
	  Address = rsHotel("Address")
	  AroundHotel = rsHotel("AroundHotel")
	  AroundSight = rsHotel("AroundSight")
	  SymbolObject = rsHotel("SymbolObject")
	  Content = rsHotel("Content")
	  Remark = rsHotel("Remark")
	  DefaultPictrue = rsHotel("DefaultPictrue")
	  Uploadfiles = rsHotel("Uploadfiles")
	  SkinID = rsHotel("SkinID")
	  TemplateID = rsHotel("TemplateID")
	  Hotel_LevelName = rsHotel("LevelName")
	  Hotel_LevelPictrue = rsHotel("LevelPictrue")
	  
	  
	  HTML = EL_Common.Template(ChannelID, 3, TemplateID)
	  
	  HTML = EL_Common.ReplaceCommonLabels(HTML)  
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$PageTitle}", EL_Common.Join2String(HotelName, SiteTitle, EL_Common.TitleDivide))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DefaultSkin}", EL_Common.Skin(ChannelID, 0, SkinID))
	  
	  StrPath = EL_Common.Lang("BaseConfig.Path", "&nbsp;&gt;&gt;&nbsp;")
	  EL_Common.ShowPath = EL_Common.ShowPath & StrPath &"<a href='"& InstallDir & EL_Channel.ChannelDir &"/Index.asp'>"& EL_Channel.ChannelName &"</a>" 
	  EL_Common.ShowPath = EL_Common.ShowPath & StrPath & EL_Common.RegExpStaticLabel(EL_Common.Lang("BaseConfig.Content", "{$ItemName}内容"), "{$ItemName}", EL_Channel.ItemName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowPath}", EL_Common.ShowPath)
	  
	  HTML = ChannelCommonLabels(HTML)
	  
	  '自定义字段标签
	  Dim FieldCmd, rsField, FieldCount
	  Call EL_Common.InitCommonCmd(FieldCmd, rsField, "EL_Field", "FieldName", "ChannelID="& ChannelID)
	  rsField.Close()
	  FieldCount = FieldCmd(0)
	  If FieldCount = 0 Then
	     Set rsField = Nothing
		 Set FieldCmd = Nothing
	  Else
	     rsField.Open()
		 For i = 1 To FieldCount
		    HTML = EL_Common.RegExpStaticLabel(HTML, "{$"& rsField(0) &"}", rsHotel(rsField(0).value))
			If i<FieldCount Then rsField.MoveNext
		 Next
		 rsField.Close()
		 Set rsField = Nothing
		 Set FieldCmd = Nothing
	  End If
	  
	  rsHotel.Close()
	  Set rsHotel = Nothing
	  Set HotelCmd = Nothing
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$HotelID}", HotelID)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Province}", Province)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$City}", City)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Area}", Area)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$HotelName}", HotelName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Hotel_LevelPictrue}", "<img src='"& Hotel_LevelPictrue &"' title='"& Hotel_LevelName &"'>")
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Hotel_LevelName}", Hotel_LevelName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Address}", Address)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$AroundHotel}", AroundInfoURL(AroundHotel))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$AroundSight}", AroundInfoURL(AroundSight))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Content}", EL_Common.ReplaceKeyLink(Content, ReplaceKeyType))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Remark}", Remark)  

	  HTML = Label_ArrHotelRoom(HTML, HotelID)
	  
	  Dim HotelAction
	  HotelAction = EL_Common.Lang("Hotel.HotelAction", "")
	  If HotelAction<>"" Then
	     HotelAction = EL_Common.ReplaceText(HotelAction, "\{\$SendCommentURL\}", InstallDir & EL_Channel.ChannelDir &"/Comment.asp?InfoID="& HotelID &"#Add")
		 HotelAction = EL_Common.ReplaceText(HotelAction, "\{\$ShowCommentURL\}", InstallDir & EL_Channel.ChannelDir &"/Comment.asp?InfoID="& HotelID)
		 HotelAction = EL_Common.ReplaceText(HotelAction, "\{\$AddFavoriteURL\}", InstallDir & "User/User_Favorite.asp?ChannelID="& ChannelID &"&InfoID="& HotelID &"&Action=Add")
		 HotelAction = EL_Common.ReplaceText(HotelAction, "\{\$SendToFriendURL\}", InstallDir & EL_Channel.ChannelDir &"/SendToFriend.asp?InfoID="& HotelID )
		 HotelAction = EL_Common.ReplaceText(HotelAction, "\{\$PintURL\}", InstallDir & EL_Channel.ChannelDir &"/Print.asp?InfoID="& HotelID)
	  End If
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$HotelAction}", HotelAction)
	  HTML = Label_ShowComment(HTML, HotelID)
	  
	  HTML = Label_GetHotelList(HTML)
	  HTML = Label_GetHotelPhoto(HTML)
	  
	  Call EL_Common.UpdateHits(ChannelID, HotelID)
	  	  
	  Response.Write HTML
   End Sub
   
   Public Sub ShowCommend()
      Dim StrCommend
	  StrCommend = EL_Common.Lang("BaseConfig.Commend", "推荐{$ItemName}")
	  StrCommend = EL_Common.RegExpStaticLabel(StrCommend, "{$ItemName}", EL_Channel.ItemName)
      HTML = EL_Common.Template(ChannelID, 4, 0)
	  HTML = EL_Common.ReplaceCommonLabels(HTML)	
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$PageTitle}", EL_Common.Join2String(EL_Common.Join2String(StrCommend, EL_Channel.ChannelName, EL_Common.TitleDivide), SiteTitle, EL_Common.TitleDivide))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DefaultSkin}", EL_Common.Skin(ChannelID, 0, 0))
	  
	  EL_Common.ShowPath = EL_Common.ShowPath & EL_Common.Lang("BaseConfig.Path", "&nbsp;&gt;&gt;&nbsp;") &"<a href='"& InstallDir & EL_Channel.ChannelDir &"/'>"& EL_Channel.ChannelName &"</a>"& EL_Common.Lang("BaseConfig.Path", "&nbsp;&gt;&gt;&nbsp;") & StrCommend
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowPath}", EL_Common.ShowPath)
	  
	  HTML = ChannelCommonLabels(HTML)
	  
	  HTML = Label_GetHotelList(HTML)
	  HTML = Label_GetHotelPhoto(HTML)
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowCommendList}", HotelList(ChannelID, 0, 0, 8, 80, True, 3, 1, True, True, 4, 0, 1, 1, 5, True, True, "", "", ""))
	  	  
	  Response.Write HTML
   End Sub
   
   Public Sub Print()
      EL_Flag = False
      Dim HotelCmd, rsHotel, i
	  Dim HotelID, HotelName, Address, AroundHotel, AroundSight, SymbolObject, Content, Remark
	  Dim DefaultPictrue, Uploadfiles, SkinID, Hotel_LevelName, Hotel_LevelPictrue
	  Dim StrPath, Province, City, Area
	  
	  HotelID = EL_Common.ELRequest("InfoID", 2)	 
	  
	  Call EL_Common.InitCommand(HotelCmd, "EL_SP_GetHotelInfo")
	  With HotelCmd
	     .Parameters.Append .CreateParameter("RETURN", 2, 4)
		 .Parameters.Append .CreateParameter("@HotelID", 3, 1, 4, HotelID)
		 .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
		 Set rsHotel = .Execute()
	  End With
	  rsHotel.Close()
	  If HotelCmd(0) <> 1 Then
	     EL_Common.ShowErrorMsg(EL_Common.RegExpStaticLabel(EL_Common.Lang("BaseConfig.InfoError", "指定{$ItemName}不存在"), "{$ItemName}", EL_Channel.ItemName))
		 Set rsHotel = Nothing
		 Set HotelCmd = Nothing
		 Exit Sub
	  End If
	  rsHotel.Open()
	  Province = rsHotel("Province")
	  City = rsHotel("City")
	  Area = rsHotel("Area")
	  HotelName = rsHotel("HotelName")
	  Address = rsHotel("Address")
	  AroundHotel = rsHotel("AroundHotel")
	  AroundSight = rsHotel("AroundSight")
	  SymbolObject = rsHotel("SymbolObject")
	  Content = rsHotel("Content")
	  Remark = rsHotel("Remark")
	  DefaultPictrue = rsHotel("DefaultPictrue")
	  Uploadfiles = rsHotel("Uploadfiles")
	  SkinID = rsHotel("SkinID")
	  Hotel_LevelName = rsHotel("LevelName")
	  Hotel_LevelPictrue = rsHotel("LevelPictrue")
	  
	  HTML = EL_Common.Template(ChannelID, 7, 0)
	  
	  HTML = EL_Common.ReplaceCommonLabels(HTML)  
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$PageTitle}", EL_Common.Join2String(HotelName, SiteTitle, EL_Common.TitleDivide))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DefaultSkin}", EL_Common.Skin(ChannelID, 0, SkinID))
	  
	  StrPath = EL_Common.Lang("BaseConfig.Path", "&nbsp;&gt;&gt;&nbsp;")
	  EL_Common.ShowPath = EL_Common.ShowPath & StrPath &"<a href='"& InstallDir & EL_Channel.ChannelDir &"/Index.asp'>"& EL_Channel.ChannelName &"</a>"& StrPath & EL_Common.RegExpStaticLabel(EL_Common.Lang("BaseConfig.Content", "{$ItemName}内容"), "{$ItemName}", EL_Channel.ItemName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowPath}", EL_Common.ShowPath)
	  
	  HTML = ChannelCommonLabels(HTML)
	  
	  '自定义字段标签
	  Dim FieldCmd, rsField, FieldCount
	  Call EL_Common.InitCommonCmd(FieldCmd, rsField, "EL_Field", "FieldName", "ChannelID="& ChannelID)
	  rsField.Close()
	  FieldCount = FieldCmd(0)
	  If FieldCount = 0 Then
	     Set rsField = Nothing
		 Set FieldCmd = Nothing
	  Else
	     rsField.Open()
		 For i = 1 To FieldCount
		    HTML = EL_Common.RegExpStaticLabel(HTML, "{$"& rsField(0) &"}", rsHotel(rsField(0).value))
			If i<FieldCount Then rsField.MoveNext
		 Next
		 rsField.Close()
		 Set rsField = Nothing
		 Set FieldCmd = Nothing
	  End If
	  
	  rsHotel.Close()
	  Set rsHotel = Nothing	    
	  
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$HotelID}", HotelID)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Province}", Province)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$City}", City)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Area}", Area)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$HotelName}", HotelName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Hotel_LevelPictrue}", "<img src='"& Hotel_LevelPictrue &"' title='"& Hotel_LevelName &"'>")
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Hotel_LevelName}", Hotel_LevelName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Address}", Address)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$AroundHotel}", AroundInfoURL(AroundHotel))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$AroundSight}", AroundInfoURL(AroundSight))
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -