想请前辈帮忙把下面这段asp代码改为ajax方式提交数据，目的是把javascript提交到数据库中，小弟先感谢前辈了！

admin 发表于 2010-08-28 | 来源：互联网 | 阅读：

下面源码是：asp调用Google Map Api中的js函数计算数据库中两点经纬度的距离，并把返值存入数据库的功能。想请前辈帮修改为ajax的，想每隔一小时运行一次这页面，实现刷新数据库中数据据的目的。

VBScript code


<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>Google Map Api计算距离</title>
    <script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key=ABQIAAAA-9XCdVovUm991Ek1s6cgdxQxeZ2O7p53-bIxOKwikWnaEuG9JxS3SIpC7vSxeCQoW3L41AQrqZ-HdA &sensor=true_or_false"   type="text/javascript"></script>
</head>

<%
'程序目的：主要是想把定义的两点经纬度数据通过Google Map API的函数计算出两点的距离后提交到服务器的数据库中。
%>

<%
startlat=38.01 '开始定义起始点经纬度，实际是从数据库中读取出来
startlon=104.23
stoplat=29.8
stoplon=103.2
%>

 <script type="text/javascript">
 //通过Google map api的函数计算两个点的距离，返回值是 值是数字distance 。
   var distance = new GLatLng(<%=startlat%>, <%=startlon%>).distanceFrom(new GLatLng(<%=stoplat%>, <%=stoplon%>));
    alert("距离是："+distance);
  </script> 

  <%'到这就不知道应该么办了？目的是把javascript计算出的距离distance的值写入到数据中
  'Set conn = Server.CreateObject("ADODB.Connection")
  'conn.Open "Provider=SQLOLEDB.1; Data Source=localhost; User ID=sa; Password=123456; Initial Catalog=testdata"
  'conn.execute("update 路程 set 当前距离= distance ")
  %>

<body>
</body>
</html>

(只有28分了不好意思)

1楼

八月 28th, 2010 at 6:52 上午 weiwei 说:

Function Arcsin(X)
Arcsin = Atn(X / Sqr(-X * X + 1))
End Function

Const EARTH_RADIUS = 6378.137

Function rad(ByVal d)
rad = d * 3.14159265358979 / 180.0
End Function

Function GetDistance(ByVal lat1, ByVal lng1, ByVal lat2, ByVal lng2)
Dim radLat1, radLat2, a, b, s
radLat1 = rad(lat1)
radLat2 = rad(lat2)
a = radLat1 – radLat2
b = rad(lng1) – rad(lng2)
s = 2 * Arcsin(Sqr((Sin(a/2) ^ 2) + Cos(radLat1) * Cos(radLat2) * (Sin(b/2) ^ 2)))
s = s * EARTH_RADIUS
s = s * 1000
GetDistance = s
End Function

WScript.Echo GetDistance(29.8, 103.2, 38.01, 104.23)

2楼

八月 28th, 2010 at 6:52 上午 红烧生鱼片 说:

写个函数自己用setTimeout(…,3600000)调用自己。ajax自动异步刷新一样的。

3楼

八月 28th, 2010 at 6:52 上午 405290688 说:

VBScript codeFunction Arcsin(X) Arcsin = Atn(X / Sqr(-X * X + 1))End FunctionConst EARTH_RADIUS = 6378.137Function rad(ByVal d) rad = d * 3.14159265358979 / 180.0End Function……感谢精准的回复！

4楼

八月 28th, 2010 at 6:52 上午 kook 说:

写个函数自己用setTimeout(…,3600000)调用自己。ajax自动异步刷新一样的。这也是个好办法，呵呵　！