请选择 进入手机版 | 继续访问电脑版
设为首页收藏本站

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
127社区 门户 电脑应用 查看内容

ASP调用RTXSDK发送消息提醒(实例)

2010-7-12 00:48| 发布者: 小平| 查看: 216| 评论: 0

一、安装RTXSDK API,并授予Internet来宾账户对RTXSDK安装目录里所有DLL文件的可读权限。否则将出现创建对象失败的错误。

二、编写发送消息提醒代码

<%
Sub SendBQQ()

'发送消息到BQQ--Start

dim RTXObj
dim RTXParams
dim RTXResult
dim iSendMode
Set RTXObj =  CreateObject("rtxserver.rtxobj")
Set RTXParams = CreateObject("rtxserver.collection")
RTXObj.ServerIP="127.0.0.1" '服务器IP
RTXObj.ServerPort="6000"

    RTXResult = ""

    RTXObj.Name = "SYSTOOLS"
  
    RTXParams.Remove "SENDMODE"
   
    RTXParams.Add "USERNAME", "1001" '默认用户
    RTXParams.Add "MSGINFO", "文章标题:ASP调用RTXSDK发送消息提醒"&vbCrlf&"发布时间:2008-5-22"&vbCrlf&"浏览地址:www.cqzxw.com"
    RTXParams.Add "TITLE", "消息提醒"
    RTXParams.Add "MSGID", "1234567"
    RTXParams.Add "ASSTYPE", "0"
    RTXParams.Add "DELAYTIME", "0"
  
    RTXParams.Add "TYPE", 0
  
    iSendMode = 0
 iSendMode = iSendMode + &H1 '发送给所有用户
 
    if iSendMode > 0 then
     iSendMode = iSendMode + &H10 '需要查询状态
     RTXParams.Add "SENDMODE", iSendMode
    end if
  
   
    On error resume next
    RTXResult = RTXobj.Call2( &H2100, RTXParams)
    Set RTXObj=Nothing
    Set RTXParams=Nothing

'发送消息到BQQ--End
End Sub
%>


鲜花

握手

雷人

路过

鸡蛋

最新评论

验证问答 换一个

回顶部