<% 'on error resume next key=Request("key") RentalRoad= Request("RentalRoad") RentalXiang = Request("RentalXiang") RentalLong = Request("RentalLong") RentalRoad1= Request("RentalRoad1") RentalXiang1 = Request("RentalXiang1") RentalLong1 = Request("RentalLong1") PAGE = Request("PAGE") IF PAGE = "" THEN PAGE = 1 ELSE PAGE = PAGE END IF Set conn=OpenConn(9) Set rs = Server.CreateObject("ADODB.Recordset") if (RentalRoad ="") and (RentalRoad1="") and (RentalXiang="" ) and (RentalXiang1="" ) and (key= "") and (RentalLong= "")and (RentalLong1= "")then SortSql = "Select * From carfax where (road_no='000')" else SortSql= "Select * From carfax where (road_no <>'000')" end if if key <> "" then SortSql= SortSql+" and( key like '%" & key & "%') or ( road_name like '%" & key & "%')" end if if RentalRoad <> "全部" and RentalRoad <> "" then SortSql =SortSql+" and ((road_name like '%" & RentalRoad & "%') or ( key like '%" & RentalRoad & "%'))" end if if RentalXiang <> "" then RentalXiang_no=RentalXiang+"巷" SortSql = SortSql+" and ((road_name like '%" & RentalXiang_no & "%') or ( key like '%" & RentalXiang_no & "%'))" end if if RentalLong <> "" then RentalLong_no=RentalLong+"弄" SortSql = SortSql+" and ((road_name like '%" & RentalLong_no & "%') or ( key like '%" & RentalLong_no & "%'))" end if if RentalRoad1 <> "全部" and RentalRoad1<> "" then SortSql =SortSql+" and ((road_name like '%" & RentalRoad1 & "%') or ( key like '%" & RentalRoad1 & "%'))" end if if RentalXiang1 <> "" then RentalXiang1_no=RentalXiang1+"巷" SortSql = SortSql+" and ((road_name like '%" & RentalXiang1_no & "%') or ( key like '%" & RentalXiang1_no & "%'))" end if if RentalLong1 <> "" then RentalLong1_no=RentalLong1+"弄" SortSql = SortSql+" and ((road_name like '%" & RentalLong1_no & "%') or ( key like '%" & RentalLong1_no & "%'))" end if rs.Open SortSql, conn, 1,3 RS.PageSize = 10 ' 設定每頁顯示 10 筆 If Not rs.eof Then ' 有資料才執行 RS.AbsolutePage = PAGE ' 將資料錄移至 PAGE 頁 End if %> ::::::大東海生活網::::::
<%Call Top_Menu() '內含兩行%>
<%Call Left_Menu() '含店家徵才、跳蚤市場、地圖街道索引、電子相簿區貼圖區,四行連結%>
 
※ 路口(店家、地標)關鍵字搜尋…
關鍵字:
路段位置:龍井鄉 村  路  (街) 
與 龍井鄉 村  路 (街)  弄 交叉口

        重新搜尋

<% IF RS.EOF then ' 如果沒資料 %> <%Else FOR SH=1 to RS.PageSize ' 顯示資料 %> <% if (rs("pos_x")<> "" or rs("pos_x")=0) and (rs("pos_y")<> "" or rs("pos_y")= 0) then %> <% if rs("pager_3")<> "" then %> <% elseif rs("pager_2") <> "" then %> <% else%> <% end if %> <% else%> <% end if %> <% RS.MoveNext IF RS.EOF THEN EXIT FOR Next end if %>
路段名稱 影 片 地圖位置
未搜尋到符合條件的資料....
<%=rs("road_name")%> ', '','menubar=no,status=no,scrollbars=no,top=0,left=0,toolbar=no,width=350,height=300')"><%=rs("filenamea")%>.asp?Rno=<%=rs("road_no")%>&pos_x=<%=rs("pos_x")%>&pos_y=<%=rs("pos_y")%>')"> .asp?Rno=<%=rs("road_no")%>&<%=rs("pos_x")%>&pos_y=<%=rs("pos_y")%>')">無資料.htm')">
每頁 <%=rs.pageSize%>筆  第 <%=page%>頁  標題有 <%=rs.recordcount%>筆  共有 <%=rs.pagecount%>頁 
<% Call CloseRs(Rs) Call CloseConn(conn) %>


in03-06.gif (243 bytes)
大東海生活資訊網-地圖街道索引-版權所有