library(RCurl)
library(rjson)
url = "http://218.93.33.59:85/map/huzhoumap/ibikestation.asp"
dat = getURL(url,.encoding = 'utf-8')
dat = substr(dat,regexpr("\\[",dat)[1],regexpr("\\]",dat)[1])
p = fromJSON(dat)
bike = do.call(rbind,p)
> head(bike)
id name lat lng address
[1,] 1 "爱山广场西" 30.8686 120.0995 ""
[2,] 2 "爱山广场东" 30.8685 120.1031 ""
[3,] 3 "衣裳街" 30.86485 120.1019 ""
[4,] 4 "铁佛寺" 30.8666 120.0977 ""
[5,] 5 "潘家廊湖鲜街" 30.87206 120.1136 ""
[6,] 6 "全民健身中心" 30.86969 120.1047 ""