现在挂QQ不知道还有什么意义了，就算你等级再高，也没会员一半的功能，我身边很多朋友都是红色的了，呵呵，腾讯赚钱的水平就是高，而且不露声色，小马哥，你牛！
下面这个是QQ挂QQ的ASP版本网页源代码，cwitter也是从网上找到的，测试的时候有可能发生“MSXML5.DLL (0x800C0005) 系统未找到指定的资源”的错误，一般MSXML5.DLL文件的地址是：
C:\Program Files\Common Files\Microsoft Shared\OFFICE11
还有一个重要的问题，就是211.139.167.71不知道是不是腾讯的，如果是一个黑客的服务器，你的QQ号和密码就都让人知道啦，哈哈。所以这个代码就是让你学习一下而已，尽量别用了。
<%
dim objXMLHTTP, qq, pwd
qq = "10000" //要挂的QQ号码
pwd = "123456" //要挂的QQ号码的密码
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
%>