📄 classcar.asp
字号:
ArrClassID = CStr(ArrClassID)
If iChannelID <> ChannelID Then
Call EL_Common.InitCommonCmd(ChannelCmd, rsChannel, "EL_Channel", "ChannelDir,ChannelModule,ShowPageSize,ItemName,ItemUnit,Disabled", "ChannelID="& iChannelID &" AND ChannelType=0")
rsChannel.Close()
If ChannelCmd(0) <> 1 Then
Set rsChannel = Nothing
Set ChannelCmd = Nothing
CarList = 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
Else
ChannelDir = EL_Channel.ChannelDir
ChannelModule = EL_Channel.ChannelModule
PageSizes = EL_Channel.ShowPageSize
ItemName = EL_Channel.ItemName
ItemUnit = EL_Channel.ItemUnit
Disabled = EL_Channel.Disabled
End If
If ChannelModule <> 8 Then
CarList = EL_Common.Lang("BaseConfig.ChannelModuleError", "·频道模块错误")
Exit Function
End If
If Disabled Then
CarList = EL_Common.Lang("BaseConfig.Disabled", "·该频道已被禁用")
Exit Function
End If
CarNum = EL_Common.ELClng(CarNum)
TitleLen = EL_Common.ELClng(TitleLen)
ShowBookButton = EL_Common.ELClng(ShowBookButton)
ShowClassName = Eval(ShowClassName)
IsCommend = Eval(IsCommend)
ShowPriceType = EL_Common.ELClng(ShowPriceType)
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_Car,EL_Class"
SQLFields = "EL_Car.CarID,EL_Car.CarName"
SQLFields = SQLFields &",EL_Car.PriceHour1"
SQLFields = SQLFields &",EL_Car.PriceDay1"
SQLFields = SQLFields &",EL_Car.PriceMonth1"
If ShowClassName Then SQLFields = SQLFields &",EL_Class.ClassID,EL_Class.ClassName"
SQLOrder = "EL_Car.OnTop DESC"
Select Case OrderType
Case 1: SQLOrder = SQLOrder &",EL_Car.CarID ASC"
Case 2: SQLOrder = SQLOrder &",EL_Car.CarID DESC"
Case 3: SQLOrder = SQLOrder &",EL_Car.UpdateTime ASC"
Case 4: SQLOrder = SQLOrder &",EL_Car.UpdateTime DESC"
Case 5: SQLOrder = SQLOrder &",EL_Car.Hits ASC"
Case 6: SQLOrder = SQLOrder &",EL_Car.Hits DESC"
Case Else: SQLOrder = SQLOrder &",EL_Car.CarID DESC"
End Select
SQLCondition = " EL_Car.ChannelID="& ChannelID &" And EL_Car.ClassID=EL_Class.ClassID And EL_Car.Passed="& EL_True &" And EL_Car.Deleted="& EL_False &" "
If ArrClassID = "" Or ArrClassID = "0" Or Replace(ArrClassID, "|", "") = "" Then
'SQLCondition = SQLCondition &""
Else
If ShowClassType = 1 Then
ArrClassID = ArrClassID
Else
ArrClassID = EL_Common.GetAllClassID(ArrClassID)
End If
SQLCondition = SQLCondition &"AND EL_Car.ClassID In("& ArrClassID &") "
End If
If IsCommend Then SQLCondition = SQLCondition &" AND EL_Car.Commended="& EL_True &" "
ReturnString = ""
If EL_Flag = False Then ShowPage = False '防止在特殊标签中设ShowPage=True
If ShowPage Then
Call EL_Common.InitCommand(CarCmd, "EL_SP_SplitPage")
With CarCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@Tables", 200, 1, 50, SQLTables)
.Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 50, "EL_Car.CarID")
.Parameters.Append .CreateParameter("@Sort", 200, 1, 200, SQLOrder)
.Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
.Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
.Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, SQLFields)
.Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, SQLCondition)
.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)
Else
If CarNum < 1 Then CarNum = EL_Common.Lang("Car.TopNum", 5)
Call EL_Common.InitCommonCmd(CarCmd, rsCar, SQLTables, " TOP "& CarNum &" "& SQLFields, SQLCondition &" ORDER BY "& SQLOrder)
rsCar.Close()
RowCount = CarCmd(0)
End If
If RowCount = 0 Then
Set rsCar = Nothing
Set CarCmd = Nothing
CarList = EL_Common.RegExpStaticLabel(EL_Common.Lang("BaseConfig.NoList", "·没有任何{$ItemName}"), "{$ItemName}", ItemName)
Exit Function
Else
Dim Title_Name, Title_PriceHour, Title_PriceDay, Title_PriceMonth, ArrClass(2), PriceIcon
If ShowHint = True Then
Title_Name = EL_Common.RegExpStaticLabel(EL_Common.Lang("Car.Name", "{$ItemName}标题"), "{$ItemName}", ItemName)
Title_PriceHour = EL_Common.Lang("Car.HireTypeName.Type0", "时租")
Title_PriceDay = EL_Common.Lang("Car.HireTypeName.Type1", "日租")
Title_PriceMonth = EL_Common.Lang("Car.HireTypeName.Type2", "月租")
End If
PriceIcon = EL_Common.Lang("BaseConfig.PriceIcon", "￥")
rsCar.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
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 ShowClassName Then ReturnString = ReturnString &"[<a href='"& InstallDir & ChannelDir &"/ShowClass.asp?ClassID="& rsCar("ClassID") &"' class='"& ClassA &"'>"& EL_Common.ServerHTMLEncode(rsCar("ClassName")) &"</a>]"
ReturnString = ReturnString &"<a href='"& InstallDir & ChannelDir &"/ShowCar.asp?CarID="& rsCar("CarID") &"' class='"& ClassA &"' "
If ShowHint = True Then
ReturnString = ReturnString &"title='"& Title_Name &"："& EL_Common.HTMLEncode(rsCar("CarName")) & VBCRLF
ReturnString = ReturnString & Title_PriceHour &"："& rsCar("PriceHour1") & VBCRLF
ReturnString = ReturnString & Title_PriceDay &"："& rsCar("PriceDay1") & VBCRLF
ReturnString = ReturnString & Title_PriceMonth &"："& rsCar("PriceMonth1")
ReturnString = ReturnString &"' "
End If
ReturnString = ReturnString & EL_Common.ArrOpenType(OpenType) &">"& EL_Common.HTMLEncode(EL_Common.GetTopic(rsCar("CarName"), TitleLen))
ReturnString = ReturnString &"</a></span>"
Select Case ShowPriceType
Case 1: ReturnString = ReturnString &"<span class='listmp'>"& PriceIcon & rsCar("PriceHour1") &"</span>"
Case 2: ReturnString = ReturnString &"<span class='listbp'>"& PriceIcon & rsCar("PriceDay1") &"</span>"
Case 3: ReturnString = ReturnString &"<span class='listmp'>"& PriceIcon & rsCar("PriceMonth1") &"</span>"
End Select
If ShowBookButton > 0 Then ReturnString = ReturnString &"<span class='listbt'><a href='"& InstallDir & ChannelDir &"/ShowCar.asp?CarID="& rsCar("CarID") &"' 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 ShowClassName Then ReturnString = ReturnString &"[<a href='"& InstallDir & ChannelDir &"/ShowClass.asp?ClassID="& rsCar("ClassID") &"' class='"& ClassA &"'>"& EL_Common.ServerHTMLEncode(rsCar("ClassName")) &"</a>]"
ReturnString = ReturnString &"<a href='"& InstallDir & ChannelDir &"/ShowCar.asp?CarID="& rsCar("CarID") &"' class='"& ClassA &"' "
If ShowHint = True Then
ReturnString = ReturnString &"title='"& Title_Name &"："& EL_Common.HTMLEncode(rsCar("CarName")) & VBCRLF
ReturnString = ReturnString & Title_PriceHour &"："& rsCar("PriceHour1") & VBCRLF
ReturnString = ReturnString & Title_PriceDay &"："& rsCar("PriceDay1") & VBCRLF
ReturnString = ReturnString & Title_PriceMonth &"："& rsCar("PriceMonth1")
ReturnString = ReturnString &"' "
End If
ReturnString = ReturnString & EL_Common.ArrOpenType(OpenType) &">"& EL_Common.HTMLEncode(EL_Common.GetTopic(rsCar("CarName"), TitleLen))
ReturnString = ReturnString &"</a></span>"
Select Case ShowPriceType
Case 1: ReturnString = ReturnString &"<span class='listmp'>"& PriceIcon & rsCar("PriceHour1") &"</span>"
Case 2: ReturnString = ReturnString &"<span class='listbp'>"& PriceIcon & rsCar("PriceDay1") &"</span>"
Case 3: ReturnString = ReturnString &"<span class='listmp'>"& PriceIcon & rsCar("PriceMonth1") &"</span>"
End Select
If ShowBookButton > 0 Then ReturnString = ReturnString &"<span class='listbt'><a href='"& InstallDir & ChannelDir &"/ShowCar.asp?CarID="& rsCar("CarID") &"' 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 ShowClassName Then ReturnString = ReturnString &"[<a href='"& InstallDir & ChannelDir &"/ShowClass.asp?ClassID="& rsCar("ClassID") &"' class='"& ClassA &"'>"& EL_Common.ServerHTMLEncode(rsCar("ClassName")) &"</a>]"
ReturnString = ReturnString &"<a href='"& InstallDir & ChannelDir &"/ShowCar.asp?CarID="& rsCar("CarID") &"' class='"& ClassA &"' "
If ShowHint = True Then
ReturnString = ReturnString &"title='"& Title_Name &"："& EL_Common.HTMLEncode(rsCar("CarName")) & VBCRLF
ReturnString = ReturnString & Title_PriceHour &"："& rsCar("PriceHour1") & VBCRLF
ReturnString = ReturnString & Title_PriceDay &"："& rsCar("PriceDay1") & VBCRLF
ReturnString = ReturnString & Title_PriceMonth &"："& rsCar("PriceMonth1")
ReturnString = ReturnString &"' "
End If
ReturnString = ReturnString & EL_Common.ArrOpenType(OpenType) &">"& EL_Common.HTMLEncode(EL_Common.GetTopic(rsCar("CarName"), TitleLen))
ReturnString = ReturnString &"</a></span></td>"
Select Case ShowPriceType
Case 1: ReturnString = ReturnString &"<td class='"& ArrClass(2-((i+2) Mod 2)) &"'><span class='listmp'>"& PriceIcon & rsCar("PriceHour1") &"</span></td>"
Case 2: ReturnString = ReturnString &"<td class='"& ArrClass(2-((i+2) Mod 2)) &"'><span class='listbp'>"& PriceIcon & rsCar("PriceDay1") &"</span></td>"
Case 3: ReturnString = ReturnString &"<td class='"& ArrClass(2-((i+2) Mod 2)) &"'><span class='listmp'>"& PriceIcon & rsCar("PriceMonth1") &"</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 &"/ShowCar.asp?CarID="& rsCar("CarID") &"' 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 rsCar.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
rsCar.Close()
End If
Set rsCar = Nothing
Set CarCmd = Nothing
If ShowPage Then
Dim PageHTML, PageString
PageHTML = EL_Common.Lang("BaseConfig.ShowPage", "")
PageHTML = EL_Common.ReplaceText(PageHTML, "\{\$PageList\}", EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, EL_Channel.ItemName, EL_Channel.ItemUnit))
ReturnString = ReturnString & PageHTML
End If
CarList = ReturnString
End Function
Public Function Label_GetCarPhoto(ByVal HTML)
Dim Match, Matches, ReturnString, Parameters, Temp
CommonRegExp.Pattern = "<!--\{\$GetCarPhoto\(([ 0-9]+|[ ]*ChannelID[ ]*),([ 0-9\|]+|[ ]*ClassID[ ]*),([ 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, "GetCarPhoto")
Temp = CarPhoto(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))
ReturnString = Replace(ReturnString, Match.Value, Temp)
Next
CommonRegExp.Pattern = "\{\$GetCarPhoto\(([ 0-9]+|[ ]*ChannelID[ ]*),([ 0-9\|]+|[ ]*ClassID[ ]*),([ 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, "GetCarPhoto")
Temp = CarPhoto(Parameters(0), Parameters(1), Parameters(2), Parameters(3), Parameters(4), Parameters(5), Parameters(6), Parameters(7), Parameters(8), Parameters(9), Parameters(10), Parameters(11), P⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -