yd12300浜戦《绾胯矾(鑲′唤)鏈夐檺鍏徃

asp微信网站建设开发计算二个经纬度之间的距离,在微信平台利用上有用。

时间：2018/8/27 19:14:47 作者：tsccwl 人气：标签：ASP 经纬度之间间的距离微信平台asp经纬度

<% x1=39.9918928 y1=116.3099544 x2=41.8326865 y2=123.4038186 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) %> <% Function Sort(ary) Dim KeepChecking,I,FirstValue,SecondValue KeepChecking = TRUE Do Until KeepChecking = FALSE KeepChecking = FALSE For I = 0 to UBound(ary) If I = UBound(ary) Then Exit For If ary(I) > ary(I+1) Then FirstValue = ary(I) SecondValue = ary(I+1) ary(I) = SecondValue ary(I+1) = FirstValue KeepChecking = TRUE End If Next Loop Sort = ary End Function dim ID,ArrayID,Myarray,M ID="55,48,78,10,90" ArrayID=split(ID,",") 'split得到一个数组 Myarray=Sort(ArrayID) '排序测试 For M=0 To Ubound(Myarray) Response.Write Myarray(M) & "</div>
<div>" & vbCRLF Next Myarray=Array(12,10,25,78,45) Myarray=Sort(ArrayID) '排序测试 For M=0 To Ubound(Myarray) Response.Write Myarray(M) & "</div>
<div>" & vbCRLF Next %>

提示：复制和保存代码功能在FF下无效。

asp微信开发ASP计算二个经纬度这间的距离,在微信平台利用上有用。

确实很实用，开发微信查看附近门店完全可以用到。

上一篇：都说asp网站建设的企业网站安全性差的具体原因是什么呢
下一篇：mysql错误:Column count doesn't match value count at row 1

yd12300浜戦《绾胯矾(鑲′唤)鏈夐檺鍏徃

本站首页

关于我们

新闻中心

网站报价

成功案例

400电话

联系方式