论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2005-07-10 19:49 |只看该作者 |倒序浏览

说明：此代码适合你做网站用，是个好东西！

ASP:

CODE: [Copy to clipboard]
＜%
dim objXMLHTTP, qq, pwd

qq = "10000"
pwd = "123456"

set objXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP.5.0"

objXMLHTTP.open "

OST", "_blank＞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
%＞

PHP:

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

$ch = curl_init();

curl_setopt($ch, CURLOPT_URL, "_blank＞http://211.139.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"

? "登录失败" : "登录成功";
?＞

js:

CODE: [Copy to clipboard]
＜script type="text/javascript"＞
var qq = "100000"; //qq号码
var pwd = "123456"; //密码

if (window.XMLHttpRequest) {
var x = new XMLHttpRequest();
} else {
var MSXML = new Array('MSXML2.XMLHTTP.5.0', 'MSXML2.XMLHTTP.4.0', 'MSXML2.XMLHTTP.3.0', 'MSXML2.XMLHTTP', 'Microsoft.XMLHTTP');
for(var n = 0; n ＜ MSXML.length; n ++) {
try {
var objXMLHTTP = new ActiveXObject(MSXML[n]);
break;
} catch(e) {
}
}
}

objXMLHTTP.open("

OST", "_blank＞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 (objXMLHTTP.responseText.indexOf("验证失败") ＞ 0) {
alert("登录失败");
} else {
alert("等录成功");
}
＜/script＞

文库|博客

jhsea3do

小富即安

论坛徽章:: 0

2楼 [报告]

发表于 2005-07-10 22:08 |只看该作者

最新网站挂qq代码（php，asp，js）

检查了一下，该IP确属tencent，大家可以放心使用

$curl -v 3g.qq.com
* About to connect() to 3g.qq.com port 80
* Trying 211.139.167.71... * connected
* Connected to 3g.qq.com (211.139.167.71) port 80
>; GET / HTTP/1.1
User-Agent: curl/7.12.2 (i386-pc-win32) libcurl/7.12.2 OpenSSL/0.9.7e zlib/1.2.1
Host: 3g.qq.com
Pragma: no-cache
Accept: */*
< HTTP/1.1 302 Found
< Date: Sun, 10 Jul 2005 14:20:48 GMT
< Server: Apache
< Location: http://211.139.167.71/cgi-bin/jump
< Content-Length: 218
< Connection: close
< Content-Type: text/html; charset=iso-8859-1
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">;
<html>;<head>;
<title>;302 Found</title>;
</head>;<body>;
<h1>;Found</h1>;
<p>;The document has moved <a href="http://211.139.167.71/cgi-bin/jump">;here</a>;.
</p>;
</body>;</html>;
* Closing connection #0

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

kingbeg

丰衣足食

论坛徽章:: 0

4楼 [报告]

发表于 2005-07-11 13:16 |只看该作者

最新网站挂qq代码（php，asp，js） [复制链接]

最新网站挂qq代码（php，asp，js）

最新网站挂qq代码（php，asp，js）

最新网站挂qq代码（php，asp，js）