当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP实例 挂QQ的网页源代码ASP/PHP

ASP
用密码保护页面 (II)
用密码保护页面 (III)
简单的文件目录浏览源程序
ASP中的函数应用方法及应用举例(一)
ASP中的函数应用方法及应用举例(二)
完整的访问统计系统（一：数据库篇）
完整的访问统计程序（二 程序篇）
完整的访问统计程序(三 应用篇)
一个提供用户输入时期的绝好程序之(一)
一个提供用户输入时期的绝好程序之(二)
构建你的网站新闻自动发布系统之五
构建你的网站新闻自动发布系统之六
完整的访问统计程序（二 程序篇）
完整的访问统计程序(三 应用篇)
ASP环境下邮件列表功能的实现 （一）
ASP环境下邮件列表功能的实现 （二）
ASP环境下邮件列表功能的实现 （三）
ASP环境下邮件列表功能的实现 （四）
ASP进阶之文章在线管理更新(1)
ASP进阶之文章在线管理更新(2)

No. « 215 216 217 218 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 83 ::
收藏到网摘: n/a

此代码适合你做网站用，普通朋友可以不用理这个东西！

ASP:

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

PHP:

CODE: [Copy to clipboard]  
<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") ? "登录失败" : "登录成功";
?>