<%
Dim rs,act,province,city,area,sql,mapcenter,aryurl
act=Trim(Request("act"))
province = trim(Request.Form("oprovince"))
city =trim( Request.Form("oCity"))
area = trim(Request.Form("oArea"))
mapcenter="new BMap.Point(116.404, 39.915), 5"
if act="query" and (province<>"省份" or city<>"" or area<>"") Then
' mapcenter=""""&province&" "&city&" "&area&""""
mapcenter=province
sql="Select * From [Flink] Where state=1"
if province<>"" then
sql=sql & " and [province]='"&province&"'"
end if
if city<>"" then
sql=sql & " and [city]='"&city&"'"
end if
if area<>"" then
sql=sql & " and [area]='"&area&"'"
end if
set conn=opendb()
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
response.write("")
i=0
Do while not rs.eof
'aryurl=aryurl+","""+Rs("webname")+""""
aryurl=aryurl+","""+Rs("province")+""""
%>
公司名称: |
<%=rs("webname")%> |
<%if cint(Rs("ishome"))<>1 then%>
公司地址: |
<%=Rs("Url")%> |
联系电话: |
<%=rs("qq")%> |
<%end if%>
联系手机: |
<%=rs("Desc")%> |
<%
i=i+1
rs.movenext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
if aryurl<>"" Then
aryurl=mid(aryurl,2)
End if
%>