从国际地图审核系统抓取以审查结束的单号信息：
国家地图审核系统
require(RCurl)
require(XML)
url_head <- "http://dtsh.nasg.gov.cn/gjchjPub/Top.htm"
url_data <- "http://dtsh.nasg.gov.cn/gjchjPub/WebService/MainService.asmx/GetXzxkjgList"
ch <- getCurlHandle()
curlSetOpt(curl = ch,
useragent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.89 Safari/537.36",
timeout = 60,
#host = "http://dtsh.nasg.gov.cn",
followlocation = TRUE)
d <- debugGatherer()
params<-list(strIID = "",
strName = "",
strRequestStartDate = "2015-9-21",
strRequestEndDate = "2015-10-21")
tmp <- getURL(url_head, curl = ch, verbose= TRUE, debugfunction = d$update)
page <- postForm(url_data, .params = params, curl = ch,
.opts = list(debugfunction = d$update,verbose = TRUE), style = "post")
Internal Server Error
