📄 classshop.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 5 页
字号:
	  Next
	  SelectNumString = SelectNumString &"</select>"
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$SelectNum}", SelectNumString)	
	  Dim ShopAction
	  ShopAction = EL_Common.Lang("Shop.ShopAction", "")
	  If ShopAction<>"" Then
	     ShopAction = EL_Common.ReplaceText(ShopAction, "\{\$SendCommentURL\}", InstallDir & EL_Channel.ChannelDir &"/Comment.asp?InfoID="& ProductID &"#Add")
		 ShopAction = EL_Common.ReplaceText(ShopAction, "\{\$ShowCommentURL\}", InstallDir & EL_Channel.ChannelDir &"/Comment.asp?InfoID="& ProductID)
		 ShopAction = EL_Common.ReplaceText(ShopAction, "\{\$AddFavoriteURL\}", InstallDir & "User/User_Favorite.asp?ChannelID="& ChannelID &"&InfoID="& ProductID &"&Action=Add")
		 ShopAction = EL_Common.ReplaceText(ShopAction, "\{\$SendToFriendURL\}", InstallDir & EL_Channel.ChannelDir &"/SendToFriend.asp?InfoID="& ProductID )
		 ShopAction = EL_Common.ReplaceText(ShopAction, "\{\$PintURL\}", InstallDir & EL_Channel.ChannelDir &"/Print.asp?InfoID="& ProductID)
	  End If
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShopAction}", ShopAction)		  
	  
	  HTML = Label_ShowComment(HTML, ProductID) 
	  HTML = Label_GetShopList(HTML)
	  HTML = Label_GetShopPhoto(HTML)
	  
	  Response.Write HTML	  
   End Sub
   
   Public Sub ShowClass()
      Dim ClassCmd, rsClass, ClassType, ItemCount
	  Dim PageTitle, ClassName, ArrChildID, SkinID, TemplateID, StrPath
	  ClassID = EL_Common.ELRequest("ClassID", 2)	  
	  Call EL_Common.InitCommand(ClassCmd, "EL_SP_GetClassInfo")
	  With ClassCmd
	     .Parameters.Append .CreateParameter("RETURN", 2, 4)
		 .Parameters.Append .CreateParameter("@ClassID", 3, 1, 4, ClassID)
		 .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
		 .Parameters.Append .CreateParameter("@ClassName", 200, 2, 50)
		 .Parameters.Append .CreateParameter("@SkinID", 3, 2, 4)
		 .Parameters.Append .CreateParameter("@TemplateID", 3, 2, 4)
		 .Parameters.Append .CreateParameter("@ClassType", 3, 2, 4)
		 .Parameters.Append .CreateParameter("@ItemCount", 3, 2, 4)
		 .Execute()
	  End With
	  Select Case ClassCmd(0)
	     Case 40: EL_Common.ShowErrorMsg(EL_Common.Lang("BaseConfig.ChannelError", "频道参数错误")) : Set ClassCmd = Nothing : Exit Sub
		 Case 0, 41: EL_Common.ShowErrorMsg(EL_Common.RegExpStaticLabel(EL_Common.Lang("BaseConfig.ClassError", "指定{$ClassItemName}不存在"), "{$ClassItemName}", EL_Channel.ClassItemName)) : Set ClassCmd = Nothing : Exit Sub
	  End Select
	  If ClassCmd(0) <> 1 Then
	     EL_Common.ShowErrorMsg(EL_Common.RegExpStaticLabel(EL_Common.Lang("BaseConfig.ClassError", "指定{$ClassItemName}不存在"), "{$ClassItemName}", EL_Channel.ClassItemName))
		 Set ClassCmd = Nothing
		 Exit Sub
	  End If
	  ClassName = ClassCmd(3)
	  SkinID = ClassCmd(4)
	  TemplateID = ClassCmd(5)
	  ClassType = ClassCmd(6)
	  ItemCount = ClassCmd(7)
	  Set ClassCmd = Nothing
	  
	  Dim ArrTemplate
	  HTML = EL_Common.Template(ChannelID, 2, TemplateID)
	  ArrTemplate = EL_Common.ELSplit(HTML, "{$$$Template$$$}")
	  If ClassType = 1 Then
	     HTML = ArrTemplate(1) '小类模板
	  Else '大类模板
	     If ShowClassType = 1 Then
		    HTML = ArrTemplate(1)
		 Else
		    HTML = ArrTemplate(0) 
		 End If
	  End If	  
	  
	  HTML = EL_Common.ReplaceCommonLabels(HTML)	  
	  
	  PageTitle = EL_Common.Join2String(ClassName, EL_Channel.ChannelName, EL_Common.TitleDivide)
	  PageTitle = EL_Common.Join2String(PageTitle, SiteTitle, EL_Common.TitleDivide)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$PageTitle}", PageTitle)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DefaultSkin}", EL_Common.Skin(ChannelID, ClassID, SkinID))
	  
	  StrPath = EL_Common.Lang("BaseConfig.Path", "&nbsp;&gt;&gt;")
	  EL_Common.ShowPath = EL_Common.ShowPath & StrPath &"<a href='"& InstallDir & EL_Channel.ChannelDir &"/Index.asp'>"& EL_Channel.ChannelName &"</a>"& EL_Common.GetParentPath(ChannelID, EL_Channel.ChannelDir, ClassID)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowPath}", EL_Common.ShowPath)
	  HTML = ChannelCommonLabels(HTML)
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ClassName}", ClassName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ClassID}", ClassID)
	  
	  If ClassType = 0 Then
	     HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowChildClass}", GetChildClass())
		 HTML = Label_CurrentClass(HTML, ClassName, ItemCount)
	  End If	  
	  
	  HTML = Label_ArrClassList(HTML)
	  HTML = Label_GetShopList(HTML)
	  HTML = Label_GetShopPhoto(HTML)
	  
	  Response.Write HTML
   End Sub
   
   Private Function GetChildClass()
      Dim ChildCmd, rsChild, RowCount, i, ReturnString, ClassIcon
	  ClassIcon = EL_Common.Lang("BaseConfig.ClassIncludeIcon", " ·")
	  Call EL_Common.InitCommand(ChildCmd, "EL_SP_ClassList")
	  With ChildCmd
	     .Parameters.Append .CreateParameter("RETURN", 2, 4)
		 .Parameters.Append .CreateParameter("@ParentID", 3, 1, 4, ClassID)
		 .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
		 Set rsChild = .Execute()
	  End With
	  rsChild.Close()
	  RowCount = ChildCmd(0)
	  rsChild.Open()
	  ReturnString = ""
	  For i = 1 To RowCount
	     ReturnString = ReturnString & ClassIcon &"<a href='"& InstallDir & EL_Channel.ChannelDir &"/ShowClass.asp?ClassID="& rsChild(0) &"'>"& rsChild(1) &"</a><br>"
		 If i<RowCount Then rsChild.MoveNext
	  Next
	  rsChild.Close()
	  Set rsChild = Nothing
	  Set ChildCmd = Nothing
	  GetChildClass = ReturnString
   End Function
   
   Public Sub ShowCommend()
      Dim StrCommend
	  ClassID = 0
	  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 = EL_Common.RegExpStaticLabel(HTML, "{$ShowCommendListPic}", ShopList(ChannelID, 0, 14, 20, True, 1, False, False, 4, 0, 7, 5, 120, 80, 4, True, True, "", "", ""))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowCommendList}", ShopList(ChannelID, 0, 14, 20, True, 1, False, False, 4, 0, 1, 1, 120, 80, 4, True, True, "", "", ""))
	  
	  HTML = Label_GetShopList(HTML)
	  HTML = Label_GetShopPhoto(HTML)	  
	  
	  Response.Write HTML
   End Sub
   
   Private Function Label_CurrentClass(ByVal HTML, ByVal ClassName, ByVal ItemCount)
      Dim Match, Matches, ReturnString, Temp
	  Dim TempString, MatchString
	  Dim ArrClassCmd, rsArrClass, SQLCondition, RowCount, i
	  
	  CommonRegExp.Pattern = "\[CurrentClass\][\w\W]*\[\/CurrentClass\]"        
      Set Matches = CommonRegExp.Execute(HTML)
	  ReturnString = HTML
	  EL_Flag = False
	  For Each Match in Matches	
	     If ItemCount > 0 Then
		    Temp = Match.Value
		    Temp = EL_Common.ReplaceText(Temp, "\[CurrentClass\]", "")
		    Temp = EL_Common.ReplaceText(Temp, "\[\/CurrentClass\]", "")   
			Temp = EL_Common.ReplaceText(Temp, "Current_ClassID", ClassID)
		    Temp = EL_Common.RegExpStaticLabel(Temp, "{$Current_ClassName}", ClassName)
		    Temp = EL_Common.RegExpStaticLabel(Temp, "{$Current_ClassURL}", InstallDir & EL_Channel.ChannelDir &"/ShowClass.asp?ShowType=1&ClassID="& ClassID)
			ShowClassType = 1
		    Temp = Label_GetShopList(Temp)
		    Temp = Label_GetShopPhoto(Temp)
			ShowClassType = 0
		 Else
		    Temp = ""
		 End If
		 ReturnString = Replace(ReturnString, Match.Value, Temp)
      Next	  
	  
	  Set Matches = Nothing
	  EL_Flag = True
	  Label_CurrentClass = ReturnString
   End Function
   
   Private Function Label_ArrClassList(ByVal HTML)
      Dim Match, Matches, ReturnString, Cols, Temp
	  Dim TempString, MatchString
	  Dim ArrClassCmd, rsArrClass, SQLCondition, RowCount, i
	  
	  CommonRegExp.Pattern = "\[arrClassList\(([ 0-9]+)\)\][\w\W]*\[\/arrClassList\]"        
      Set Matches = CommonRegExp.Execute(HTML)
	  ReturnString = HTML
	  EL_Flag = False
	  For Each Match in Matches	
		 MatchString = Match.Value
		 TempString = LCase(Left(MatchString, InStr(MatchString, "]")))
		 TempString = Replace(Replace(TempString, "[", ""), "]", "")
		 TempString = Replace(TempString, " ", "")
		 TempString = Replace(TempString, "arrclasslist", "")
		 TempString = Replace(Replace(TempString, "(", ""), ")", "")
		 Cols = EL_Common.ELClng(TempString)
		 If Cols < 1 Then Cols = 1
		 If ClassID = 0 Then
		    SQLCondition = "ChannelID="& ChannelID &" And ParentID="& ClassID &" And ShowOnIndex="& EL_True &" ORDER BY OrderID"
		 Else
		    SQLCondition = "ChannelID="& ChannelID &" And ParentID="& ClassID &" And ShowOnParent="& EL_True &" ORDER BY OrderID"
		 End If 
		 Call EL_Common.InitCommonCmd(ArrClassCmd, rsArrClass, "EL_Class", "ClassID,ClassName", SQLCondition)
		 rsArrClass.Close()
		 RowCount = ArrClassCmd(0)
		 If RowCount = 0 Then
		    Temp = ""
		 Else
			MatchString = EL_Common.ReplaceText(MatchString, "\[arrClassList\(([ 0-9]+)\)\]", "")
			MatchString = EL_Common.ReplaceText(MatchString, "\[\/arrClassList\]", "")			
			rsArrClass.Open()
			Temp = "<table width=100% border='0' cellpadding='0' cellspacing='0'><tr>"
			Dim ItemHTML, ArrClassID
		    For i = 1 To RowCount
			   ArrClassID = Replace(EL_Common.GetAllClassID(rsArrClass(0)), ",", "|")	
			   ItemHTML = ""		   
			   ItemHTML = EL_Common.RegExpStaticLabel(MatchString, "{$arr_ClassID}", rsArrClass(0).value)			   
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$arr_ClassName}", rsArrClass(1).value)
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$arr_ClassURL}", InstallDir & EL_Channel.ChannelDir &"/ShowClass.asp?ClassID="& rsArrClass(0).value)
			   ItemHTML = EL_Common.ReplaceText(ItemHTML, "arr_AllChildID", ArrClassID)
			   ItemHTML = Label_GetShopList(ItemHTML)
			   ItemHTML = Label_GetShopPhoto(ItemHTML)
			   Temp = Temp &"<td width='"& 100/Cols &"%' valign='top'>"
			   Temp = Temp & ItemHTML
			   Temp = Temp &"</td>"
			   If (i Mod Cols)=0 And i<RowCount Then 
			      Temp = Temp &"</tr><tr>"
			   Else
			   If (i Mod Cols)>0 Then Temp = Temp &"<td>&nbsp;</td>"
			   End If
			   If i<RowCount Then rsArrClass.MoveNext
			Next
			Temp = Temp &"</tr></table>"
			rsArrClass.Close()
		 End if
		 Set rsArrClass = Nothing
		 Set ArrClassCmd = Nothing
		 ReturnString = Replace(ReturnString, Match.Value, Temp)
      Next	  
	  
	  Set Matches = Nothing
	  EL_Flag = True
	  Label_ArrClassList = ReturnString
   End Function   
   
   Private Function GetBookNumber()
      Dim RndN, DtNow, Prefix_Shop
	  Prefix_Shop = EL_Common.GetFieldValue("Prefix_Shop", "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_Shop & GetBookNumber
⌨️ 快捷键说明

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