index.asp

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

<!--#include file="../../inc/Conn.asp"-->
<!--#include file="../../Inc/Cls.Common.asp"-->
<!--#include file="../../Inc/Cls.Templates.asp"-->
<%
  If Int(UserFlag(6)) < 1 Then Call WRMPS.ErrView("·您没有权限使用此功能", 0)
  Dim City,ComID,CityList,i,KeyList,ListSql,KeySQL,OrderType,ShowNum,ContentNum,n,Title

  Key = WRMPS.CheckStr(Request("Key"),0)
  City = WRMPS.CheckStr(Request("City"),1)
  ClassID = WRMPS.CheckStr(Request("ClassID"),1)
  ComID = WRMPS.CheckStr(Request("ComID"),1)
  Page = WRMPS.CheckStr(Request("Page"),1)
  If Page = "" Then Page = 1
  If ComID = "" and Key ="" Then Call WRMPS.ErrView("·请输入搜索关键字<meta http-equiv=refresh content='1;URL=../Index.asp'>", 0)
  Key = WRMPS.GetReplace(Key,"[","")
  Key = WRMPS.GetReplace(WRMPS.GetReplace(Key," ","+"),"&nbsp;","+")
  If Len(Key) > 100 Then Key = Left(Key,100)

  SitePath = ",<a href="&WR_Setting(3)&"Search/>搜索中心</a>"
  SitePath = WRMPS.GetSitePath(0,SitePath)
  Call WRMPS.FsoBegin()
  TempStr = WRTemp.SiteTemplates(1,0,75,0)
  Call WRMPS.FsoEnd()
  Call DBConnBegin()

  If ComID > 0 Then
    SQL = " and WM_ComID="&ComID
	Set Rs = Conn.Execute("Select WM_Company From WM_Company Where WM_ID="&ComID)
	If Not Rs.Eof Then
	  Title = Rs(0)
	End If
	Rs.Close
  End If
  If City > 0 Then
    CityList = WRDB.GetChildClass(City,"WM_Area")
	SQL = SQL & " and WM_AreaID in("&CityList&")"
  End If
  If ClassID > 0 Then SQL = SQL & " and WM_ClassID="&ClassID
  If Instr(Key,"+") = 0 Then Key = Key & "+"
  KeyList = Split(Key,"+")
  Set Rs = server.createobject("adodb.recordset")
  For i=0 To Ubound(KeyList)
    If KeyList(i) <> "" Then
	  '记录到搜索关键词
	  If Page = 1 Then
	    Rs.Open("Select WM_Key,WM_Hit,WM_LastTime,WM_Type,WM_Commend,WM_Through From WM_Search Where WM_Type=4 and WM_Key='" & KeyList(i) & "'"), Conn, 1, 3
	    If Rs.Eof Then
	      Rs.AddNew
	      Rs(0) = KeyList(i)
		  Rs(1) = 1
		  Rs(2) = Now()
		  Rs(3) = 4
		  Rs(4) = 0
		  Rs(5) = 0
	    Else
	      Rs(1) = Rs(1) + 1
	    End If
	    Rs.Update
        Rs.Close
	  End If
	  'End
	  If ListSql = "" Then
		ListSql = "WM_Title like'%"&KeyList(i)&"%' or WM_Intro like'%"&KeyList(i)&"%' or WM_Tags like'%"&KeyList(i)&"%'"
	  Else
		ListSql = ListSql & "WM_Title like'%"&KeyList(i)&"%' or WM_Intro like'%"&KeyList(i)&"%' or WM_Tags like'%"&KeyList(i)&"%'"
	  End If
	End If
  Next
  Set Rs = Nothing
  If ListSql <> "" Then SQL = SQL & " and ("&ListSql&")"
  
  If Left(SQL,4) = " and" Then SQL = Right(SQL,Len(SQL)-5)
  If SQL <> "" Then SQL = SQL & " and WM_Key=1" Else SQL " and WM_Key=1"
  
  Dim TempList,CycTemp,CycList,PageUrl,Tag,Tags,Con,PIC
  
  ListNum = WRMPS.HCode(2,TempStr,"{\$CycBegin}【","】")
  CycList = WRMPS.HCode(2,TempStr,"{\$CycBegin}【"&ListNum&"】","{\$CycEnd}")
  ShowNum = Split(ListNum,",")(0)
  ContentNum = Split(ListNum,",")(1)

  Select Case ConnTypeStr
	Case 0
      OrderType = " iif(WM_aZTop>="&ConnTime&",WM_aZTop,) Desc,"
	  If ClassID <> "" Then OrderType = OrderType & " iif(WM_aTop>="&ConnTime&",WM_aTop,) Desc,"
	Case 1
      OrderType = " Case when WM_aZTop>="&ConnTime&" Then WM_aZTop End Desc,"
	  If ClassID <> "" Then OrderType = OrderType & " Case when WM_aTop>="&ConnTime&" Then WM_aTop End Desc,"
  End Select
  OrderType = OrderType & "WM_ID Desc"
  Set ClsPageList = New Cls_PageView  
      ClsPageList.strTableName = "WM_Coupon"  
      ClsPageList.strPageUrl = PageUrl
      ClsPageList.strFieldsList = "WM_ID,WM_Title,WM_Time,WM_ClassDir,WM_ChannelDir,WM_Intro,WM_Path,WM_Tags,WM_ChannelID"  
      ClsPageList.strCondiction = SQL
      ClsPageList.strOrderList = OrderType
      ClsPageList.strPrimaryKey = "WM_ID"  
      ClsPageList.intPageSize = ShowNum
      ClsPageList.intPageNow = Page
      ClsPageList.strCookiesName = "RecordCount"  
      ClsPageList.strPageVar = "Page"  
      ClsPageList.intRefresh = 1 
	  ClsPageList.inAdmin = 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)
	    Tag = "":Tags = ""
	    CycTemp = CycList
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Title}",arrPage(1,i))
        CycTemp = WRMPS.GetReplace(CycTemp,"{$Url}",WRMPS.GetShowUrl(1,1,0,arrPage(0,i),arrPage(2,i),arrPage(4,i)&"/"&arrPage(3,i)&"/",arrPage(8,i)))
		If Instr(CycTemp,"{$Content}") > 0 Then
		  Con = arrPage(5,i)
		  If ContentNum > 0 Then Con = WRMPS.GotTopic(WRMPS.LeachHTML(Con),Int(ContentNum),1)
          CycTemp = WRMPS.GetReplace(CycTemp,"{$Content}",Con)
		End If
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Time}",arrPage(2,i))
        PIC = WRMPS.CheckStr(arrPage(6,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(7,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
        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 = WRMPS.GetReplace(TempStr,"{$SNum}",sintTmp)
    TempStr = WRMPS.GetReplace(TempStr,"{$SCity}",WRDB.GetAreaSort(0,1,City,"City"))
	If Title <> "" Then Key = Title
    TempStr = WRMPS.GetReplace(TempStr,"{$SKey}",Trim(WRMPS.GetReplace(Key,"+"," ")))
    TempStr = WRTemp.SiteLabel(TempStr)
    Call ClassEnd()
    Call DBConnEnd()
    Response.write TempStr
%>