挂QQ的网站ASP源代码

 1   
 2dim objXMLHTTP, qq, pwd   
 3  
 4qq = "10000"   
 5pwd = "123456"   
 6  
 7set objXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP.5.0")   
 8objXMLHTTP.open "POST", "http://211.139.167.71/waptest/TWF/qqportal/rela/updateuserinfo.jsp", false   
 9objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"   
10objXMLHTTP.setRequestHeader "Connection", "Keep-Alive"   
11objXMLHTTP.send("qq="&qq&"&pwd="&pwd&"&FromWhere=register")   
12  
13if InStr(objXMLHTTP.responseText, "验证失败") then   
14response.write "登录失败"   
15else   
16response.write "登录成功"   
17end if   
18  
19set objXMLHTTP = nothing