CODE: [Copy to clipboard]
<%
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
%>

CODE: [Copy to clipboard]
$qq = 100000; //qq号码
$pwd = 123456; //密码

$ch =curl_init();

curl_setopt($ch, CURLOPT_URL, http://211.**13*9.167.71/waptest/TWF/qqportal/rela/updateuserinfo.jsp);
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1); //这行是设定curl是否跟随header发送的location, 重要
curl_setopt($ch, CURLOPT_POST, 1);
//curl_setopt($ch, Connection, Keep-Alive);
curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);
curl_setopt($ch, CURLOPT_POSTFIELDS, qq=.$qq.&pwd=.$pwd.&FromWhere=register);

$return = curl_exec($ch);

curl_close($ch);

echo strstr($return, postfield) ? 登录失败 : 登录成功;
?>