国产偷国产偷亚洲清高app,久久精品日韩免费观看频道,一级黄色片在线播放

asp微信網(wǎng)站建設(shè)開發(fā)計(jì)算二個(gè)經(jīng)緯度之間的距離,在微信平臺利用上有用。

時(shí)間：2018/8/27 19:14:47 作者：tsccwl 人氣：標(biāo)簽：ASP 經(jīng)緯度之間間的距離微信平臺asp經(jīng)緯度

<% 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得到一個(gè)數(shù)組 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 %>

提示：復(fù)制和保存代碼功能在FF下無效。

asp微信開發(fā)ASP計(jì)算二個(gè)經(jīng)緯度這間的距離,在微信平臺利用上有用。

確實(shí)很實(shí)用，開發(fā)微信查看附近門店完全可以用到。

上一篇：都說asp網(wǎng)站建設(shè)的企業(yè)網(wǎng)站安全性差的具體原因是什么呢
下一篇：mysql錯(cuò)誤:Column count doesn't match value count at row 1

本站首頁

關(guān)于我們

新聞中心

網(wǎng)站報(bào)價(jià)

成功案例

400電話

聯(lián)系方式