public static double GetDistance(double lat1, double lng1, double lat2, double lng2)
{
   double radLat1 = rad(lat1);
   double radLat2 = rad(lat2);
   double a = radLat1 - radLat2;
   double b = rad(lng1) - rad(lng2);
   double s = 2 * Math.Asin(Math.Sqrt(Math.Pow(Math.Sin(a/2),2) +
    Math.Cos(radLat1)*Math.Cos(radLat2)*Math.Pow(Math.Sin(b/2),2)));
   s = s * EARTH_RADIUS;
   s = Math.Round(s * 10000) / 10000;
   return s;
}

vb代码

A（60，30），B（60，90）两点之间，此段代码和我用余弦定理算出来的结果很一致。
余弦定理的步骤是：1、算A、B弦长：地球半径R*cos（经度差60）=R/2；
2、算角AOB,O为地球圆心，利用余弦定理，
cosAOB=(2R*R-(R/2)^2) /2*R*R=7/8;
3、弧AB的长为：R*arc cos(7/8);求毕

原理:

地球赤道上环绕地球一周走一圈共40075.04公里,而@一圈分成360°,而每1°(度)有60,每一度一秒在赤道上的长度计算如下：

　　40075.04km/360°=111.31955km

　　111.31955km/60=1.8553258km=1855.3m

　　而每一分又有60秒,每一秒就代表1855.3m/60=30.92m

　　任意两点距离计算公式为

　　d＝111.12cos{1/[sinΦAsinΦB十cosΦAcosΦBcos(λB—λA)]}

　　其中A点经度，纬度分别为λA和ΦA，B点的经度、纬度分别为λB和ΦB，d为距离。

1.JMS
   JAVA 消息服务(JMS)定义了Java 中访问消息中间件的接口。JMS 只是接口，并没有给予实现，实现JMS 接口的消息中间件称为JMS Provider，iLink实现了JMS接口，用户可以通过使用JMS接口，在iLink中进行JMS编程。 iLink支持JMS1.0.2版本。

2.JMS接口描述
   JMS 支持两种消息类型PTP 和Pub/Sub，分别称作：PTP Domain 和Pub/Sub Domain，这两种接口都继承统一的JMS父接口，JMS 主要接口如下所示：

MS父接口 PTP Pub/Sub ConnectionFactory QueueConnectionFactory TopicConnectionFactory Connection QueueConnection TopicConnection Destination Queue Topic Session QueueSession TopicSession MessageProducer QueueSender TopicPublisher MessageConsumer QueueReceiver,QueueBrowser TopicSubscriber

                    
   ConnectionFactory ：连接工厂，JMS 用它创建连接
   Connection ：JMS 客户端到JMS Provider 的连接
   Destination ：消息的目的地
   Session： 一个发送或接收消息的线程
   MessageProducer： 由Session 对象创建的用来发送消息的对象
   MessageConsumer： 由Session 对象创建的用来接收消息的对象

3.JMS消息模型
JMS 消息由以下几部分组成：消息头，属性，消息体。
  
3.1 消息头(Header) - 消息头包含消息的识别信息和路由信息，消息头包含一些标准的属性如：JMSDestination,JMSMessageID 等。

消息头  由谁设置 JMSDestination send 或 publish 方法 JMSDeliveryMode send 或 publish 方法 JMSExpiration send 或 publish 方法 JMSPriority send 或 publish 方法 JMSMessageID send 或 publish 方法 JMSTimestamp send 或 publish 方法 JMSCorrelationID 客户 JMSReplyTo 客户 JMSType 客户 JMSRedelivered JMS Provider

      
3.2 属性(Properties) - 除了消息头中定义好的标准属性外，JMS 提供一种机制增加新属性到消息头中，这种新属性包含以下几种：
   1. 应用需要用到的属性;
   2. 消息头中原有的一些可选属性;
   3. JMS Provider 需要用到的属性。
   标准的JMS 消息头包含以下属性：

JMSDestination 消息发送的目的地 JMSDeliveryMode 传递模式， 有两种模式： PERSISTENT 和NON_PERSISTENT，PERSISTENT 表示该消息一定要被送到目的地，否则会导致应用错误。NON_PERSISTENT 表示偶然丢失该消息是被允许的，这两种模式使开发者可以在消息传递的可靠性和吞吐量之间找到平衡点。 JMSMessageID 唯一识别每个消息的标识，由JMS Provider 产生。 JMSTimestamp 一个消息被提交给JMS Provider 到消息被发出的时间。 JMSCorrelationID 用来连接到另外一个消息，典型的应用是在回复消息中连接到原消息。 JMSReplyTo 提供本消息回复消息的目的地址 JMSRedelivered 如果一个客户端收到一个设置了JMSRedelivered 属性的消息，则表示可能该客户端曾经在早些时候收到过该消息，但并没有签收(acknowledged)。 JMSType 消息类型的识别符。 JMSExpiration 消 息过期时间，等于QueueSender 的send 方法中的timeToLive 值或TopicPublisher 的publish 方法中的timeToLive 值加上发送时刻的GMT 时间值。如果timeToLive值等于零，则JMSExpiration 被设为零，表示该消息永不过期。如果发送后，在消息过期时间之后消息还没有被发送到目的地，则该消息被清除。 JMSPriority 消息优先级，从0-9 十个级别，0-4 是普通消息，5-9 是加急消息。JMS 不要求JMS Provider 严格按照这十个优先级发送消息，但必须保证加急消息要先于普通消息到达。

3.3 消息体(Body) - JMS API 定义了5种消息体格式，也叫消息类型，你可以使用不同形式发送接收数据并可以兼容现有的消息格式，下面描述这5种类型：

消息类型 消息体 TextMessage java.lang.String对象，如xml文件内容 MapMessage 名/值对的集合，名是String对象，值类型可以是Java任何基本类型 BytesMessage 字节流 StreamMessage Java中的输入输出流 ObjectMessage Java中的可序列化对象 Message 没有消息体，只有消息头和属性

下例演示创建并发送一个TextMessage到一个队列：
TextMessage message = queueSession.createTextMessage();
message.setText(msg_text); // msg_text is a String
queueSender.send(message);

下例演示接收消息并转换为合适的消息类型：
Message m = queueReceiver.receive();
if (m instanceof TextMessage) {
 TextMessage message = (TextMessage) m;
 System.out.println("Reading message: " + message.getText());
} else {
 // Handle error
}

4. 消息的同步异步接收
   消息的同步接收是指客户端主动去接收消息，JMS 客户端可以采用MessageConsumer 的receive方法去接收下一个消息。
   消息的异步接收是指当消息到达时，主动通知客户端。JMS 客户端可以通过注册一个实 现MessageListener 接口的对象到MessageConsumer，这样，每当消息到达时，JMS Provider 会调用MessageListener中的onMessage 方法。


5. PTP模型
PTP(Point-to-Point)模型是基于队列的，发送方发消息到队列，接收方从队列接收消息，队列的存在使得消息的异步传输成为可能。和邮件系统中的邮箱一样，队列可以包含各种消息，JMS Provider 提供工具管理队列的创建、删除。JMS PTP 模型定义了客户端如何向队列发送消息，从队列接收消息，浏览队列中的消息。
   下面描述JMS PTP 模型中的主要概念和对象：

名称 描述 Queue 由JMS Provider 管理，队列由队列名识别，客户端可以通过JNDI 接口用队列名得到一个队列对象。 TemporaryQueue 由QueueConnection 创建，而且只能由创建它的QueueConnection 使用。 QueueConnectionFactory 客户端用QueueConnectionFactory 创建QueueConnection 对象。 QueueConnection 一个到JMS PTP provider 的连接，客户端可以用QueueConnection 创建QueueSession 来发送和接收消息。 QueueSession 提供一些方法创建QueueReceiver 、QueueSender、QueueBrowser 和TemporaryQueue。如果在QueueSession 关闭时，有一些消息已经被收到，但还没有被签收(acknowledged)，那么，当接收者下次连接到相同的队列时，这些消息还会被再次接收。 QueueReceiver 客户端用QueueReceiver 接收队列中的消息，如果用户在QueueReceiver 中设定了消息选择条件，那么不符合条件的消息会留在队列中，不会被接收到。 QueueSender 客户端用QueueSender 发送消息到队列。 QueueBrowser 客户端可以QueueBrowser 浏览队列中的消息，但不会收走消息。 QueueRequestor JMS 提供QueueRequestor 类简化消息的收发过程。QueueRequestor 的构造函数有两个参数：QueueSession 和queue，QueueRequestor 通过创建一个临时队列来完成最终的收发消息请求。 可靠性(Reliability) 队列可以长久地保存消息直到接收者收到消息。接收者不需要因为担心消息会丢失而时刻和队列保持激活的连接状态，充分体现了异步传输模式的优势。

        
      
  
 

6. PUB/SUB模型
JMS Pub/Sub 模型定义了如何向一个内容节点发布和订阅消息，这些节点被称作主题(topic)。
   主题可以被认为是消息的传输中介，发布者(publisher)发布消息到主题，订阅者(subscribe) 从主题订阅消息。主题使得消息订阅者和消息发布者保持互相独立，不需要接触即可保证消息的传送。
   下面描述JMS Pub/Sub 模型中的主要概念和对象：

名称 描述 订阅(subscription) 消 息订阅分为非持久订阅(non-durable subscription)和持久订阅(durable subscrip-tion)，非持久订阅只有当客户端处于激活状态，也就是和JMS Provider 保持连接状态才能收到发送到某个主题的消息，而当客户端处于离线状态，这个时间段发到主题的消息将会丢失，永远不会收到。持久订阅时，客户端向JMS 注册一个识别自己身份的ID，当这个客户端处于离线时，JMS Provider 会为这个ID 保存所有发送到主题的消息，当客户再次连接到JMS Provider时，会根据自己的ID 得到所有当自己处于离线时发送到主题的消息。 Topic 主题由JMS Provider 管理，主题由主题名识别，客户端可以通过JNDI 接口用主题名得到一个主题对象。JMS 没有给出主题的组织和层次结构的定义，由JMS Provider 自己定义。 TemporaryTopic 临时主题由TopicConnection 创建，而且只能由创建它的TopicConnection 使用。临时主题不能提供持久订阅功能。 TopicConnectionFactory 客户端用TopicConnectionFactory 创建TopicConnection 对象。 TopicConnection TopicConnection 是一个到JMS Pub/Sub provider 的连接，客户端可以用TopicConnection创建TopicSession 来发布和订阅消息。 TopicSession TopicSession 提供一些方法创建TopicPublisher、TopicSubscriber、TemporaryTopic 。它还提供unsubscribe 方法取消消息的持久订阅。 TopicPublisher 客户端用TopicPublisher 发布消息到主题。 TopicSubscriber 客户端用TopicSubscriber 接收发布到主题上的消息。可以在TopicSubscriber 中设置消息过滤功能，这样，不符合要求的消息不会被接收。 Durable TopicSubscriber 如果一个客户端需要持久订阅消息，可以使用Durable TopicSubscriber，TopSession 提供一个方法createDurableSubscriber创建Durable TopicSubscriber 对象。 恢复和重新派送(Recovery and Redelivery) 非持久订阅状态下，不能恢复或重新派送一个未签收的消息。只有持久订阅才能恢复或重新派送一个未签收的消息。 TopicRequestor JMS 提供TopicRequestor 类简化消息的收发过程。TopicRequestor 的构造函数有两个参数：TopicSession 和topic。TopicRequestor 通过创建一个临时主题来完成最终的发布和接收消息请求。 可靠性(Reliability) 当所有的消息必须被接收，则用持久订阅模式。当丢失消息能够被容忍，则用非持久订阅模式。

 
 
 
 
 
 
 
 
 
7. 开发JMS的步骤
   广义上说，一个JMS 应用是几个JMS 客户端交换消息，开发JMS 客户端应用由以下几步构成：
用JNDI 得到ConnectionFactory 对象；
用JNDI 得到目标队列或主题对象，即Destination 对象；
用ConnectionFactory 创建Connection 对象；
用Connection 对象创建一个或多个JMS Session；
用Session 和Destination 创建MessageProducer 和MessageConsumer；
通知Connection 开始传递消息。

    本来调试好的jsp脚本，突然就访问不了数据库了，郁闷了半个下午，结果是windows 2003自作主张的封掉了sqlserver 2000可能存在漏洞的端口，导致我访问数据库的时候出现 Error establishing socket

    所以提醒大家，有这种错误的时候，检查sql server sp3补丁

第一步，安装jdk1.2.2

执行 jdk-1_2_2_008-win.exe ，将jdk1.2.2安装到硬盘
-------说明：把jdk安装到C盘或D盘都可以，这里假设安装在D盘 d:\jdk

如图中红圈标示位置：

经过几步之后选择JAVA运行环境的安装位置，直接选“next”安装：

jdk安装完毕后重新启动电脑

第二步，设置环境变量

右键“我的电脑”，选 属性 -> 高级 -> 环境变量
在“系统变量”处设置如下几个变量：

A. CLASSPATH =d:\jdk\lib\dt.jar;d:\jdk\lib\tools.jar
B. JAVA_HOME =d:\jdk
C. 在 path 的值中添加 d:\jdk\;d:\jdk\bin;

如图：

第三步，配置resin

拷贝resin目录到D盘根目录，如图：

执行d:\resin\bin\httpd.exe，弹出两个窗口，先不要关掉，如果像下图这样就对了：

此时请打开浏览器敲入http://127.0.0.1:8080/，应可看到如下画面：

在D盘建立 d:\inetpub\wwwroot 和 d:\inetpub\scripts目录

在internet服务管理器中将主目录指向以wwwroot，另建一个script目录，指向到scripts，如果原来就有目录，则不必新建，确认其可正常工作就可以了

关闭iis：先关掉httpd.exe窗口，另一个窗口将自动关掉

运行：net stop w3svc

拷贝 D:\resin\libexec\isapi_srun.dll 到 D:\Inetpub\scripts 下面

添加isapi筛选器：

该筛选器添加后，优先级为“* 未知 *”，不要理它，继续下面的工作

在 d:\inetpub\scripts 目录下建立 resin.ini 文件，内容如下：
CauchoConfigFile d:/resin/conf/resin.conf

修改 d:\resin\conf\resin.conf：
寻找“<caucho.com>”，一般是第20行左右，在它下面加入“<iis priority='high'/>”寻找“<doc-dir>doc</doc-dir>”，一般是在第67行左右，把它注释掉：
“<!-- <doc-dir>doc</doc-dir> -->”

将其上方的“<http-server>”改为
“<http-server app-dir='d:\inetpub\wwwroot'>”

到第178行左右，将
<servlet-mapping url-pattern='*.xtp' servlet-name='xtp'/>
<servlet-mapping url-pattern='*.jsp' servlet-name='jsp'/>
换成
<servlet-mapping url-pattern='*.xtp' servlet-name='com.caucho.jsp.XtpServlet'/>
<servlet-mapping url-pattern='*.jsp' servlet-name='com.caucho.jsp.JspServlet'/>
<!--
<servlet-mapping url-pattern='*.xtp' servlet-name='xtp'/>
<servlet-mapping url-pattern='*.jsp' servlet-name='jsp'/>
-->
绿色部分删掉也可以，保留原来的是为了和原配置相对照

安装服务：
在Dos窗口中执行 d:\resin\bin\httpd -install 后，弹出一个小窗口提示服务添加成功

此时查看控制面板->管理工具->服务，应该已经有“Resin Web Server”服务了，找到并手工启动它，只此一次，以后就不用手工启动了

删除Resin Web Server服务方法：运行 d:\resin\bin\httpd -remove

运行：net start w3svc

重启电脑

在当前站点名称上右键打开属性面板

按下图顺序设置

第7步应选择d:\inetpub\scripts目录下的isapi_srun.dll

然后启动当前站点，

再查看isapi筛选器，jsp筛选器的优先级应该变为“高”了，如下图。否则重做，直到做对为止

设置默认文档：

测试jsp程序：
将下列暗红色代码写入index.jsp文件并存入 d:\inetpub\wwwroot 目录下

<%@ page contentType="text/html;charset=gb2312"%>
<%
int a=1;
int b=4;
%>
<%=(a+b)%>

在浏览器中输入：http://10.20.128.20 如果页面上显示“5”，就大功告成了！

如果没有启动resin。将得到下面的错误信息：Can't contact Servlet Runner at localhost:6802

启动iis : net start w3svc

停止iis : net stop w3svc

安装resin服务 : d:\resin\bin\httpd –install

 package filters;
/*
* XP Forum
*
* Copyright (c) 2002-2003 RedSoft Group. All rights reserved.
*
*/

import javax.servlet.*;
import java.io.IOException;

/**
* <p>Filter that sets the character encoding to be used in parsing the
* incoming request, either unconditionally or only if the client did not
* specify a character encoding. Configuration of this filter is based on
* the following initialization parameters:</p>
* <ul>
* <li><strong>encoding</strong> - The character encoding to be configured
* for this request, either conditionally or unconditionally based on
* the <code>ignore</code> initialization parameter. This parameter
* is required, so there is no default.</li>
* <li><strong>ignore</strong> - If set to "true", any character encoding
* specified by the client is ignored, and the value returned by the
* <code>selectEncoding()</code> method is set. If set to "false,
* <code>selectEncoding()</code> is called <strong>only</strong> if the
* client has not already specified an encoding. By default, this
* parameter is set to "true".</li>
* </ul>
*
* <p>Although this filter can be used unchanged, it is also easy to
* subclass it and make the <code>selectEncoding()</code> method more
* intelligent about what encoding to choose, based on characteristics of
* the incoming request (such as the values of the <code>Accept-Language</code>
* and <code>User-Agent</code> headers, or a value stashed in the current
* user's session.</p>
*
* @author <a href="mailto:jwtronics@yahoo.com">John Wong</a>
*
* @version $Id: SetCharacterEncodingFilter.java,v 1.1 2002/04/10 13:59:27 johnwong Exp $
*/
public class SetCharacterEncodingFilter
   implements Filter {

// ----------------------------------------------------- Instance Variables

 /**
  * The default character encoding to set for requests that pass through
  * this filter.
  */
 protected String encoding = null;

 /**
  * The filter configuration object we are associated with. If this value
  * is null, this filter instance is not currently configured.
  */
 protected FilterConfig filterConfig = null;

 /**
  * Should a character encoding specified by the client be ignored?
  */
 protected boolean ignore = true;

// --------------------------------------------------------- Public Methods

 /**
  * Take this filter out of service.
  */
 public void destroy() {

   this.encoding = null;
   this.filterConfig = null;

 }

 /**
  * Select and set (if specified) the character encoding to be used to
  * interpret request parameters for this request.
  *
  * @param request The servlet request we are processing
  * @param result The servlet response we are creating
  * @param chain The filter chain we are processing
  *
  * @exception IOException if an input/output error occurs
  * @exception ServletException if a servlet error occurs
  */
 public void doFilter(ServletRequest request, ServletResponse response,
                      FilterChain chain) throws IOException, ServletException {

// Conditionally select and set the character encoding to be used
   if (ignore || (request.getCharacterEncoding() == null)) {
     String encoding = selectEncoding(request);
     if (encoding != null) {
       request.setCharacterEncoding(encoding);
     }
   }

// Pass control on to the next filter
   chain.doFilter(request, response);

 }

 /**
  * Place this filter into service.
  *
  * @param filterConfig The filter configuration object
  */
 public void init(FilterConfig filterConfig) throws ServletException {

   this.filterConfig = filterConfig;
   this.encoding = filterConfig.getInitParameter("encoding");
   String value = filterConfig.getInitParameter("ignore");
   if (value == null) {
     this.ignore = true;
   }
   else if (value.equalsIgnoreCase("true")) {
     this.ignore = true;
   }
   else if (value.equalsIgnoreCase("yes")) {
     this.ignore = true;
   }
   else {
     this.ignore = false;
   }

 }

// ------------------------------------------------------ Protected Methods

 /**
  * Select an appropriate character encoding to be used, based on the
  * characteristics of the current request and/or filter initialization
  * parameters. If no character encoding should be set, return
  * <code>null</code>.
  * <p>
  * The default implementation unconditionally returns the value configured
  * by the <strong>encoding</strong> initialization parameter for this
  * filter.
  *
  * @param request The servlet request we are processing
  */
 protected String selectEncoding(ServletRequest request) {

   return (this.encoding);

 }

} //EOC

web.xml 中的配置:

 <filter>
   <filter-name>Set Character Encoding</filter-name>
   <filter-class>filters.SetCharacterEncodingFilter</filter-class>
   <init-param>
     <param-name>encoding</param-name>
     <param-value>GB2312</param-value>
   </init-param>
   <init-param>
     <param-name>ignore</param-name>
     <param-value>true</param-value>
   </init-param>
 </filter> 

 <filter-mapping>
   <filter-name>Set Character Encoding</filter-name>
   <servlet-name>action</servlet-name>
 </filter-mapping> 

 <servlet>
   <servlet-name>action</servlet-name>
   <servlet-class>org.apache.struts.action.ActionServlet</servlet-class>
.... 

测试通过.

<filter>
   <filter-name>EncodingFilter</filter-name>
   <display-name>EncodingFilter</display-name>
   <description>no description</description>
   <filter-class>com.zhaoqi.util.EncodingFilter</filter-class>
   <init-param>
     <param-name>encoding</param-name>
     <param-value>GB2312</param-value>
   </init-param>
 </filter>
 <filter-mapping>
   <filter-name>EncodingFilter</filter-name>
   <url-pattern>/*</url-pattern>
 </filter-mapping>

看 看下面这短代码，由于struts的每个请求都要由actionservlet处理，所以我自己写了一个actionservlet的子类，在这个类中我 调用request.setCharacterEncoding("GB2312");方法，然后在所有的jsp页面中的字符显示为GB2312，所有的 问题都解决了，哈哈。大家试试啊   import org.apache.struts.action.ActionServlet; import javax.servlet.http.*; public class MainActionServlet extends ActionServlet{  public MainActionServlet() {  }  protected void process(HttpServletRequest request, HttpServletResponse response) throws java.io.IOException, javax.servlet.ServletException {    /**@todo Override this org.apache.struts.action.ActionServlet method*/    request.setCharacterEncoding("GB2312");    super.process(request, response);  }

<%response.setContentType("text/vnd.wap.wml;charset=UTF-8");%>
<%@ page import="Comm.outWML"%>
<%@ page import="Comm.GB2U"%>

<?xml version="1.0" ?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
    <head>
        <meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
    </head>

    <card id="main" title="<%=Comm.GB2U.gb2u("劲歌金曲爬行榜")%>">
        <%@ include file="mobinfo.inc" %>
        <%@ include file="module.inc" %>
        <%
           String para = new String(request.getParameter("name").getBytes("iso8859_1"));
           out.print("<p>"+para+"</p>");//输出获得的参数,都为乱码
           out.print(outWML.outHref(DefaultURL+"mring.jsp",  "劲歌金曲爬行榜首页"));
           out.print(monternet);
        %>
    </card>
</wml>

是关于java的,java的默认参数传递方式是utf8码,今天终于解决了
不是楼上说的问题
在发送url请求的页面和接收url请求的页面做如下设置
<%response.setContentType("text/vnd.wap.wml;charset=UTF-8");%>//utf8
<%request.setCharacterEncoding("UTF-8");%>//参数处理方式utf8
<%@ page pageEncoding="ISO-8859-1"%>//页面字符处理方式 iso-8859-1