index.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"-->
<%
   Call DBConnBegin()
   Call WRMPS.FsoBegin()
   Dim ComID,ContentNum,Term,CycList,ShowNum,PageUrl,TempList,CycTemp,i,Con,eCProduct,eACProduct,CommendProduct,n
   ComID=WRMPS.CheckStr(Request("ComID"),1)
   If ComID = "" Then ComID = 0
   Page = WRMPS.CheckStr(Request("Page"),1)
   If Page = "" Then Page = 1
   SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>"
   Call DBConnBegin()
   SitePath = SitePath & ",<a href="&WRMPS.GetCritiqueUrl(0)&">店铺点评</a>"
   If ComID > 0 Then
     Set Rs = Conn.Execute("Select WM_Company From WM_Company Where WM_ID="&ComID)
	 If Not Rs.Eof Then
       SitePath = SitePath & ",<a href="&WRMPS.GetCritiqueUrl(ComID)&">"&Rs(0)&"</a>"
	 End If
	 Rs.Close
	 Set Rs = Nothing
   End If
   SitePath = WRMPS.GetSitePath(AreaID,SitePath)
   TempStr = WRTemp.SiteTemplates(1,0,50,ChannelID)
   
   ContentNum = 0
   Term = WRMPS.HCode(2,TempStr,"{\$CycBegin}【","】")
   CycList = WRMPS.HCode(2,TempStr,"{\$CycBegin}【"&Term&"】","{\$CycEnd}")
   ShowNum = Split(Term,",")(0)
   ContentNum = Split(Term,",")(1)
   PageUrl = WRMPS.GetCritiqueUrl(ComID)

   If ComID > 0 Then SQL = "WM_ComID="&ComID
   If MyCityID > 0 Then If SQL <> "" Then SQL = SQL & " and WM_AreaID in("&WRDB.GetChildClass(MyCityID,"WM_Area")&")" Else SQL = "WM_AreaID in("&WRDB.GetChildClass(MyCityID,"WM_Area")&")"
   If SQL <> "" Then SQL = SQL & " and WM_Key=1" Else SQL = "WM_Key=1"

	Set ClsPageList = New Cls_PageView  
      ClsPageList.strTableName = "WM_CompanyRevert"  
      ClsPageList.strPageUrl = PageUrl
      ClsPageList.strFieldsList = "WM_ID,WM_ComID,WM_Company,WM_AreaID,WM_Consume,WM_Intro,WM_CommendProduct,WM_ReSer,WM_RePrice,WM_All,WM_ReUser,WM_Time,WM_Good,WM_Bad"  
      ClsPageList.strCondiction = SQL
      ClsPageList.strOrderList = "WM_ID Desc"
      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

    TempList = "":CycTemp=""
    If IsArray(arrPage) Then
      For i = 0 to UBound(arrPage, 2)
	    Con="":eCProduct = "":eACProduct = ""
	    CycTemp = CycList
		CycTemp = WRMPS.GetReplace(CycTemp,"{$ID}",arrPage(0,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$ComID}",arrPage(1,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Company}",arrPage(2,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Url}",WRMPS.GetCompanyUrl(arrPage(1,i)))
        If Instr(CycTemp,"{$Intro}") > 0 Then
		  Con = arrPage(5,i)
          If Int(ContentNum) > 0 Then Con = WRMPS.GotTopic(WRMPS.LeachHTML(Con),Int(ContentNum),1)
          CycTemp = WRMPS.GetReplace(CycTemp,"{$Intro}",Con)
        End If
		If Instr(CycTemp,"{$CommendProduct}") > 0 Then
			  CommendProduct = arrPage(6,i)
			  n = 0
			  If CommendProduct <> "" Then
			    CommendProduct = Split(CommendProduct,",")
				For n = 0 To Ubound(CommendProduct)
		          If eCProduct = "" Then
			        If n <= 10 Then
			          eCProduct = CommendProduct(n)
			          'eCProduct = "<a href="&UrlPath&"Search/Y?Key="&escape(CommendProduct(n))&" target=_blank>"&CommendProduct(n)&"</a>"
			        End If
		          Else
			        If n <= 10 Then
			          eCProduct = eCProduct&","&CommendProduct(n)
			          'eCProduct = eCProduct&",<a href="&UrlPath&"Search/Y?Key="&escape(CommendProduct(n))&" target=_blank>"&CommendProduct(n)&"</a>"
			        Else
			          If eACProduct = "" Then
			            eACProduct = eCProduct
			          Else
			            eACProduct = eACProduct&","&CommendProduct(n)
			            'eACProduct = eACProduct&",<a href="&UrlPath&"Search/Y?Key="&escape(CommendProduct(n))&" target=_blank>"&CommendProduct(n)&"</a>"
			          End If
			        End If
		          End If
				Next
			  End If
		      If n > 10 Then
		        eCProduct = "<span id=DP"&arrPage(0,i)&">"&eCProduct&"<div class=ProductShowDiv><span class=ProductShow onclick='DP"&arrPage(0,i)&".style.display=""none"";AllDP"&arrPage(0,i)&".style.display=""""'>显示全部</span></div></span><span id=AllDP"&arrPage(0,i)&" style='display:none'>"&eACProduct&"</span>"
		      Else
		        eCProduct = "<span id=DP>"&eCProduct&"</span>"
		      End If
	          CycTemp = WRMPS.GetReplace(CycTemp,"{$CommendProduct}",eCProduct)
		End If
	    CycTemp = WRMPS.GetReplace(CycTemp,"{$Consume}",arrPage(4,i))
	    CycTemp = WRMPS.GetReplace(CycTemp,"{$ReUser}",WRUser.DispUser(0,arrPage(10,i)))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$ReSer}",WRMPS.GetRePic(arrPage(7,i)))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$RePrice}",WRMPS.GetRePic(arrPage(8,i)))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$All}",WRMPS.GetRePic(arrPage(9,i)))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Time}",arrPage(11,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Good}",arrPage(12,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Bad}",arrPage(13,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Page}",Page)
        TempList = TempList & CycTemp
      Next  
    End If  
    TempStr = WRMPS.GetReplace(TempStr,"{$NextPage}",strPageList) 
    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
%>