一个ASP版的飞信发送，配合xss用可以预警网站后台被非法登陆

<%
call callfx
sub callfx()
m = "138802*****" //你的飞信手机
pass = "*********" //你的飞信密码
msg = "管理员登陆啦" //想发送到你手机的内容
Dim http
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "POST", "http://f.10086.cn/im/login/inputpasssubmit1.action", False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send "m=" & m & "&pass=" & pass & "&loginstatus=" & 4
wml = http.responseText
If InStr(wml, "密码输入错误") Then
response.end
End If
http.open "POST", "http://f.10086.cn/im/user/sendMsgToMyselfs.action", False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send "msg=" & msg '
wml = http.responseText
http.open "GET", "http://f.10086.cn/im/index/logoutsubmit.action", False
http.send
end sub
 
%>