classsight.asp

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

	  HTML = Label_ShowComment(HTML, SightID)
	  
	  HTML = Label_GetSightList(HTML)
	  HTML = Label_GetSightPhoto(HTML)
	  
	  
	  Call EL_Common.UpdateHits(ChannelID, SightID)
	  
	  Response.Write HTML
   End Sub
   
   Public Sub Print()
      Dim SightCmd, rsSight, i
	  Dim SightID, SightName, MarketPrice, BookPrice, OpenTime, Address, AroundHotel, AroundSight
	  Dim TravelHint, Content, SkinID, TemplateID
	  Dim Province, City, Area
	  
	  SightID = EL_Common.ELRequest("InfoID", 2)
	  
	  Call EL_Common.InitCommand(SightCmd, "EL_SP_GetSightInfo")
	  With SightCmd
	     .Parameters.Append .CreateParameter("RETURN", 2, 4)
		 .Parameters.Append .CreateParameter("@SightID", 3, 1, 4, SightID)
		 .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
		 Set rsSight = .Execute()
	  End With
	  rsSight.Close()
	  If SightCmd(0) <> 1 Then
	      EL_Common.ShowErrorMsg(EL_Common.RegExpStaticLabel(EL_Common.Lang("BaseConfig.InfoError", "指定{$ItemName}不存在"), "{$ItemName}", EL_Channel.ItemName))
		  Set rsSight = Nothing
		  Set SightCmd = Nothing
		  Exit Sub
	  End If
	  rsSight.Open()
	  Province = rsSight("Province")
	  City = rsSight("City")
	  Area = rsSight("Area")
	  SightName = rsSight("SightName")
	  MarketPrice = rsSight("MarketPrice")
	  BookPrice = rsSight("BookPrice")
	  OpenTime = rsSight("OpenTime")
	  Address = rsSight("Address")
	  AroundHotel = rsSight("AroundHotel")
	  AroundSight = rsSight("AroundSight")
	  TravelHint = rsSight("TravelHint")
	  Content = rsSight("Content")
	  
	  HTML = EL_Common.Template(ChannelID, 7, 0)	
	  
	  HTML = EL_Common.ReplaceCommonLabels(HTML)  
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$PageTitle}", EL_Common.Join2String(SightName, SiteTitle, EL_Common.TitleDivide))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DefaultSkin}", EL_Common.Skin(ChannelID, 0, 0))
	  
	  Dim StrPath
	  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) &"}", rsSight(rsField(0).value))
			If i<FieldCount Then rsField.MoveNext
		 Next
		 rsField.Close()
		 Set rsField = Nothing
		 Set FieldCmd = Nothing
	  End If
	  
	  rsSight.Close()
	  Set rsSight = Nothing
	  Set SightCmd = Nothing
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$SightID}", SightID)
	  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, "{$SightName}", SightName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$MarketPrice}", MarketPrice)	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Price}", BookPrice)	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$OpenTime}", OpenTime)
	  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, "{$TravelHint}", TravelHint)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Content}", Content)
	    
	  Response.Write HTML
   End Sub   
   
   Private Function AroundInfoURL(ByVal AroundList)
      If Trim(AroundList) = "" Then Exit Function
	  Dim ArrAround, arr, i
	  ArrAround = Split(AroundList, "$")
	  AroundInfoURL = ""
	  For i = 0 To Ubound(ArrAround)
	     If Trim(ArrAround(i)) <> "" Then
		    arr = Split(ArrAround(i), "|")
			AroundInfoURL = EL_Common.Join2String(AroundInfoURL, "<a href='"& arr(0) &"' class='aroundlist'>"& arr(1) &"</a>", "，")
		 End If
	  Next
   End Function   
   
   Private Function GetBookNumber()
      Dim RndN, DtNow, Prefix_Sight
	  Prefix_Sight = EL_Common.GetFieldValue("Prefix_Sight", "EL_Config", "1=1")
	  Randomize
	  DtNow = Now()
	  RndN = Cint(9999*rnd)+1000
	  GetBookNumber = year(DtNow) & right("0" & month(DtNow),2) & right("0" & day(DtNow),2) & right("0" & hour(DtNow),2) & right("0" & minute(DtNow),2) & right("0" & second(DtNow),2) & RndN
	  If Len(GetBookNumber)>18 Then GetBookNumber = Left(GetBookNumber, 18)
	  GetBookNumber = Prefix_Sight & GetBookNumber
   End Function
   
   Private Function Label_GetSightList(ByVal HTML)
      Dim Match, Matches, ReturnString, Parameters, Temp
	  CommonRegExp.Pattern = "<!--\{\$GetSightList\(([ 0-9]+|[ ]*ChannelID[ ]*),([\u4e00-\u9fa5\|\w ]*),([ 0-9]+),([ 0-9]+),([ 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, "GetSightList")
		 Temp = SightList(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))
		 ReturnString = Replace(ReturnString, Match.Value, Temp)
      Next
	  
	  CommonRegExp.Pattern = "\{\$GetSightList\(([ 0-9]+|[ ]*ChannelID[ ]*),([\u4e00-\u9fa5\|\w ]*),([ 0-9]+),([ 0-9]+),([ 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, "GetSightList")
		 Temp = SightList(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))
		 ReturnString = Replace(ReturnString, Match.Value, Temp)
      Next 
	  
	  Set Matches = Nothing	  
	  Label_GetSightList = ReturnString
   End Function
   
   Private Function SightList(ByVal iChannelID, ByVal ArrAreaName, ByVal SightNum, ByVal TitleLen, 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 SightCmd, rsSight, i, ReturnString, ArrTemp
	  Dim PageSizes, RowCount, TotalRowCount, PageCounts
	  Dim SQLTables, SQLFields, SQLCondition, SQLOrder, SQL
	  Dim ChannelCmd, rsChannel, ChannelDir, ChannelModule, ItemName, ItemUnit, Disabled, UploadDir
	  
	  iChannelID = Eval(iChannelID)
	  
	  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
		    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	     
	  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 <> 5 Then
	     SightList = EL_Common.Lang("BaseConfig.ChannelModuleError", "·频道模块错误")
		 Exit Function
	  End If
	  
	  If Disabled Then
	     SightList = EL_Common.Lang("BaseConfig.Disabled", "·该频道已被禁用")
		 Exit Function
	  End If	  
	  
	  ArrAreaName = Trim(EL_Common.ReplaceBadChar(ArrAreaName))
	  SightNum = EL_Common.ELClng(SightNum)
	  TitleLen = EL_Common.ELClng(TitleLen)
	  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_Sight"
	  SQLFields = "SightID,SightName,MarketPrice,BookPrice"
	  If ShowCityName Then SQLFields = SQLFields &",City"	
	  SQLOrder = "OnTop DESC"	   
	  Select Case OrderType
	    Case 1: SQLOrder = SQLOrder &",SightID ASC"
		Case 2: SQLOrder = SQLOrder &",SightID DESC"
		Case 3: SQLOrder = SQLOrder &",UpdateTime ASC"
		Case 4: SQLOrder = SQLOrder &",UpdateTime DESC"
		Case 5: SQLOrder = SQLOrder &",Hits ASC"
		Case 6: SQLOrder = SQLOrder &",Hits DESC"
		Case Else:  SQLOrder = SQLOrder &",EL_Sight.SightID DESC"
	  End Select	  
	    
	  SQLCondition = " ChannelID="& ChannelID &" And Passed="& EL_True &" And 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 (Province IN("& ArrAreaName &") OR City In("& ArrAreaName &") OR Area IN("& ArrAreaName &")) "
	  End If
	  If IsCommend Then SQLCondition = SQLCondition &" AND Commended="& EL_True &" "
	  ReturnString = ""
	  
	  If EL_Flag = False Then ShowPage = False '防止在特殊标签中设ShowPage=True


	  If ShowPage Then
	     Call EL_Common.InitCommand(SightCmd, "EL_SP_SplitPage")
		 With SightCmd
		    .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
		    .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, SQLTables)
		    .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 50, "SightID")
		    .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)