class.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<!--#include file="Channel_Config.asp"-->
<%
    Dim SearchByOrher,ParentPath,i,n,Order,OrderSQL
	Dim ContentNum,CycList,ShowNum,TempList,CycTemp,Term
	Dim Title,TitStyle,Con,PIC,Tag,Tags,zTopSign,TopSign
	Dim ClassUrl,eEnd,PageUrl
    ClassID = WRMPS.CheckStr(Request.QueryString("ID"),1)
    If ClassID = "" Then Call WRMPS.ErrView("·操作错误<meta http-equiv=refresh content='1;URL=../'>",0)
	Page = WRMPS.CheckStr(Request("Page"),1)
	If Page = "" Then Page = 1

	SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>"
	Call DBConnBegin()
    Set Rs = Conn.Execute("Select WM_ID,WM_Name,WM_ParentPath,WM_Child,WM_ChannelDir,WM_ParentDir,WM_Dir,WM_TempID,WM_NoTempID,WM_MetaKey,WM_MetaContent From WM_CouponSort Where WM_ID="&ClassID&"")
    If Not Rs.Eof Then
	      ClassName = Rs(1)
	      Call WRMPS.FsoBegin()
	        If Int(Rs(3)) > 0 Then TempStr = WRTemp.SiteTemplates(1,Rs(7),60,ChannelID) Else TempStr = WRTemp.SiteTemplates(1,Rs(8),74,ChannelID)
	      Call WRMPS.FsoEnd()
		  MetaKey = Rs(9)
		  MetaContent = Rs(10)
		  If Instr(TempStr,"{$SCity}")>0 Then TempStr = WRMPS.GetReplace(TempStr,"{$SCity}",WRDB.GetAreaSort(0,1,MyCityID,"City")) 
		  If Rs(2) <> "0" Then
	        ParentPath = Right(Rs(2),Len(Rs(2))-2)
	        ParentPath = Split(ParentPath,",")
		    For i=0 to UBound(ParentPath)
	          Set Rso = Conn.Execute("Select WM_ID,WM_Name,WM_ChannelDir,WM_ParentDir,WM_Dir From WM_CouponSort Where WM_ID="&Int(ParentPath(i))&"")
			  SitePath = SitePath & ",<a href="&WRMPS.GetClassUrl(0,1,1,Rso(2)&Rso(3)&Rso(4),Rso(0))&">"&Rso(1)&"</a>"
			  Rso.Close
	        Next
	      End If  
	      SitePath = SitePath & ",<a href="&WRMPS.GetClassUrl(0,1,1,Rs(4)&Rs(5)&Rs(6),Rs(0))&">"&Rs(1)&"</a>"
	      Rs.Close
    Else
	    Rs.Close
		Call WRMPS.ErrView("·栏目不存在",0)
    End If
	Set Rso = Nothing
	Set Rs = Nothing
	SitePath = WRMPS.GetSitePath(0,SitePath)
	
	Order = WRMPS.CheckStr(Request.QueryString("Order"),1)
	If Order = "" Or Order = 0 Then Order = 1
	ClassUrl = WRMPS.GetClassUrl(0,1,1,ChannelDir&"/",ClassID)
	PageUrl = WRMPS.GetClassUrl(Order,Page,1,ChannelDir&"/",ClassID)

	ContentNum = 0
	Term = WRMPS.HCode(2,TempStr,"{\$CycBegin}【","】")
	CycList = WRMPS.HCode(2,TempStr,"{\$CycBegin}【"&Term&"】","{\$CycEnd}")
	ShowNum = Split(Term,",")(0)
	ContentNum = Split(Term,",")(1)
	
	If MyCityID > 0 Then SQL = " and WM_AreaID in("&WRDB.GetChildClass(MyCityID,"WM_Area")&")"&SQL
	SQL = "WM_ClassID in("&WRDB.GetChildClass(ClassID,"WM_CouponSort")&") and WM_Key=1" & SQL

    Select Case ConnTypeStr
	  Case 0
        OrderSQL = "iif(WM_aZTop>="&ConnTime&",WM_aZTop,) Desc,"
	    If ClassID <> "" Then OrderSQL = OrderSQL & "iif(WM_aTop>="&ConnTime&",WM_aTop,) Desc,"
	  Case 1
        OrderSQL = "Case when WM_aZTop>="&ConnTime&" Then WM_aZTop End Desc,"
	    If ClassID <> "" Then OrderSQL = OrderSQL & " Case when WM_aTop>="&ConnTime&" Then WM_aTop End Desc,"
	End Select
	
	Select Case Order
      Case 1
	    OrderSQL = OrderSQL&"WM_ID Desc"
      Case 2
	    OrderSQL = OrderSQL&"WM_Hit Desc,WM_ID Desc"
      Case 3
	    OrderSQL = OrderSQL&"WM_Re Desc,WM_ID Desc"
      Case 4
	    OrderSQL = OrderSQL&"WM_Commend Desc,WM_ID Desc"
      Case 5
	    OrderSQL = OrderSQL&"WM_Collection Desc,WM_ID Desc"
      Case 6
		SQL = SQL & " and WM_AgioType=0"
	    OrderSQL = OrderSQL&"WM_ID Desc"
      Case 7
		SQL = SQL & " and WM_AgioType=1"
	    OrderSQL = OrderSQL&"WM_ID Desc"
      Case 8
		SQL = SQL & " and WM_AgioType=2"
	    OrderSQL = OrderSQL&"WM_ID Desc"
    End Select

	Set ClsPageList = New Cls_PageView  
      ClsPageList.strTableName = "WM_Coupon"  
      ClsPageList.strPageUrl = PageUrl
      ClsPageList.strFieldsList = "WM_ID,WM_Title,WM_Intro,WM_Path,WM_ClassID,WM_AreaID,WM_Time,WM_Hit,WM_Re,WM_User,WM_Commend,WM_ClassDir,WM_ChannelID,WM_ChannelDir,WM_Circumscribe,WM_Tel,WM_AddRess,WM_Tags,WM_aZTop,WM_aTop,WM_aTitColor,WM_aTColor,WM_aBgColor,WM_aBColor,WM_aBold,WM_ComID,WM_Collection,WM_Begin,WM_End,WM_Agio,WM_AgioType,WM_Item"  
      ClsPageList.strCondiction = SQL
      ClsPageList.strOrderList = OrderSQL
      ClsPageList.strPrimaryKey = "WM_ID"  
      ClsPageList.intPageSize = ShowNum
      ClsPageList.intPageNow = Page
      ClsPageList.strCookiesName = "RecordCount"  
      ClsPageList.strPageVar = "Page"  
      ClsPageList.intRefresh = 1 
      ClsPageList.objConn = Conn  
      ClsPageList.InitClass  
      arrPage = ClsPageList.arrPage  
      strPageList = ClsPageList.strPageList
    Set ClsPageList = nothing

    Dim AgioTypePic,AgioTypeSign
	
    TempList = "":CycTemp=""
    If IsArray(arrPage) Then
      For i = 0 to UBound(arrPage, 2)
	    TitStyle = "":Tag = "":Tags = "":zTopSign = "":TopSign = "":AgioTypePic = "":AgioTypeSign = "":Con=""
	    CycTemp = CycList
		CycTemp = WRMPS.GetReplace(CycTemp,"{$ID}",arrPage(0,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Page}",Page)
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Url}",WRMPS.GetShowUrl(1,1,0,arrPage(0,i),arrPage(6,i),arrPage(13,i)&"/"&arrPage(11,i)&"/",arrPage(12,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$ClassName}",arrPage(14,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$ClassUrl}",WRMPS.GetClassUrl(0,1,1,arrPage(13,i)&"/"&arrPage(11,i)&"/",arrPage(4,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$AreaName}",WRMPS.GetAreaUrl(arrPage(5,i),"Name"))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$AreaUrl}",WRMPS.GetAreaUrl(arrPage(5,i),"Url"))
        Title = arrPage(1,i)
        If arrPage(21,i) > Now() Then TitStyle = "color:"&arrPage(20,i)
        If arrPage(23,i) > Now() Then TitStyle = TitStyle & ";background:"&arrPage(22,i)
        If arrPage(24,i) > Now() Then TitStyle = TitStyle & ";font-weight:bold"
        If TitStyle <> "" Then Title = "<span style='"&TitStyle&"'>"&Title&"</span>"
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Title}",Title)
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Year}",Year(arrPage(6,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Month}",Month(arrPage(6,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Day}",Day(arrPage(6,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Hour}",Hour(arrPage(6,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Minute}",Minute(arrPage(6,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Second}",Second(arrPage(6,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Re}",arrPage(8,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Hit}",arrPage(7,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Collection}",arrPage(26,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Begin}",arrPage(27,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$End}",arrPage(28,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Tel}",arrPage(15,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$AddRess}",arrPage(16,i))
        If Instr(CycTemp,"{$Content}") > 0 Then
          If Int(ContentNum) > 0 Then Con = WRMPS.GotTopic(WRMPS.LeachHTML(arrPage(2,i)),Int(ContentNum),1)
          CycTemp = WRMPS.GetReplace(CycTemp,"{$Content}",Con)
        End If
        PIC = WRMPS.CheckStr(arrPage(3,i),5)
        If PIC = "" Then elPIC = UrlPath&"Skins/"&WR_Setting(5,i)&"/nopic.gif"
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Pic}",PIC)
        CycTemp = WRMPS.GetReplace(CycTemp,"{$PostName}",WRUser.DispUser(0,arrPage(9,i)))
        If Instr(CycTemp,"{$Tags}") > 0 Then
        Tag = arrPage(17,i)
		  If Tag <> "" and Isnull(Tag) = false Then
		    Tag = Split(Tag,",")
		    For n=0 To UBound(Tag)
		      If Tag(n) <> "" Then 
		        If Tags = "" Then
		          Tags = "<a href="&WR_Setting(3)&"Search/S?Key="&escape(Tag(n))&" target=_blank>"&Tag(n)&"</a>"
		        Else
		          Tags = Tags&",<a href="&WR_Setting(3)&"Search/S?Key="&escape(Tag(n))&" target=_blank>"&Tag(n)&"</a>"
		        End If
		      End If
		    Next
		  Else
		    Tags = ""
		  End If
	      CycTemp = WRMPS.GetReplace(CycTemp,"{$Tags}",Tags)
        End If
        If arrPage(25,i) > 0 and Instr(CycTemp,"{$ComSign}") > 0 Then
		  CycTemp = WRMPS.GetReplace(CycTemp,"{$ComSign}","<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Com.gif' alt='商家发布' align=absmiddle>")
        End If
        CycTemp = WRMPS.GetReplace(CycTemp,"{$ComSign}","")
        If Instr(CycTemp,"{$CommendSign}") > 0 Then
		  If arrPage(10,i) = 1 Then CycTemp = WRMPS.GetReplace(CycTemp,"{$CommendSign}","<img src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Elite.gif' align=absmiddle alt='推荐'>") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$CommendSign}","")
        End If
        If Instr(CycTemp,"{$NewSign}") > 0 Then
		  If arrPage(6,i) >= (Now()-1) Then CycTemp = WRMPS.GetReplace(CycTemp,"{$NewSign}","<img src='"&UrlPath&"Skins/"&WR_Setting(5)&"/New.gif' align=absmiddle alt='新进信息'>") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$NewSign}","")
        End If
        If Instr(CycTemp,"{$zTopSign}") > 0 Then
		  zTopSign = "":zTopSign = arrPage(18,i)
		  If zTopSign > Now() Then CycTemp = WRMPS.GetReplace(CycTemp,"{$zTopSign}","<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/zTop.gif' alt='总置顶' align=absmiddle border=0>")
		  CycTemp = WRMPS.GetReplace(CycTemp,"{$zTopSign}","")
        End If
        If Instr(CycTemp,"{$TopSign}") > 0 Then
		  TopSign = "":TopSign = arrPage(19,i)
		  If TopSign > Now() Then CycTemp = WRMPS.GetReplace(CycTemp,"{$TopSign}","<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Top.gif' alt='置顶' align=absmiddle border=0>")
		  CycTemp = WRMPS.GetReplace(CycTemp,"{$TopSign}","")
        End If
        CycTemp = WRMPS.GetReplace(CycTemp,"{$AgioType}",WRMPS.GetReplace(WRMPS.GetReplace(WRMPS.GetReplace(arrPage(30,i),0,"折扣券"),1,"抵价券"),2,"礼品券"))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Agio}",arrPage(29,i)&WRMPS.GetReplace(WRMPS.GetReplace(WRMPS.GetReplace(arrPage(30,i),0,"折"),1,"元"),2,"礼品券"))
        eEnd = arrPage(28,i)
        AgioTypePic = arrPage(30,i)
        Select Case AgioTypePic
		  Case 0
			AgioTypePic = UrlPath&"Skins/"&WR_Setting(5)&"/Agio_0.png"
			AgioTypeSign = "<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Agio_0.gif' alt='折扣券' align=absmiddle border=0>"
		  Case 1
            AgioTypePic = UrlPath&"Skins/"&WR_Setting(5)&"/Agio_1.png"
			AgioTypeSign = "<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Agio_1.gif' alt='抵价券' align=absmiddle border=0>"
		  Case 2
			AgioTypePic = UrlPath&"Skins/"&WR_Setting(5)&"/Agio_2.png"
			AgioTypeSign = "<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Agio_2.gif' alt='礼品券' align=absmiddle border=0>"
        End Select
        If eEnd <> "" Then If eEnd < Date() Then AgioTypePic = UrlPath&"Skins/"&WR_Setting(5)&"/Agio_5.png":AgioTypeSign = "<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Agio_5.gif' alt='已过期' align=absmiddle border=0>"
        CycTemp = WRMPS.GetReplace(CycTemp,"{$AgioTypePic}",AgioTypePic)
        CycTemp = WRMPS.GetReplace(CycTemp,"{$AgioTypeSign}",AgioTypeSign)
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Item}",arrPage(31,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Circumscribe}",arrPage(14,i))
        TempList = TempList & CycTemp
      Next  
    End If  
    TempStr = WRMPS.GetReplace(TempStr,"{$NextPage}",strPageList) 
	If Int(WR_Setting(9)) = 1 Then
        For i=1 To 8
		  TempStr = WRMPS.GetReplace(TempStr,"{orderlink("&i&")}",WRMPS.GetClassUrl(i,Split(ClassUrl,"_")(2),1,ChannelDir,Split(ClassUrl,"_")(1)))
		Next
	Else
        For i=1 To 8
		  TempStr = WRMPS.GetReplace(TempStr,"{orderlink("&i&")}","?ID="&ClassID&"&order="&i)
		Next
	End If
	TempStr = WRMPS.GetReplace(TempStr,"{$ClassUrl}",ClassUrl)
	TempStr = WRMPS.GetReplace(TempStr,"class=order"&Order,"class=orderlink")
    TempStr = WRMPS.HCode(1,TempStr,"{\$CycBegin}","{\$CycEnd}") & TempList & WRMPS.HCode(3,TempStr,"{\$CycBegin}","{\$CycEnd}")
    TempStr = WRTemp.SiteClass(TempStr)
    TempStr = WRTemp.SiteChannel(TempStr)
    TempStr = WRTemp.SiteLabel(TempStr)
	Call ClassEnd()
    Call DBConnEnd()
	Response.write TempStr
%>