经理让我在asp.net的程序里嵌套rtx的sdk的消息提醒发送示例,但我不知道怎么弄
我用了vb的脚本。
<script language='vbscript'>
sub test
dim RTXObj
dim RTXParams
dim RTXResult
Set RTXObj = CreateObject("rtxserver.rtxobj")
Set RTXParams = CreateObject("rtxserver.collection")
RTXParams.Add "USERNAME", "1004" '消息提醒接收者
RTXParams.Add "MSGINFO", "测试消息 http://rtx.tencent.com [腾讯 | http://rtx.tencent.com]"
RTXParams.Add "TITLE", "test"
On error resume next
RTXResult = RTXobj.Call2( &H2100, RTXParams)
if( err.number < 0) then
msgbox err.Description
exit sub
end if
msgbox "发送成功"
end sub
</script>
但RTXParams.Add "USERNAME", "1004" '消息提醒接收者,这段代码我想把1004换成变量,怎么换呢?
我用了vb的脚本。
<script language='vbscript'>
sub test
dim RTXObj
dim RTXParams
dim RTXResult
Set RTXObj = CreateObject("rtxserver.rtxobj")
Set RTXParams = CreateObject("rtxserver.collection")
RTXParams.Add "USERNAME", "1004" '消息提醒接收者
RTXParams.Add "MSGINFO", "测试消息 http://rtx.tencent.com [腾讯 | http://rtx.tencent.com]"
RTXParams.Add "TITLE", "test"
On error resume next
RTXResult = RTXobj.Call2( &H2100, RTXParams)
if( err.number < 0) then
msgbox err.Description
exit sub
end if
msgbox "发送成功"
end sub
</script>
但RTXParams.Add "USERNAME", "1004" '消息提醒接收者,这段代码我想把1004换成变量,怎么换呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货