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"-->
<%
	SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>,<a href="&WR_Setting(3)&ChannelDir&"/Map/>按地图查看店铺</a>"
	SitePath = WRMPS.GetSitePath(0,SitePath)

	Call DBConnBegin()
	Call WRMPS.FsoBegin()
	TempStr = WRTemp.SiteTemplates(1,0,71,ChannelID)
	Call WRMPS.FsoEnd()
	Dim KeyList,i,ComList,ComSort,SortID,SQL1,SortSmallID,ComSSort,City
	Key = WRMPS.CheckStr(Request("Key"),0)
	City = WRMPS.CheckStr(Request("City"),1)
	SortID = WRMPS.CheckStr(Request("Sort"),1)
	SortSmallID = WRMPS.CheckStr(Request("SortSmallID"),1)
	
	If SortID <> "" Then
      If SortSmallID <> "" Then SQL = " WM_ClassID in("&SortSmallID&")" Else SQL = " WM_ClassID in("&WRDB.GetChildClass(SortID,"WM_CompanySort")&")"
	End If
	If City > 0 Then
	  If SQL <> "" Then SQL = SQL & " and WM_AreaID="&City Else SQL = " WM_AreaID="&City
	Else
      If MyCityID > 0 Then If SQL <> "" Then SQL = SQL & " and WM_AreaID="&MyCityID Else SQL = " WM_AreaID="&MyCityID
	End If
    If SQL <> "" Then SQL = SQL & " and WM_Key=1" Else SQL = " WM_Key=1"
	
	If Key <> "" Then
      Key = Replace(Key,"[","")
      Key = Replace(Replace(Key," ","+"),"&nbsp;","+")
      Key = Key &"+"
	  KeyList = Split(Key,"+")
      For i=0 To Ubound(KeyList)
	    If KeyList(i) <> "" Then
		  If SQL1 = "" Then SQL1 = "WM_Company like'%"&KeyList(i)&"%'" Else SQL1 = SQL1 & " Or WM_Company like'%"&KeyList(i)&"%'"
		End If
	  Next
	  If SQL1 <> "" Then SQL = SQL&" and ("&SQL1&")"
	End If
	Select Case ConnTypeStr
 	 Case 0
	    SQL = "Select top 20 WM_Company,WM_Coordinate from WM_Company where "&SQL&" and WM_Coordinate Is Not Null and WM_Coordinate <> '' Order By iif(WM_aZTop>="&ConnTime&",WM_aZTop,) Desc,WM_ID Desc"
	  Case 1
	    SQL = "Select top 20 WM_Company,WM_Coordinate from WM_Company where "&SQL&" and WM_Coordinate Is Not Null and WM_Coordinate <> '' Order By Case when WM_aZTop>="&ConnTime&" Then WM_aZTop End Desc,WM_ID Desc"
	End Select
    Set Rs = server.createobject("adodb.recordset")
    Rs.Open Sql,Conn,1,1
	i = 0
	Do While Not Rs.Eof
	  i = i + 1
	  ComList = ComList & "<div class=ComMap><div class=ComMapNumCSS>"&i&"</div> <a href=# onclick=""javascript:window.open('"&WR_Setting(3)&"Plus/Map/"&WR_Other(12)&"/Company.asp?xy="&Rs(1)&"&Key="&Key&"','map')"">"&Rs(0)&"</a></div>"
	Rs.Movenext
	Loop
	Rs.Close
	
	ComSort = "":ComSSort = ""
	Set Rs = Conn.Execute("Select WM_ID,WM_Name From WM_CompanySort Where WM_ParentID = 0 Order By WM_ClassID,WM_Taxis")
	Do While Not Rs.Eof
	  ComSort = ComSort &"<li><a href=?Sort="&Rs(0)&">"
	  If Rs(0) = Int(SortID) Then ComSort = ComSort &"<font color=red>"&Rs(1)&"</font>" Else ComSort = ComSort &Rs(1)
	  ComSort = ComSort &"</a></li>"
	Rs.Movenext
	Loop
	Rs.Close
	
	If SortID <> "" Then
	  Set Rs = Conn.Execute("Select WM_ID,WM_Name From WM_CompanySort Where WM_ParentID = "&SortID&" Order By WM_ClassID,WM_Taxis")
	  Do While Not Rs.Eof
	    ComSSort = ComSSort &"<li><a href=?Sort="&SortID&"&SortSmallID="&Rs(0)&">"
	    If Rs(0) = Int(SortSmallID) Then ComSSort = ComSSort &"<font color=red>"&Rs(1)&"</font>" Else ComSSort = ComSSort &Rs(1)
        ComSSort = ComSSort &"</a></li>"
	  Rs.Movenext
	  Loop
	  Rs.Close
	End If
	
	
	Set Rs = Nothing
	ComSort = "<div Class=ComMapSort><ul>"&ComSort&"</ul></div>"
	If ComSSort <> "" Then ComSort = ComSort & "<div class=divline></div><div Class=ComMapSSort><ul>"&ComSSort&"</ul></div>"
	
    TempStr = WRMPS.GetReplace(TempStr,"{$MapComSort}",ComSort)
    TempStr = WRMPS.GetReplace(TempStr,"{$MapComList}",ComList)
    TempStr = WRMPS.GetReplace(TempStr,"{$MapKey}",Key)
    TempStr = WRMPS.GetReplace(TempStr,"{$Sort}",SortID)
    TempStr = WRMPS.GetReplace(TempStr,"{$SortSmall}",SortSmallID)
    TempStr = WRMPS.GetReplace(TempStr,"{$MapComKey}",WRMPS.GetReplace(Key,"+"," "))
	
	TempStr = WRTemp.SiteChannel(TempStr)
	TempStr = WRTemp.SiteLabel(TempStr)

	Call ClassEnd()
    Call DBConnEnd()
	Response.write TempStr
%>