📄 company.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
字号:
<!--#include file="../../../inc/Conn.asp"-->
<!--#include file="../../../Inc/Cls.Common.asp"-->
<!--#include file="../../../Inc/Cls.Templates.asp"-->
<body style="margin:0">
<style>
A.white  	{COLOR: #FFFFFF; TEXT-DECORATION: none}
A.white:link	{COLOR: #FFFFFF; TEXT-DECORATION: none}
A.white:visited{COLOR: #FFFFFF; TEXT-DECORATION: none}
A.white:hover	{COLOR: yellow; TEXT-DECORATION: none}
A.white:active	{TEXT-DECORATION: none}
body,td{font-size:12px}
</style>
<%
    Response.Buffer = True
    Response.Expires = -1
    Response.ExpiresAbsolute = Now() - 1
    Response.Expires = 0
    Response.CacheControl = "no-cache"

Dim xy,i,n,LastPhoto,dj,SortID,SortSmallID,ComSSort,City
xy = Request("xy")
If xy <> "" Then dj = 2 Else dj = 5
SortID = WRMPS.CheckStr(Request("Sort"),1)
SortSmallID = WRMPS.CheckStr(Request("SortSmall"),1)

If MyCityID > 0 and xy = "" Then
	Call DBConnBegin()
    Set Rs = Conn.Execute("Select WM_Map from WM_Area Where WM_ID="&MyCityID)
	If Not Rs.Eof Then
	  xy = Rs(0)
	End If
	Rs.Close
End If
If xy = "" Or IsNull(xy) Then xy = WR_Area(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
	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
End If

Select Case ConnTypeStr
  Case 0
    SQL = "Select top 20 WM_ID,WM_Company,WM_Coordinate,WM_LastPhoto,WM_Phone,WM_Address,WM_Intro from WM_Company where "&SQL&" and WM_Coordinate Is Not Null and WM_Coordinate <> '' Order By WM_ID Desc"
  Case 1
    SQL = "Select top 20 WM_ID,WM_Company,WM_Coordinate,WM_LastPhoto,WM_Phone,WM_Address,WM_Intro from WM_Company where "&SQL&" and WM_Coordinate Is Not Null and WM_Coordinate <> '' Order By WM_ID Desc"
End Select
Set Rs = server.createobject("adodb.recordset")
Rs.Open Sql,Conn,1,1
%>
<script language="javascript" src=" http://api.51ditu.com/js/maps.js "></script>
<script language="javascript" src="http://api.51ditu.com/js/ezmarker.js"></script>
<div style='position:absolute;bottom:0px;padding:2px;text-align:center;height:18px;width:200px;background-color:red;z-index:1000;font-size:12px; overflow: hidden'><a href=http://www.wangren.net target=_blank onfocus="this.blur()"><font color=#FFFFFF>&#x7F51;&#x4EBA;&#x79D1;&#x6280; (&#x5206;&#x7C7B;)&#x4FE1;&#x606F;&#x53D1;&#x5E03;&#x7CFB;&#x7EDF;&#x4E13;&#x5BB6;</font></a></div>
<div id="myMap" style="width:100%; height:100%;"></div>
<script language="javascript">
var maps = new LTMaps( "myMap" );
var icon = new LTIcon();
icon.setImageUrl('../centerPoi.gif');
var point = new LTPoint(<%=xy%>)
maps.centerAndZoom (point ,<%=dj%>);
<%
  Do While Not Rs.EOF
  N = N + 1
    LastPhoto = Rs(3)
	If LastPhoto = "" Or IsNull(LastPhoto) Then LastPhoto = WR_Setting(3)&"Skins/"&WR_Setting(5)&"/nopic.gif" Else LastPhoto = WRMPS.CheckStr(LastPhoto,5)
%>
var marker<%=n%> = new LTMarker( new LTPoint(<%=Rs(2)%>) );
maps.addOverLay( marker<%=n%> );
var text<%=n%> = new LTMapText( marker<%=n%>);
text<%=n%>.setLabel("<div style='padding:3px;background:red'><a href=<%=WRMPS.GetCompanyUrl(Rs(0))%> target=_blank class=white><%=Rs(1)%></a></div>"); 
maps.addOverLay( text<%=n%>); 
LTEvent.addListener( marker<%=n%> , "mouseover" , function(){ marker<%=n%>.openInfoWinHtml("<table width='300' border='0' cellspacing='0' cellpadding='3'><tr><td colspan='2'><a href=<%=WRMPS.GetCompanyUrl(Rs(0))%> target=_blank class=white><span style='FONT-FAMILY: \"黑体\";font-weight:bold;color:red;font-size:14px'><%=Rs(1)%></span></a></td></tr><tr><td width='80' rowspan='3' align=center><div style='padding:3px;border:1px #CCCCCC Solid;'><a href=<%=WRMPS.GetCompanyUrl(Rs(0))%> target=_blank><img src=<%=LastPhoto%> border=0 onload='javascript:DrawImage(this,80,60)'></a></div></td><td width=220 height=20>电话：<%=Rs(4)%></td></tr><tr><td height=20>地址：<%=Rs(5)%></td></tr><tr><td height=40>　　<%=WRMPS.GotTopic(WRMPS.LeachHTML(Rs(6)),50,1)%></td></tr></table>") } );
<%
  Rs.MoveNext
  Loop
%>
maps.handleMouseScroll();//鼠标滚轮支持
var control1 = new LTStandMapControl();//标准缩放控件
maps.addControl( control1 );
</script>
<%
Rs.Close
Set Rs = Nothing
Call ClassEnd()
Call DBConnEnd()
%>
<script>
//设定图片显示尺寸
var flag=false; 
function DrawImage(ImgD,w,h){ 
var image=new Image(); 
image.src=ImgD.src; 
if(image.width>0 && image.height>0){ 
  flag=true; 
  if(image.width/image.height>= w/h){ 
    if(image.width>w){ 
      ImgD.width=w; 
      ImgD.height=(image.height*w)/image.width; 
    }else{ 
      ImgD.width=image.width; 
      ImgD.height=image.height; 
    } 
  }else{ 
    if(image.height>h){ 
      ImgD.height=h; 
      ImgD.width=(image.width*h)/image.height; 
    }else{ 
      ImgD.width=image.width; 
      ImgD.height=image.height; 
    } 
  } 
} 
} 

</script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -