<%
  '强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
  Response.Buffer = True
  Response.Expires = -1
  Response.ExpiresAbsolute = Now() - 1
  Response.Expires = 0
  Response.CacheControl = "no-cache"
%>

<!--#include file="ibikeConn.asp"-->
<%
  dim code
  code = Request.querystring("code")
  if code="1" then
    Session.CodePage="936"
  else
    Session.CodePage="65001"    
  end if
%>
<%
  remoteaddr =Request.ServerVariables("REMOTE_ADDR") 

  dim ipconn,iprd,sendnumber
  set ipconn = Server.CreateObject("ADODB.Connection")  
  ipconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&"IpCount.mdb"&"") 

  dim ip
  ip = Trim(remoteaddr)  
  if ip<>"" then  
     set iprd =server.CreateObject("adodb.recordset")
     iprd.open "select * from IPInfo where ip=""" & ip & """",ipconn,1,3   
     if iprd.RecordCount=0 then 
       iprd.AddNew
       iprd("ip")  = ip
       iprd("count") = 1
       iprd("lasttime") = now()
       iprd.update
       iprd.close
     else
       iprd("count") = iprd("count") + 1
       iprd("lasttime") = now()
       iprd.update
       iprd.close
     end if     
  end if  
  ipconn.close

  sendnumber = 1
  if (InStr(remoteaddr, "218.93.33.59")>0)   then 
     sendnumber = 1   
  end if 

  dim rd,i
  dim id,wherestr
  
  set rd=server.CreateObject("adodb.recordset")

  id =Request.querystring("id")
  wherestr =""   

  if id="" then
    Response.Write "var ibike = "
  else  
    Response.Write "var isinglebike = "
    wherestr=" where id=" & id
  end if
  
  Response.Write "{ ""station"":["  
  rd.Open "select * from station " & wherestr  & " order by id",conn,1,1   

  do while not rd.Eof
     Response.Write "{""id"": " & rd("id") &", ""name"": """ 
     response.Write  Replace(rd("name"),vbcrlf,"") & """, ""lat"": " & rd("lat")  & ", ""lng"": " & rd("lng")      
     if sendnumber=0 then
       response.Write ", ""capacity"": " & rd("capacity") & ", ""availBike"": " & rd("availBike") 
     end if
     response.Write ",""address"": """ & Replace(rd("address"),vbcrlf,"") & """} "

    rd.MoveNext
    if not rd.eof then
      Response.Write ","
    end if
  loop

  rd.Close
  Response.Write "] }" 
  set rd=nothing  

  Call CloseConn() 
%>