有一段計算經緯度的代碼：
<%
x1=121.377429
y1=31.214794
x2=121.5758183
y2=31.120784
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 = FormatNumber(s,2)
End Function
response.write GetDistance(x1,y1,x2,y2)
%>
單獨運行正常，可是放到回圈do while ....loop里面的時候，說Function rad(d) 語法錯誤，求解！
uj5u.com熱心網友回復：
回圈中傳入的d的資料型別和值可能不正確。uj5u.com熱心網友回復：
貼出你的錯誤代碼 和錯誤資訊 這樣方便別人查看轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/32039.html
標籤：ASP