現(xiàn)在掛QQ不知道還有什么意義了，就算你等級(jí)再高，也沒會(huì)員一半的功能，我身邊很多朋友都是紅色的了，呵呵，騰訊賺錢的水平就是高，而且不露聲色，小馬哥，你牛！
下面這個(gè)是QQ掛QQ的ASP版本網(wǎng)頁(yè)源代碼，cwitter也是從網(wǎng)上找到的，測(cè)試的時(shí)候有可能發(fā)生“MSXML5.DLL (0x800C0005) 系統(tǒng)未找到指定的資源”的錯(cuò)誤，一般MSXML5.DLL文件的地址是：
C:\Program Files\Common Files\Microsoft Shared\OFFICE11
還有一個(gè)重要的問(wèn)題，就是211.139.167.71不知道是不是騰訊的，如果是一個(gè)黑客的服務(wù)器，你的QQ號(hào)和密碼就都讓人知道啦，哈哈。所以這個(gè)代碼就是讓你學(xué)習(xí)一下而已，盡量別用了。
<%
dim objXMLHTTP, qq, pwd
qq = "10000" //要掛的QQ號(hào)碼
pwd = "123456" //要掛的QQ號(hào)碼的密碼
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, "驗(yàn)證失敗") then
response.write "登錄失敗"
else
response.write "登錄成功"
end if
set objXMLHTTP = nothing
%>