3分钟学会使用程式发送msn讯息, ASP篇(六)
msnSDK讯息控制开发套件 同时支援MSN/Yahoo即时通 讯息双向传递
ASP 的范例我们使用ADO介面来处理,其他语言也可以这样做,可参考文件(文末提供下载处),另外;下面的程式码重要的部份只有参数不同,其他大同小异,可参考红字部分
ps.也请参考 msnSDK的使用流程
(抱歉！太久没碰ASP,不过基本上;下面这个范例可正确发送MSN讯息)
<%
'--
'---STEP1 取得API 使用权限
'--
on error resume next
Set xmlHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
'如果遇到中文,请使用Server.URLEncode 来处理
'比如 : ...&pname=Server.URLEncode("中文姓名")&...
URL= "
xmlHTTP.open "GET", URL, false
xmlHTTP.send()
if err.description <>"" then
Set xmlHTTP= Nothing
response.write "无法连接远端伺服器," & err.description
response.end
end if
'--
'将得到的讯息存入 myRS_....xml
'--
set myStream = Server.CreateObject("ADODB.Stream")
myStream.Open
myStream.Charset = "big5"
myStream.WriteText xmlHTTP.ResponseText
myStream.Position = 0
'---
'防止重复的process 存取xml
'---
Febber = Split("1,2,3,4,5,6,7,8,9,0,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z", ",")
For I = 0 To 3
Randomize
keychar = keychar & Febber(Int((62 * Rnd) + 1) - 1)
next
myXMLfile = Server.Mappath("./myRS_" & keychar & ".xml")
myStream.SaveToFile myXMLfile
myStream.Close
'--
'取得myRS_$random.xml 的结果
'--
set rs = server.createobject("adodb.recordset")
rs.Open myXMLfile
Do While Not (rs.EOF)
if (rs(0)=1) then
spid=rs(1)
response.write "取得SPID=" & rs(1) & "
"
else
response.write "认证失败=" & rs(0)& "," & rs(1) & "
"
response.end
end if
rs.MoveNext
Loop
rs.Close
'--
'删除暂存档
'--
set FSO = Server.Createobject("Scripting.FileSystemObject")
Fso.DeleteFile myXMLfile
'--
'释放使用的物件
'--
se ..
访客只能看到部份内容，免费 加入会员 或由脸书 Google 
可以看到全部内容
