📄 sms_test.asp
字号:
<HTML>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<BODY>
<TITLE>短信息发送ASP脚本测试</TITLE>
<CENTER>
<H3> </H3>
</CENTER>
<HR>
<%
Set TestObj = Server.CreateObject("kkstar_com.SmsObject")
OK = TestObj.EncodeString("Hello")
Response.write("<p>字符串“Hello”的加密结果是："+OK)
Set TestObj = Nothing '必须及时释放对象，以便下次调用时能够有“干净的”的内存环境
%>
<HR>
<%
Set TestObj = Server.CreateObject("kkstar_com.SmsObject")
cGateWay="sina.com" '或者其他网关
cUserName="13987xxxxxx" '网关登录帐号，通常就是您自己的手机号码
cPassword="123456" '网关登录密码
cPhone="13654xxxxxx" '对方（接收者）手机号码"
cContent="可以收到吗？" '短信息内容
cNickName="大虾" '您自己的昵称
cExtent="自动返回"+vbcrlf '非常重要！参见下面说明！
'由于整个发送过程中，发送主界面是不会显示出来的，所以切记加上“自动返回”参数，同时一定要在《月影短信》中测试您所选择的网关，确保该网关能够自动结束，即：该网关不会在发送结束后弹出一些类似MessageBox、必须您确认才能关闭的对话框，也不要出现“JavaScript错误”之类的问题。否则DLL无法结束，COM对象无法返回，ASP脚本就会锁死。
Response.write("<p>正在发送短信息……")
'下面的发送过程您无法看到，所以一定要确保已经连接Internet，同时请耐心等候。
cError=TestObj.SendSms(cGateWay,cUserName,cPassword,cPhone,cContent,cNickname,cExtent)
Response.write("<p>短信息发送结果："+cError)
Set TestObj = Nothing '重复：必须及时释放对象，以便下次调用时能够有“干净的”的内存环境
%>
<HR>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -