📄 classindex.asp
字号:
End If
If i<RowCount Then rsArticle.MoveNext
Next
ReturnString = ReturnString &"</tr></table>"
End If
rsArticle.Close()
Set rsArticle = Nothing
Set ArticleCmd = Nothing
ArticlePhoto = ReturnString
End Function
Private Function Label_GetHotelList(ByVal HTML)
Dim Match, Matches, ReturnString, Parameters, Temp
CommonRegExp.Pattern = "<!--\{\$GetHotelList\(([ 0-9]+),([\u4e00-\u9fa5\|\w ]*),([ 0-9\|]+),([ 0-9]+),([ 0-9]+),[ ]*(True|False)[ ]*,([ 0-9]+),([ 0-9]+),[ ]*(True|False)[ ]*,[ ]*(True|False)[ ]*,([ 0-9]+),([ 0-9]+),([ 0-9]+),([ 0-9]+),([ 0-9]+),[ ]*(True|False)[ ]*,[ ]*(True|False)[ ]*,[ \w\""]*,[ \w\""]*,[ \w\""]*\)\}-->"
Set Matches = CommonRegExp.Execute(HTML)
ReturnString = HTML
Temp = ""
For Each Match in Matches
Parameters = EL_Common.GetLabelParameters(Match.Value, "GetHotelList")
Temp = HotelList(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), Parameters(16), Parameters(17), Parameters(18), Parameters(19))
ReturnString = Replace(ReturnString, Match.Value, Temp)
Next
CommonRegExp.Pattern = "\{\$GetHotelList\(([ 0-9]+),([\u4e00-\u9fa5\|\w ]*),([ 0-9\|]+),([ 0-9]+),([ 0-9]+),[ ]*(True|False)[ ]*,([ 0-9]+),([ 0-9]+),[ ]*(True|False)[ ]*,[ ]*(True|False)[ ]*,([ 0-9]+),([ 0-9]+),([ 0-9]+),([ 0-9]+),([ 0-9]+),[ ]*(True|False)[ ]*,[ ]*(True|False)[ ]*,[ \w\""]*,[ \w\""]*,[ \w\""]*\)\}"
Set Matches = CommonRegExp.Execute(ReturnString)
For Each Match in Matches
Parameters = EL_Common.GetLabelParameters(Match.Value, "GetHotelList")
Temp = HotelList(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), Parameters(16), Parameters(17), Parameters(18), Parameters(19))
ReturnString = Replace(ReturnString, Match.Value, Temp)
Next
Set Matches = Nothing
Label_GetHotelList = ReturnString
End Function
Private Function HotelList(ByVal ChannelID, ByVal ArrAreaName, ByVal ArrLevelID, ByVal HotelNum, ByVal TitleLen, ByVal ShowLevel, ByVal ShowPriceType, ByVal ShowBookButton, ByVal ShowCityName, ByVal IsCommend, ByVal OrderType, ByVal OpenType, ByVal ColNum, ByVal ListType, ByVal ShowIcon, ByVal ShowHint, ByVal ShowPage, ByVal ClassA, ByVal Class1, ByVal Class2)
Dim HotelCmd, rsHotel, i, ReturnString, ListTable
Dim PageSizes, RowCount, TotalCount, PageCounts
Dim SQLTables, SQLFields, SQLCondition, SQLOrder, SQL
Dim ChannelCmd, rsChannel, ChannelDir, ChannelModule, ItemName, ItemUnit, Disabled
Dim CheckInHotel, CheckOutHotel, ArrTemp
CheckInHotel = EL_Common.GetCookie(EL_Sn, "Hotel_CheckInDate")
CheckOutHotel = EL_Common.GetCookie(EL_Sn, "Hotel_CheckOutDate")
ChannelID = EL_Common.ELClng(ChannelID)
Call EL_Common.InitCommonCmd(ChannelCmd, rsChannel, "EL_Channel", "ChannelDir,ChannelModule,ShowPageSize,ItemName,ItemUnit,Disabled", "ChannelID="& ChannelID &" AND ChannelType=0")
rsChannel.Close()
If ChannelCmd(0) <> 1 Then
Set rsChannel = Nothing
Set ChannelCmd = Nothing
HotelList = EL_Common.Lang("BaseConfig.ChannelError", "·频道参数错误")
Exit Function
Else
rsChannel.Open()
ChannelDir = rsChannel(0)
ChannelModule = rsChannel(1)
PageSizes = rsChannel(2)
ItemName = rsChannel(3)
ItemUnit = rsChannel(4)
Disabled = rsChannel(5)
rsChannel.Close()
End If
Set rsChannel = Nothing
Set ChannelCmd = Nothing
If ChannelModule <> 2 Then
HotelList = EL_Common.Lang("BaseConfig.ChannelModuleError", "·频道模块错误")
Exit Function
End If
If Disabled Then
HotelList = EL_Common.Lang("BaseConfig.Disabled", "·该频道已被禁用")
Exit Function
End If
ArrAreaName = Trim(EL_Common.ReplaceBadChar(ArrAreaName))
HotelNum = EL_Common.ELClng(HotelNum)
TitleLen = EL_Common.ELClng(TitleLen)
ShowLevel = Eval(ShowLevel)
ShowPriceType = EL_Common.ELClng(ShowPriceType)
ShowBookButton = EL_Common.ELClng(ShowBookButton)
ShowCityName = Eval(ShowCityName)
IsCommend = Eval(IsCommend)
OrderType = EL_Common.ELClng(OrderType)
OpenType = EL_Common.ELClng(OpenType)
ColNum = EL_Common.ELClng(ColNum)
ListType = EL_Common.ELClng(ListType)
ShowIcon = EL_Common.ELClng(ShowIcon)
ShowHint = Eval(ShowHint)
ShowPage = Eval(ShowPage)
ClassA = Replace(ClassA, """", "")
Class1 = Replace(Class1, """", "")
Class2 = Replace(Class2, """", "")
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.MarketPrice,EL_HotelLevel.LevelName"
If ShowLevel Then SQLFields = SQLFields &",EL_HotelLevel.LevelPictrue"
If ShowCityName Then SQLFields = SQLFields &",EL_Hotel.City"
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.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 &" "
ShowPage = False
If ShowPage = True Then
'=====================================
' 网站首页调用不设置分页
'=====================================
Else
If HotelNum < 1 Then HotelNum = EL_Common.Lang("Hotel.TopNum", 10)
Call EL_Common.InitCommonCmd(HotelCmd, rsHotel, SQLTables, " TOP "& HotelNum &" "& SQLFields, SQLCondition &" ORDER BY "& SQLOrder)
rsHotel.Close()
RowCount = HotelCmd(0)
If RowCount = 0 Then
Set rsHotel = Nothing
Set HotelCmd = Nothing
HotelList = EL_Common.RegExpStaticLabel(EL_Common.Lang("BaseConfig.NoList", "·没有任何{$ItemName}"), "{$ItemName}", ItemName)
Exit Function
End If
Dim Title_Name, Title_Level, Title_MarketPrice, Title_BookPrice, PriceIcon
Dim ArrClass(2), vMarketPrice, vMinBookPrice
If ShowHint = True Then
Title_Name = EL_Common.RegExpStaticLabel(EL_Common.Lang("Hotel.Name", "{$ItemName}名称"), "{$ItemName}", ItemName)
Title_Level = EL_Common.Lang("Hotel.Level", "星 级")
Title_MarketPrice = EL_Common.Lang("BaseConfig.MarketPrice", "门市价")
Title_BookPrice = EL_Common.Lang("BaseConfig.BookPrice", "预订价")
End If
PriceIcon = EL_Common.Lang("BaseConfig.PriceIcon", "￥")
rsHotel.Open()
Select Case ListType
Case 2: ReturnString = "<div class='list'>"
Case 3: ReturnString = "<ul class='list'>"
Case 4: ReturnString = "<ol class='list'>"
Case Else: ReturnString = "<table width='100%' border='0' cellspacing='0' cellpadding='0' class='list'><tr>"
End Select
If ClassA = "" Then ClassA = "lista"
If Class1 = "" Then Class1 = "list1"
If Class2 = "" Then Class2 = "list2"
ArrClass(1) = Class1
ArrClass(2) = Class2
For i = 1 To RowCount
vMarketPrice = rsHotel("MarketPrice")
vMinBookPrice = GetHotelPrice(ChannelID, rsHotel("HotelID"), CheckInHotel, CheckOutHotel)
Select Case ListType
Case 2:
ReturnString = ReturnString &"<div 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>"
Select Case ShowPriceType
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 &"</div>"
Case 3, 4:
ReturnString = ReturnString &"<li 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>"
Select Case ShowPriceType
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -