<% set MsgSender = Server.CreateObject("RealICQCOMInterfaces.CustomMessageSender") MsgSender.Send "127.0.0.1", 10000, "用户名", "消息内容", 1 ' 参数: ' 1、服务器地址 ' 2、服务器端口 ' 3、接收消息的用户名 ' 4、消息内容,格式现暂时约定如下: ' ' RJOA[换行] ' 消息发送方式[换行] ' 消息内容[换行] ' ' 以上的消息发送方式以选以下值: ' 0: 仅发送至办公助手客户端 ' 1: 优先发送给办公助手客户端,如用户不在线,则发送到用户手机上 ' 2: 仅发送至用户手机上 . 3: 同时发送到办公助手和手机。 ' ' 5、消息处理方式(此参数仅在"消息发送方式"的值为"0"时才有意义) ' 0:在线就直接发给用户,否则存到数据库,等用户上线时再发给对方 ' 1:在线就发给用户,否则忽略此消息 ' 2: 用户如果在线,忽略此消息,但如果不在线,则存至数据库,下次上线时发给对方。 ' ' ' 返回值 ' MsgSender.Result = 0 用户不在线,存入了离线消息数据库,用户将在下次登录时收到此消息 ' MsgSender.Result = 1 用户在线,消息已直接发给了用户 ' MsgSender.Result = 2 用户在线,所以消息被忽略 ' MsgSender.Result = 3 消息以短信息的方式发送到了用户的手机上 Set MsgSender = nothing %>