xml_test.asp

短信开发控件

=====================================================================================================
衷心感谢熊猫先生(panda.chen)提供了如此详尽的ASP示例脚本，并鸣谢熊猫先生为撰写本文而加深的两个黑眼圈！
=====================================================================================================

经过一个月的寻找实践， 熊猫现在终于有了用ASP发送短信的成功方法，这主要归功于月影短信，大家可以上到月影的网站上去看看

         http://www.kkstar.com

1) 先下载“月影短信适情雅趣 2003.04.25”，下载地址 http://www.kkstar.com/download.htm ，这是主程序，下载后安装完成后，就可以看到《委托发送管理器》的快捷方式。下面 ASP 生成的 xml 就要交给委托发送管理器。注意：安装完成后，运行《月影短信》一次，然后到 C:\Windows 目录中打开 kkstar-sms.ini ，就可以看到所有网关代号。

2) 同样在上述地址中下载《月影短信编程接口》 KKSTAR-SMS-DLL.ZIP， 解压后，会发现里面有各种编程语言的示例，其中包括了一个 ASP 的子目录，里面有一个 KKSTAR_COM.DLL 。

3) 用 REGSRV32.EXE 将 KKSTAR_COM.DLL 注册到系统.请在 WINDOWS 运行命令：

         REGSRV32.EXE  KKSTAR_COM.DLL

   出现提示后注册完成.这时系统中就有了 kkstar_com.SmsObject 对象，可以编写 ASP 程序调用这个对象的 EncodeString() 函数来加密重要的个人信息。

4) 打开《月影短信发送管理器》，按下“选择路径”，设定你 test.xml 保存目录为缺省监视目录，按下“启动服务”，过一会儿系统会扫描到你所新增的 xml 短信任务，到设定时间后自动发送完成。


<%
'//处理日期，注意：只支持2003-04-08这样的格式，不支持2003-4-8.
yy=cstr(year(date()))
mm=cstr(month(date()))
if len(mm)=1 then
mm="0"+mm
end if

dd=cstr(day(date()))
if len(dd)=1 then
dd="0"+dd
end if

C_date=yy+"-"+mm+"-"+dd

'//创建 kkstar_com.SmsObject 对象，以便加密敏感内容，保护个人信息安全
'//所有内容都可以加密，包括登录账号、登录密码、接收方手机号码、短信息内容等等
set rs=Server.CreateObject("kkstar_com.SmsObject")
pass=rs.EncodeString("123456")	'//你的密码
content=rs.EncodeString("这是我要发送的短信息内容。") 	'//你所要发送的文本

'//生产发送的XML文件
html = html+ "<?xml version= 1.0 encoding=""gb2312"" ?>"&"|"
html = html+ ""&"|"
html = html+ "<发送日期>"+C_date+"</发送日期>"&"|"
html = html+ "<发送时间>"+FormatDdateTime(now()+2,3)+"</发送时间>"&"|"
html = html+ "<网关代号>sina.com</网关代号>"&"|"    '//所有网关及其代号可以打开 C:\Windows\kkstar-sms.ini 查看
html = html+ "<登录账号>139xxxxxxxx</登录账号>"&"|" '//改为你的帐号
html = html+ "<登录密码>"+pass+"</登录密码>"&"|"    '//上面已经加密了
html = html+ "<手机号码>139xxxxxxxx</手机号码>"&"|" '//改为你要发送的手机号
html = html+ "<短信内容>"+content+"</短信内容>"&"|" '//上面已经加密了
html = html+ "<使用昵称>熊猫</使用昵称>"&"|"        '//当然用“国宝”也行 :)
html = html+ "<国际区号>86</国际区号>"&"|"

html=replace(html,"|",vbcrlf)    

'//建立ASP文本文件存取对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set txtfile=fso.CreateTextFile(Server.mappath("test.xml"))
'//写入文件
txtfile.write html

Set txtfile = Nothing
Set fso = Nothing

'//注意：最好使用新浪或者其他“安静”的网关，即发送完成后不会出现弹出式提示框。
'//假如用网易，发送完毕后会弹出 MessageBox ，需人工点击关闭才能发送下一条，这样就做不到“全自动”了。
%>