現(xiàn)在掛QQ不知道還有什么意義了，就算你等級再高，也沒會員一半的功能，我身邊很多朋友都是紅色的了，呵呵，騰訊賺錢的水平就是高，而且不露聲色，小馬哥，你牛！

下面這個是QQ掛QQ的ASP版本網(wǎng)頁源代碼，cwitter也是從網(wǎng)上找到的，測試的時候有可能發(fā)生“MSXML5.DLL (0x800C0005) 系統(tǒng)未找到指定的資源”的錯誤，一般MSXML5.DLL文件的地址是：
C:\Program Files\Common Files\Microsoft Shared\OFFICE11

還有一個重要的問題，就是211.139.167.71不知道是不是騰訊的，如果是一個黑客的服務(wù)器，你的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
%>