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 DB1,DB2,DB3,DB4,DB5,DB6,DB7,DB8,DB9,DB10,PageUrl,DBSitePath,PageUrl1,PageUrl2,PageUrl3,ClassUrl,URLStr
    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

    PageUrl = "&"&Request.QueryString
	PageUrl1 = Split(PageUrl,"&")
	PageUrl = ""
	For i=0 To UBound(PageUrl1)
	  If PageUrl1(i) <> "" and Ucase(Left(PageUrl1(i),2)) = "DB" Then
		PageUrl = "&"&PageUrl1(i)&PageUrl
	  End If
	Next
	PageUrl3 = Split(unescape(PageUrl),"&")
	PageUrl = ""
	For i=0 To UBound(PageUrl3)
	  If PageUrl3(i) <> "" and Instr(Ucase(PageUrl),Ucase(Split("&"&PageUrl3(i),"=")(0))) = 0 Then
		PageUrl = PageUrl&"&"&PageUrl3(i)
	  End If
	Next
	PageUrl2 = Split(PageUrl,"&")
	For i=0 To UBound(PageUrl2)
	  If PageUrl2(i) <> "" and Instr(PageUrl2(i),"=") > 0 Then
	     Select Case Ucase(Split(PageUrl2(i),"=")(0))
		   Case "DB1"
		     DB1 = Split(PageUrl2(i),"=")(1)
		   Case "DB2"
		     DB2 = Split(PageUrl2(i),"=")(1)
		   Case "DB3"
		     DB3 = Split(PageUrl2(i),"=")(1)
		   Case "DB4"
		     DB4 = Split(PageUrl2(i),"=")(1)
		   Case "DB5"
		     DB5 = Split(PageUrl2(i),"=")(1)
		   Case "DB6"
		     DB6 = Split(PageUrl2(i),"=")(1)
		   Case "DB7"
		     DB7 = Split(PageUrl2(i),"=")(1)
		   Case "DB8"
		     DB8 = Split(PageUrl2(i),"=")(1)
		   Case "DB9"
		     DB9 = Split(PageUrl2(i),"=")(1)
		   Case "DB10"
		     DB10 = Split(PageUrl2(i),"=")(1)
	     End Select
	  End If
	Next

	Order = WRMPS.CheckStr(Request.QueryString("Order"),1)
	If Order = "" Or Order = 0 Then Order = 1
	DBSitePath = ""
	SQL = ""
	ClassUrl = WRMPS.GetClassUrl(0,1,1,ChannelDir&"/",ClassID)

	URLStr = "?ID="&ClassID
	If DB1 <> "" Or DB2 <> "" Or DB3 <> "" Or DB4 <> "" Or DB5 <> "" Or DB6 <> "" Or DB7 <> "" Or DB8 <> "" Or DB9 <> "" Or DB10 <> "" Then
		PageUrl = "?ID="&ClassID&"&Order="&Order
	    If DB1 <> "" Then PageUrl = PageUrl & "&DB1="&DB1
	    If DB2 <> "" Then PageUrl = PageUrl & "&DB2="&DB2
	    If DB3 <> "" Then PageUrl = PageUrl & "&DB3="&DB3
	    If DB4 <> "" Then PageUrl = PageUrl & "&DB4="&DB4
	    If DB5 <> "" Then PageUrl = PageUrl & "&DB5="&DB5
	    If DB6 <> "" Then PageUrl = PageUrl & "&DB6="&DB6
	    If DB7 <> "" Then PageUrl = PageUrl & "&DB7="&DB7
	    If DB8 <> "" Then PageUrl = PageUrl & "&DB8="&DB8
	    If DB9 <> "" Then PageUrl = PageUrl & "&DB9="&DB9
	    If DB10 <> "" Then PageUrl = PageUrl & "&DB10="&DB10
    Else
        PageUrl = WRMPS.GetClassUrl(Order,Page,1,ChannelDir&"/",ClassID)
	End If
	If DB1 <> "" Then DBSitePath = DBSitePath & "," & DB1 :SQL = SQL & " and WM_DB1='"&DB1&"'":URLStr = URLStr & "&DB1="&DB1
	If DB2 <> "" Then DBSitePath = DBSitePath & "," & DB2 :SQL = SQL & " and WM_DB2='"&DB2&"'":URLStr = URLStr & "&DB2="&DB2
    If DB3 <> "" Then DBSitePath = DBSitePath & "," & DB3 :SQL = SQL & " and WM_DB3='"&DB3&"'":URLStr = URLStr & "&DB3="&DB3
    If DB4 <> "" Then DBSitePath = DBSitePath & "," & DB4 :SQL = SQL & " and WM_DB4='"&DB4&"'":URLStr = URLStr & "&DB4="&DB4
    If DB5 <> "" Then DBSitePath = DBSitePath & "," & DB5 :SQL = SQL & " and WM_DB5='"&DB5&"'":URLStr = URLStr & "&DB5="&DB5
    If DB6 <> "" Then DBSitePath = DBSitePath & "," & DB6 :SQL = SQL & " and WM_DB6='"&DB6&"'":URLStr = URLStr & "&DB6="&DB6
    If DB7 <> "" Then DBSitePath = DBSitePath & "," & DB7 :SQL = SQL & " and WM_DB7='"&DB7&"'":URLStr = URLStr & "&DB7="&DB7
    If DB8 <> "" Then DBSitePath = DBSitePath & "," & DB8 :SQL = SQL & " and WM_DB8='"&DB8&"'":URLStr = URLStr & "&DB8="&DB8
    If DB9 <> "" Then DBSitePath = DBSitePath & "," & DB9 :SQL = SQL & " and WM_DB9='"&DB9&"'":URLStr = URLStr & "&DB9="&DB9
    If DB10 <> "" Then DBSitePath = DBSitePath & "," & DB10 :SQL = SQL & " and WM_DB10='"&DB10&"'":URLStr = URLStr & "&DB10="&DB10

	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_DB,WM_TempID,WM_NoTempID,WM_MetaKey,WM_MetaContent From WM_ClassSort 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(8),15,ChannelID) Else TempStr = WRTemp.SiteTemplates(1,Rs(9),16,ChannelID)
	      Call WRMPS.FsoEnd()
		  MetaKey = Rs(10)
		  MetaContent = Rs(11)
		  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_ClassSort 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&DBSitePath)

	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_ClassSort")&") 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_mCommend Desc,WM_ID Desc"