<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim Conn
dim Connstr
Connstr="driver={SQL Server};server=(local);uid=sa;pwd=sa;database=data"
set Conn=server.createobject("ADODB.ConnECTION")
Conn.Open Connstr
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml" lang="zh">
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8"/>
<title>map point</title>
</head>
<body >
<%
Function GetGeoinfo(address)
dim Url
Url="http://maps.google.com/maps/geo?q="+address+"&output=csv"
dim httpRequest
'set httpRequest=Server.createobject("Microsoft.XMLHTTP")
set httpRequest=Server.CreateObject("MSXML2.XMLHTTP.4.0")
httpRequest.open "GET",Url,false
httpRequest.send()
response.write httpRequest.readystate
if httpRequest.readystate <>4 then
exit function
end If
dim pointxy,pointx,pointy,pointz
pointxy=httpRequest.responseText
pointxy=split(pointxy,",")
pointz=pointxy(1)'精确度
pointx=pointxy(2) '经度
pointy=pointxy(3)'纬度
GetGeoinfo=pointx&","&pointy&"|"&pointz
set httpRequest=nothing
End Function
dim address
dim rs,sql
Set rs=Server.CreateObject("ADODB.recordset")
dim rs2,sql2
Set rs2=Server.CreateObject("ADODB.recordset")
Dim xml ,url
sql="select * from [chi] where point ='0,0' "
rs.open sql,conn,1,1
do while not rs.eof
response.write rs("address")
address=server.URLEncode(rs("address"))'编码处理
point=GetGeoinfo(address)
response.write point
response.write "<br>"
sql2="update [chi] set point='"&mid(point,1,instr(point,"|")-1)&"' , accuracy='"&mid(point,instr(point,"|")+1,len(point)-instr(point,"|")+1)&"' where id ="&rs("id")&""
set rs2=conn.execute(sql2)
rs.movenext
loop
rs.close
set rs =nothing
set rs2 =nothing
set conn=nothing
%>
</body>
</html>