<% x1=104.132726 y1=30.679461 x2=104.130552 y2=30.678786 Const EARTH_RADIUS = 6378.137 Const Pi = 3.1415926535898 Function rad(d) rad = d * Pi / 180 End Function Function GetDistance(lat1, lng1, lat2, lng2) Dim radlat1, radlat2 Dim a, b, s, Temp radlat1 = rad(lat1) radlat2 = rad(lat2) a = radlat1 - radlat2 b = rad(lng1) - rad(lng2) Temp = Sqr(Sin(a / 2) ^ 2 + Cos(radlat1) * Cos(radlat2) * Sin(b / 2) ^ 2) s = 2 * Atn(Temp / Sqr(-Temp * Temp + 1)) s = s * EARTH_RADIUS GetDistance = s End Function response.write GetDistance(x1,y1,x2,y2) %> <input type="text" name="a" id="a" value="" /> 以上是代码 要求：把这个VBSCRIPT的转JAVASCRIPT的，并且将值付给下面的文本框。 由于是代码转换请将正确的代码贴出，测试正确后只发放奖励给第一个正确无误的。 谢谢
2019-09-21 10:09:25