📄 classindex.asp
字号:
Case 1: ReturnString = ReturnString &"<span class='listmp'>"& PriceIcon & vMarketPrice &"</span>"
Case 2: ReturnString = ReturnString &"<span class='listbp'>"& PriceIcon & vMinBookPrice &"</span>"
Case 3: ReturnString = ReturnString &"<span class='listmp'>"& PriceIcon & vMarketPrice &"</span><span class='listbp'>"& PriceIcon & vMinBookPrice &"</span>"
End Select
If ShowBookButton > 0 Then ReturnString = ReturnString &"<span class='listbt'><a href='"& InstallDir & ChannelDir &"/ShowHotel.asp?HotelID="& rsHotel("HotelID") &"' class='"& ClassA &"'><img src='"& InstallDir & ChannelDir &"/Images/bookbutton"& ShowBookButton &".gif' border='0'></a></span>"
ReturnString = ReturnString &"</li>"
Case Else:
ReturnString = ReturnString &"<td width='"& 100/ColNum &"%' class='"& ArrClass(2-((i+2) Mod 2)) &"'>"
ReturnString = ReturnString &"<span class='listn'>"
If ShowIcon > 0 Then ReturnString = ReturnString &"<img border='0' src='"& InstallDir & ChannelDir &"/Images/icon"& ShowIcon &".gif' /> "
If ShowCityName Then ReturnString = ReturnString &"[<a href='"& InstallDir & ChannelDir &"/ShowArea.asp?City="& EL_Common.ServerURLEncode(rsHotel("City")) &"' class='"& ClassA &"'>"& EL_Common.ServerHTMLEncode(rsHotel("City")) &"</a>]"
ReturnString = ReturnString &"<a href='"& InstallDir & ChannelDir &"/ShowHotel.asp?HotelID="& rsHotel("HotelID") &"' class='"& ClassA &"' "
If ShowHint = True Then
ReturnString = ReturnString &"title='"& Title_Name &"："& EL_Common.HTMLEncode(rsHotel("HotelName")) & VBCRLF & Title_Level &"："& rsHotel("LevelName")
Select Case ShowPriceType
Case 1: ReturnString = ReturnString & VBCRLF & Title_MarketPrice &"："& PriceIcon & vMarketPrice &"' "
Case 2: ReturnString = ReturnString & VBCRLF & Title_BookPrice &"："& PriceIcon & EL_Common.RemoveHTML(vMinBookPrice) &"' "
Case 3: ReturnString = ReturnString & VBCRLF & Title_MarketPrice &"："& PriceIcon & vMarketPrice & VBCRLF & Title_BookPrice &"："& PriceIcon & EL_Common.RemoveHTML(vMinBookPrice) &"' "
Case Else: ReturnString = ReturnString &"' "
End Select
End If
ReturnString = ReturnString & EL_Common.ArrOpenType(OpenType) &">"& EL_Common.HTMLEncode(EL_Common.GetTopic(rsHotel("HotelName"), TitleLen)) &"</a>"
If ShowLevel Then ReturnString = ReturnString &"<img src='"& rsHotel("LevelPictrue") &"' alt='"& rsHotel("LevelName") &"'>"
ReturnString = ReturnString &"</span></td>"
Select Case ShowPriceType
Case 1: ReturnString = ReturnString &"<td class='"& ArrClass(2-((i+2) Mod 2)) &"'><span class='listmp'>"& PriceIcon & vMarketPrice &"</span></td>"
Case 2: ReturnString = ReturnString &"<td class='"& ArrClass(2-((i+2) Mod 2)) &"'><span class='listbp'>"& PriceIcon & vMinBookPrice &"</span></td>"
Case 3: ReturnString = ReturnString &"<td class='"& ArrClass(2-((i+2) Mod 2)) &"'><span class='listmp'>"& PriceIcon & vMarketPrice &"</span></td><td class='"& ArrClass(2-((i+2) Mod 2)) &"'><span class='listbp'>"& PriceIcon & vMinBookPrice &"</span></td>"
End Select
If ShowBookButton > 0 Then ReturnString = ReturnString &"<td class='"& ArrClass(2-((i+2) Mod 2)) &"'><span class='listbt'><a href='"& InstallDir & ChannelDir &"/ShowHotel.asp?HotelID="& rsHotel("HotelID") &"' class='"& ClassA &"'><img src='"& InstallDir & ChannelDir &"/Images/bookbutton"& ShowBookButton &".gif' border='0'></a></span></td>"
End Select
If (i Mod ColNum) = 0 And i<RowCount Then
Select Case ListType
Case 2, 3, 4:
Case Else: ReturnString = ReturnString &"</tr><tr>"
End Select
End If
If i<RowCount Then rsHotel.MoveNext
Next
Select Case ListType
Case 2: ReturnString = ReturnString &"</div>"
Case 3: ReturnString = ReturnString &"</ul>"
Case 4: ReturnString = ReturnString &"</ol>"
Case Else: ReturnString = ReturnString &"</tr></table>"
End Select
rsHotel.Close()
Set rsHotel = Nothing
Set HotelCmd = Nothing
End If
HotelList = ReturnString
End Function
Private Function GetHotelPrice(ByVal ChannelID, ByVal HotelID, ByVal CheckInDate, ByVal CheckOutDate)
Dim PriceCmd
If Not IsDate(CheckInDate) Then CheckInDate = Date()
If DateDiff("d", Date(), CheckInDate)<0 Then CheckInDate = Date()
If Not IsDate(CheckOutDate) Then CheckOutDate = DateAdd("y", 2, CheckInDate)
If DateDiff("d", CheckInDate, CheckOutDate)<1 Then CheckOutDate = DateAdd("y", 2, CheckInDate)
Call EL_Common.InitCommand(PriceCmd, "EL_SP_GetHotelMinPrice")
With PriceCmd
.Parameters.Append .CreateParameter("@HotelID", 3, 1, 4, HotelID)
.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
.Parameters.Append .CreateParameter("@CheckInDate", 135, 1, 8, CheckInDate)
.Parameters.Append .CreateParameter("@CheckOutDate", 135, 1, 8, CheckOutDate)
.Parameters.Append .CreateParameter("@MinPrice", 6, 2, 8)
.Execute()
End With
GetHotelPrice = PriceCmd(4)
Set PriceCmd = Nothing
If GetHotelPrice = "" Or IsNULL(GetHotelPrice) Then GetHotelPrice = EL_Common.Lang("BaseConfig.NullPrice", "<b style='color:#CC0000'>×</b>")
End Function
Private Function Label_GetHotelPhoto(ByVal HTML)
Dim Match, Matches, ReturnString, Parameters, Temp
CommonRegExp.Pattern = "<!--\{\$GetHotelPhoto\(([ 0-9]+),([\u4e00-\u9fa5\|\w ]*),([ 0-9\|]+),([ 0-9]+),[ ]*(True|False)[ ]*,([ 0-9\-]+),([ 0-9\-]+),([ 0-9]+),([ 0-9]+),([ 0-9]+),([ 0-9]+),[ ]*(True|False)[ ]*,([ 0-9]+),([ 0-9]+),([ 0-9]+),([ 0-9]+)\)\}-->"
Set Matches = CommonRegExp.Execute(HTML)
ReturnString = HTML
Temp = ""
For Each Match In Matches
Parameters = EL_Common.GetLabelParameters(Match.Value, "GetHotelPhoto")
Temp = HotelPhoto(Parameters(0), Parameters(1), Parameters(2), Parameters(3), Parameters(4), Parameters(5), Parameters(6), Parameters(7), Parameters(8), Parameters(9), Parameters(10), Parameters(11), Parameters(12), Parameters(13), Parameters(14), Parameters(15))
ReturnString = Replace(ReturnString, Match.Value, Temp)
Next
CommonRegExp.Pattern = "\{\$GetHotelPhoto\(([ 0-9]+),([\u4e00-\u9fa5\|\w ]*),([ 0-9\|]+),([ 0-9]+),[ ]*(True|False)[ ]*,([ 0-9\-]+),([ 0-9\-]+),([ 0-9]+),([ 0-9]+),([ 0-9]+),([ 0-9]+),[ ]*(True|False)[ ]*,([ 0-9]+),([ 0-9]+),([ 0-9]+),([ 0-9]+)\)\}"
Set Matches = CommonRegExp.Execute(ReturnString)
For Each Match In Matches
Parameters = EL_Common.GetLabelParameters(Match.Value, "GetHotelPhoto")
Temp = HotelPhoto(Parameters(0), Parameters(1), Parameters(2), Parameters(3), Parameters(4), Parameters(5), Parameters(6), Parameters(7), Parameters(8), Parameters(9), Parameters(10), Parameters(11), Parameters(12), Parameters(13), Parameters(14), Parameters(15))
ReturnString = Replace(ReturnString, Match.Value, Temp)
Next
Set Matches = Nothing
Label_GetHotelPhoto = ReturnString
End Function
Private Function HotelPhoto(ByVal ChannelID, ByVal ArrAreaName, ByVal arrLevelID, ByVal PhotoNum, ByVal IsCommend, ByVal TitleLen, ByVal ContentLen, ByVal PhotoWidth, ByVal PhotoHeight, ByVal OrderType, ByVal OpenType, ByVal ShowHint, ByVal ShowType, ByVal ColNum, ByVal EffectID, ByVal TimeOuts)
Dim HotelCmd, rsHotel, i, ReturnString, ListTable, RowCount
Dim SQLTables, SQLFields, SQLCondition, SQLOrder, SQL, ArrTemp
Dim ChannelCmd, rsChannel, ChannelDir, ChannelModule, ItemName, ItemUnit, Disabled, UploadDir
ChannelID = EL_Common.ELClng(ChannelID)
Call EL_Common.InitCommonCmd(ChannelCmd, rsChannel, "EL_Channel", "ChannelDir,ChannelModule,ItemName,ItemUnit,Disabled,UploadDir", "ChannelID="& ChannelID &" AND ChannelType=0")
rsChannel.Close()
If ChannelCmd(0) <> 1 Then
Set rsChannel = Nothing
Set ChannelCmd = Nothing
HotelPhoto = EL_Common.Lang("BaseConfig.ChannelError", "·频道参数错误")
Exit Function
Else
rsChannel.Open()
ChannelDir = rsChannel(0)
ChannelModule = rsChannel(1)
ItemName = rsChannel(2)
ItemUnit = rsChannel(3)
Disabled = rsChannel(4)
UploadDir = rsChannel(5)
rsChannel.Close()
End If
Set rsChannel = Nothing
Set ChannelCmd = Nothing
If ChannelModule <> 2 Then
HotelPhoto = EL_Common.Lang("BaseConfig.ChannelModuleError", "·频道模块错误")
Exit Function
End If
If Disabled Then
HotelPhoto = EL_Common.Lang("BaseConfig.Disabled", "·该频道已被禁用")
Exit Function
End If
ArrAreaName = Trim(EL_Common.ReplaceBadChar(ArrAreaName))
PhotoNum = EL_Common.ELClng(PhotoNum)
IsCommend = Eval(IsCommend)
TitleLen = EL_Common.ELClng(TitleLen)
ContentLen = EL_Common.ELClng(ContentLen)
PhotoWidth = EL_Common.ELClng(PhotoWidth)
PhotoHeight = EL_Common.ELClng(PhotoHeight)
ColNum = EL_Common.ELClng(ColNum)
OrderType = EL_Common.ELClng(OrderType)
OpenType = EL_Common.ELClng(OpenType)
ShowHint = Eval(ShowHint)
ShowType = EL_Common.ELClng(ShowType)
EffectID = EL_Common.ELClng(EffectID)
TimeOuts = EL_Common.ELClng(TimeOuts)
If PhotoWidth<=0 Then PhotoWidth = EL_Common.Lang("Hotel.PhotoWidth", 120)
If PhotoHeight<=0 Then PhotoHeight = PhotoHeight = EL_Common.Lang("Hotel.PhotoHeight", 80)
If OpenType > 1 Then OpenType = 1
If ColNum < 1 Then ColNum = 1
SQLTables = "EL_Hotel,EL_HotelLevel"
SQLFields = "EL_Hotel.HotelID,EL_Hotel.HotelName,EL_Hotel.DefaultPictrue,EL_HotelLevel.LevelName"
If ShowType <> 4 And ContentLen >= 0 Then
SQLFields = SQLFields &",EL_Hotel.Content"
End If
SQLOrder = "EL_Hotel.OnTop DESC"
Select Case OrderType
Case 1: SQLOrder = SQLOrder &",EL_Hotel.HotelID ASC"
Case 2: SQLOrder = SQLOrder &",EL_Hotel.HotelID DESC"
Case 3: SQLOrder = SQLOrder &",EL_Hotel.UpdateTime ASC"
Case 4: SQLOrder = SQLOrder &",EL_Hotel.UpdateTime DESC"
Case 5: SQLOrder = SQLOrder &",EL_Hotel.Hits ASC"
Case 6: SQLOrder = SQLOrder &",EL_Hotel.Hits DESC"
Case Else: SQLOrder = SQLOrder &",EL_Hotel.HotelID DESC"
End Select
SQLCondition = " EL_Hotel.ChannelID="& ChannelID &" And EL_Hotel.LevelID=EL_HotelLevel.LevelID AND EL_Hotel.DefaultPictrue<>'' And EL_Hotel.Passed="& EL_True &" And EL_Hotel.Deleted="& EL_False &" "
If ArrAreaName <> "" And ArrAreaName <> "0" Then
ArrTemp = Split(ArrAreaName, "|")
ArrAreaName = ""
For i = 0 To Ubound(ArrTemp)
ArrAreaName = EL_Common.Join2String(ArrAreaName, "'"& ArrTemp(i) &"'", ",")
Next
If ArrAreaName<>"" Then SQLCondition = SQLCondition &"AND (EL_Hotel.Province In("& ArrAreaName &") Or EL_Hotel.City In("& ArrAreaName &") OR EL_Hotel.Area In("& ArrAreaName &")) "
End If
If ArrLevelID = "" Or ArrLevelID = "0" Or Replace(ArrLevelID, "|", "") = "" Then
Else
ArrTemp = Split(ArrLevelID, "|")
ArrLevelID = ""
For i = 0 To Ubound(ArrTemp)
ArrLevelID = EL_Common.Join2String(ArrLevelID, ArrTemp(i), ",")
Next
SQLCondition = SQLCondition &"AND EL_Hotel.LevelID In("& ArrLevelID &") "
End If
If IsCommend Then SQLCondition = SQLCondition &" AND EL_Hotel.Commended="& EL_True &" "
If PhotoNum < 1 Then PhotoNum = EL_Common.Lang("Hotel.TopNum", 5)
Call EL_Common.InitCommonCmd(HotelCmd, rsHotel, SQLTables, " TOP "& PhotoNum &" "& SQLFields, SQLCondition &" ORDER BY "& SQLOrder)
rsHotel.Close()
RowCount = HotelCmd(0)
If RowCount = 0 Then
Set rsHotel = Nothing
Set HotelCmd = Nothing
HotelPhoto = EL_Common.RegExpStaticLabel(EL_Common.Lang("BaseConfig.NoPictrue", "·没有任何{$ItemName}图片"), "{$ItemName}", ItemName)
HotelPhoto = Replace(HotelPhoto, "{$InstallDir}", InstallDir)
HotelPhoto = Replace(HotelPhoto, "{$PhotoWidth}", PhotoWidth)
HotelPhoto = Replace(HotelPhoto, "{$PhotoHeight}", PhotoHeight)
Exit Function
End If
Dim Title_Name, Title_Level, Title_MarketPrice, Title_BookPrice
If ShowHint = True Then
Title_Name = EL_Common.RegExpStaticLabel(EL_Common.Lang("Hotel.Name", "{$ItemName}名称"), "{$ItemName}", ItemName)
Title_Level = EL_Common.Lang("Hotel.Level", "星 级")
End If
rsHotel.Open()
If ShowType = 4 Then
Dim PictrueID
PictrueID = EL_Common.GetRndNumber()
ReturnString = "<script language='javascript'>"& VBCRLF
ReturnString = ReturnString &"var PictrueList = new Array();"& VBCRLF
ReturnString = ReturnString &"var PictrueURL = new Array();"& VBCRLF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -