class.asp

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

      Case 6
	    OrderSQL = OrderSQL&"WM_Collection Desc,WM_ID Desc"
    End Select
	Set ClsPageList = New Cls_PageView  
      ClsPageList.strTableName = "WM_ClassAD"  
      ClsPageList.strPageUrl = PageUrl
      ClsPageList.strFieldsList = "WM_ID,WM_AreaID,WM_Title,WM_aBColor,WM_aTColor,WM_aBold,WM_aTitColor,WM_aBgColor,WM_PostTime,WM_ClassDir,WM_Content,WM_Pic,WM_Tag,WM_Re,WM_Hit,WM_QQ,WM_aZTop,WM_Post,WM_Email,WM_Tel,WM_AddRess,WM_Collection,WM_ComID,WM_Commend,WM_aTop,WM_DB1,WM_DB2,WM_DB3,WM_DB4,WM_DB5,WM_DB6,WM_DB7,WM_DB8,WM_DB9,WM_DB10,WM_DB1T,WM_DB2T,WM_DB3T,WM_DB4T,WM_DB5T,WM_DB6T,WM_DB7T,WM_DB8T,WM_DB9T,WM_DB10T"  
      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.inAdmin = 2
      ClsPageList.objConn = Conn  
      ClsPageList.InitClass  
      arrPage = ClsPageList.arrPage  
      strPageList = ClsPageList.strPageList
    Set ClsPageList = nothing

    TempList = "":CycTemp=""
    If IsArray(arrPage) Then
      For i = 0 to UBound(arrPage, 2)
	    TitStyle = "":Tag = "":Tags = "":zTopSign = "":TopSign = ""
	    CycTemp = CycList
		CycTemp = WRMPS.GetReplace(CycTemp,"{$ID}",arrPage(0,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Page}",Page)
		CycTemp = WRMPS.GetReplace(CycTemp,"{$AreaName}",WRMPS.GetAreaUrl(arrPage(1,i),"Name"))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$AreaUrl}",WRMPS.GetAreaUrl(arrPage(1,i),"Url"))
        Title = arrPage(2,i)
        If arrPage(4,i) > Now() Then TitStyle = "color:"&arrPage(6,i)
        If arrPage(3,i) > Now() Then TitStyle = TitStyle & ";background:"&arrPage(7,i)
        If arrPage(5,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,"{$Url}",WRMPS.GetShowUrl(1,1,0,arrPage(0,i),arrPage(8,i),ChannelDir&"/"&arrPage(9,i)&"/",ChannelID))
		If Instr(CycTemp,"{$Content}") > 0 Then
		  Con = arrPage(10,i)
		  If Int(ContentNum) > 0 Then Con = WRMPS.GotTopic(WRMPS.LeachHTML(Con),Int(Int(ContentNum)),1)
          CycTemp = WRMPS.GetReplace(CycTemp,"{$Content}",Con)
		End If
        PIC = WRMPS.CheckStr(arrPage(11,i),5)
		If PIC = "" Then PIC = WR_Setting(3)&"Skins/"&WR_Setting(5)&"/nopic.gif"
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Pic}",PIC)
	    If Instr(CycTemp,"{$Tags}") > 0 Then
	   	   Tag = arrPage(12,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/C?Key="&escape(Tag(n))&" target=_blank>"&Tag(n)&"</a>"
		          Else
			        Tags = Tags&",<a href="&WR_Setting(3)&"Search/C?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
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Re}",arrPage(13,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Hit}",arrPage(14,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$QQ}",arrPage(15,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Year}",Year(arrPage(8,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Month}",Month(arrPage(8,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Day}",Day(arrPage(8,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Hour}",Hour(arrPage(8,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Minute}",Minute(arrPage(8,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Second}",Second(arrPage(8,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$PostName}",WRUser.DispUser(0,arrPage(17,i)))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Email}",arrPage(18,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Tel}",arrPage(19,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$AddRess}",arrPage(20,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Collection}",arrPage(21,i))
        If arrPage(22,i) > 0 and Instr(CycTemp,"{$ComSign}") > 0 Then CycTemp = WRMPS.GetReplace(CycTemp,"{$ComSign}","<Img Src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/Com.gif' alt='商家发布' align=absmiddle>")
		CycTemp = WRMPS.GetReplace(CycTemp,"{$ComSign}","")
		If Instr(CycTemp,"{$PicSign}") > 0 Then If arrPage(11,i) <> "" Then CycTemp = WRMPS.GetReplace(CycTemp,"{$PicSign}","<img src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/Pic.gif' align=absmiddle alt='有图片'>") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$PicSign}","")
		If Instr(CycTemp,"{$CommendSign}") > 0 Then If arrPage(23,i) = 1 Then CycTemp = WRMPS.GetReplace(CycTemp,"{$CommendSign}","<img src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/Elite.gif' align=absmiddle alt='推荐'>") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$CommendSign}","")
		If Instr(CycTemp,"{$NewSign}") > 0 Then If arrPage(8,i) >= (Now()-1) Then CycTemp = WRMPS.GetReplace(CycTemp,"{$NewSign}","<img src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/New.gif' align=absmiddle alt='新进信息'>") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$NewSign}","")
		If Instr(CycTemp,"{$zTopSign}") > 0 Then
		   zTopSign = arrPage(16,i)
		   If zTopSign > Now() Then CycTemp = WRMPS.GetReplace(CycTemp,"{$zTopSign}","<Img Src='"&WR_Setting(3)&"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 = arrPage(24,i)
		   If TopSign > Now() Then CycTemp = WRMPS.GetReplace(CycTemp,"{$TopSign}","<Img Src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/Top.gif' alt='置顶' align=absmiddle border=0>")
		   CycTemp = WRMPS.GetReplace(CycTemp,"{$TopSign}","")
		End If
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB1}",arrPage(25,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB2}",arrPage(26,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB3}",arrPage(27,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB4}",arrPage(28,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB5}",arrPage(29,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB6}",arrPage(30,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB7}",arrPage(31,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB8}",arrPage(32,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB9}",arrPage(33,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB10}",arrPage(34,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB1T}",arrPage(35,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB2T}",arrPage(36,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB3T}",arrPage(37,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB4T}",arrPage(38,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB5T}",arrPage(39,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB6T}",arrPage(40,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB7T}",arrPage(41,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB8T}",arrPage(42,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB9T}",arrPage(43,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$DB10T}",arrPage(44,i))
        TempList = TempList & CycTemp
      Next  
    End If  
    TempStr = WRMPS.GetReplace(TempStr,"{$NextPage}",strPageList) 
	If Int(WR_Setting(9)) = 1 And DB1 = "" and DB2 = "" and DB3 = "" and DB4 = "" and DB5 = "" and DB6 = "" and DB7 = "" and DB8 = "" and DB9 = "" and DB10 = "" Then
        For i=1 To 6
		  TempStr = WRMPS.GetReplace(TempStr,"{orderlink("&i&")}",WRMPS.GetClassUrl(i,Split(ClassUrl,"_")(2),1,ChannelDir,Split(ClassUrl,"_")(1)))
		Next
	Else
        For i=1 To 6
		  TempStr = WRMPS.GetReplace(TempStr,"{orderlink("&i&")}","{$URLStr}&order="&i)
		Next
	End If

    TempStr = WRMPS.GetReplace(TempStr,"{$URLStr}",WR_Setting(3)&ChannelDir&"/Class.asp"&URLStr)
	TempStr = WRMPS.GetReplace(TempStr,"{$ClassUrl}",ClassUrl)
    TempStr = WRMPS.GetReplace(TempStr,"{$DB1}",DB1)
	TempStr = WRMPS.GetReplace(TempStr,"{$DB2}",DB2)
	TempStr = WRMPS.GetReplace(TempStr,"{$DB3}",DB3)
	TempStr = WRMPS.GetReplace(TempStr,"{$DB4}",DB4)
	TempStr = WRMPS.GetReplace(TempStr,"{$DB5}",DB5)
	TempStr = WRMPS.GetReplace(TempStr,"{$DB6}",DB6)
	TempStr = WRMPS.GetReplace(TempStr,"{$DB7}",DB7)
	TempStr = WRMPS.GetReplace(TempStr,"{$DB8}",DB8)
	TempStr = WRMPS.GetReplace(TempStr,"{$DB9}",DB9)
	TempStr = WRMPS.GetReplace(TempStr,"{$DB10}",DB10)
	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
%>