查看: 6583|回复: 0
打印 上一主题 下一主题

ASP实例 挂QQ的网页源代码ASP/PHP

[复制链接]
跳转到指定楼层
1#
发表于 2008-5-26 13:24:33 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
台州网址导航
此代码适合你做网站用,普通朋友可以不用理这个东西!

ASP:

<%
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
%>  


PHP:

<php
$qq = "100000"; //qq号码
$pwd = "123456"; //密码
  
$ch = curl_init();
  
curl_setopt($ch, CURLOPT_URL, "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") ? "登录失败" : "登录成功";
?>
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 转播转播 分享分享 分享淘帖
台州维博网络(www.tzweb.com)专门运用PHP+MYSQL/ASP.NET+MSSQL技术开发网站门户平台系统等。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

网站推广
关于我们
  • 台州朗动科技(Tzweb.com)拥有多年开发网站平台系统门户手机客户端等业务的成功经验。主要从事:政企网站,系统平台,微信公众号,各类小程序,手机APP客户端,浙里办微应用,浙政钉微应用、主机域名、虚拟空间、后期维护等服务,满足不同企业公司的需求,是台州地区领先的网络技术服务商!

Hi,扫描关注我

Copyright © 2005-2026 站长论坛 All rights reserved

Powered by 站长论坛 with TZWEB Update Techonolgy Support

快速回复 返回顶部 返回列表