asp实现附近商家距离计算

今天接到一个朋友求助，他的项目中有一个功能需要实现附商家商功能，用户搜索后展示了很多商家，想通过“离我最近”功能实现排序，离的近的排在前面，他的程序是asp+sql开发的，找到我帮助写一个功能，我想了想这和去年写的一个功能相似，是一个物流查询系统，当用户搜索，临沂-南京物流时，搜索结果里会有几十家物流企业，点一下“离我最近”就可以按最近的排在前面，最远的排在后面的要求，于是找到去年的代码，帮朋友改了改，利用sql查询地球两个点的距离就可以实现，有可能有人需要这种代码，现在写出来，有需要的拿去用。

sql查询地球两个点的距离

jl="ACOS(SIN((newy * PI()) / 180 ) *SIN((p_y * PI()) / 180 ) * COS((p_y * PI()) / 180 ) *COS((newx * PI()) / 180 - (p_x * PI()) / 180 ) ) * 6370.99681"
sql=" select "&jl&" as test FROM [wlgs] order by test asc"