唐山网站建设,唐山网站制作,唐山做网站,唐山网页设计,唐山网站优化,唐山网络公司,唐山400电话业务 24小时热线:15031560143
关于我们
|
网站模版
|
支付方式
|
网站地图
本站首页
关于我们
新闻中心
网站报价
成功案例
400电话
联系方式
首页
> asp微信网站建设开发计算二个经纬度之间的距离,在微信平台利用上有用。
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) & "
" & vbCRLF Next Myarray=Array(12,10,25,78,45) Myarray=Sort(ArrayID) '排序测试 For M=0 To Ubound(Myarray) Response.Write Myarray(M) & "
" & vbCRLF Next %>
提示:复制和保存代码功能在FF下无效。
asp微信开发ASP计算二个经纬度这间的距离,在微信平台利用上有用。
确实很实用,开发微信查看附近门店完全可以用到。
上一篇:
都说asp网站建设的企业网站安全性差的具体原因是什么呢
下一篇:
mysql错误:Column count doesn't match value count at row 1
地址:中国.唐山市路北区尚座即理工大学对面 中国.河北唐山遵化市
唐山做网站
本站网址:www.tswzsj.com联系电话:0315-6025099 建站热线:15031560143
冀ICP备12014317号-1 版权所有:唐山长城网络 www.tswzsj.com