首页 » 技术新知 » 挂QQ用的ASP源代码

挂QQ用的ASP源代码

2008-10-23 09:09:091345 点击
0 评论

<%
dim objXMLHTTP, qq, pwd
 
qq = "10000"
pwd = "123456"
 
set objXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP.5.0")
objXMLHTTP.open "POST", "http://211.139.167.71/waptest/TWF/qqportal/rela/updateuserinfo.jsp", false
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.setRequestHeader "Connection", "Keep-Alive"
objXMLHTTP.send("qq="&qq&"&pwd="&pwd&"&FromWhere=register")
 
if InStr(objXMLHTTP.responseText, "验证失败") then
response.write "登录失败"
else
response.write "登录成功"
end if
 
set objXMLHTTP = nothing
%> 

QQ，ASP，源代码

相关文章

    暂时没有评论
该博停止更新，欢迎关注主域名博客：[品味经典] www.fufuok.com