用XMLHTTP很好的一个例子(原创)

最新推荐文章于 2023-08-15 15:54:05 发布
最新推荐文章于 2023-08-15 15:54:05 发布
阅读量2.3k 收藏
点赞数
分类专栏： ASP 文章标签： function url border input table action
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/TSD/article/details/270602
版权

        虽然ting88没有注册的用户不能下载歌曲,但搞定它也非难事啊:)

        进入www.ting88.com的网站,把歌手专辑页面的URL复制到文本框中再提交就可以得到歌曲的下载路径,如:http://www.ting88.com/MusicList/4141.htm

        源程序如下:

<%
on error resume next
dim id,url,getCode,m,i,j,s,d,ns,nd,num,name
id=trim(request.querystring("id"))
'1.获取原网页所有内容
Function getHTTPPage(url)
 dim http
 set http=Server.createobject("Microsoft.XMLHTTP")
 Http.open "GET",url,false
 Http.send()
 if Http.readystate<>4 then
  exit function
 end if
 getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
 set http=nothing
 if err.number<>0 then err.Clear 
End function

'2.编码转换
Function BytesToBstr(body,Cset)
 dim objstream
 set objstream = Server.CreateObject("adodb.stream")
 objstream.Type = 1
 objstream.Mode =3
 objstream.Open
 objstream.Write body
 objstream.Position = 0
 objstream.Type = 2
 objstream.Charset = Cset
 BytesToBstr = objstream.ReadText
 objstream.Close
 set objstream = nothing
End Function

'得到明码URL
function MyReplace(ConvStr)
 ConvStr=replace(ConvStr,"YVI","1")
 ConvStr=replace(ConvStr,"ESR","2")
 ConvStr=replace(ConvStr,"SXN","3")
 ConvStr=replace(ConvStr,"STI","4")
 ConvStr=replace(ConvStr,"WFU","5")
 ConvStr=replace(ConvStr,"LQU","6")
 ConvStr=replace(ConvStr,"QGI","7")
 ConvStr=replace(ConvStr,"BLA","8")
 ConvStr=replace(ConvStr,"JFU","9")
 ConvStr=replace(ConvStr,"LSN","0")
 ConvStr=replace(ConvStr,"XPG","/")
 ConvStr=replace(ConvStr,"XQD",".")
 ConvStr=replace(ConvStr," ","")
 ConvStr=replace(ConvStr,"%20","")
 ConvStr=replace(ConvStr,"KWD","Wma")
 MyReplace=ConvStr
end function

if id="1" then
 url=trim(request.form("txturl"))
 if url="" then
  response.redirect("GetMusic.asp")
  response.end()
 end if
 'url="http://www.ting88.com/MusicList/1454.htm"
 s=0
 d=0
 ns=0
 nd=0
 getCode=getHTTPPage(url)
 num=mid(getCode,instrrev(getCode,".<a href")-3,2)  '获取歌曲的数目
 name=mid(getCode,instr(getCode,"歌手姓名：")+5,10)  '获取歌手
        m="http://218.75.78.189/33445566/"
 response.write "<center>该面页共找到 " & name & "的 <font color=red>" & num& "</font> 首歌曲" & "<br/><br/>"
 response.write "<table width='80%'  border='1' bordercolor='#A4C8FF' cellpadding='0' cellspacing='0'><tr><td>页面URL:<a href='" & url & "' target='_blank'>" & url & "</a></td></tr></table><hr width='80%'>"
 response.write "<table width='80%'  border='0' cellpadding='0' cellspacing='0' bgcolor='#A4C8FF'><tr><td><table border='0' width='100%' cellpadding='2' cellspacing='1'><tr><td align=center bgcolor='#FFFFFF'>序号</td><td align=center bgcolor='#FFFFFF'>歌名</td><td align=center bgcolor='#FFFFFF'>操作</td></tr>"
 for i=1 to num
  s=instr(i+s,getCode,"checked"" value='")
  d=instr(i+d,getCode,"KWD'>")
  ns=instr(i+ns,getCode,"word=")
  nd=instr(i+nd,getCode,"&inc=")
  response.write "  <tr><td align=center bgcolor='#FFFFFF'>" & i & "</td><td bgcolor='#FFFFFF'>  <a href='" & m & MyReplace(mid(getCode,s+16,d-s-13)) & "'>" &  mid(getCode,ns+5,nd-ns-5) & "</a><br/></td><td align=center bgcolor='#FFFFFF'><a href='" & m & MyReplace(mid(getCode,s+16,d-s-13)) & "'>下载</a></td></tr>"
 next
 response.write "</table></td></tr></table></center>"
end if

 

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>获取专辑歌曲的URL地址</title>
</head>
<body>
<form name="form1" method="post" action="GetMusic.asp?id=1">
  <table width='80%'  border='0' align="center" cellpadding='0' cellspacing='0' bgcolor='#A4C8FF'>
    <tr><td><table width="100%"  border="0" align="center" cellpadding="2" cellspacing="1">
    <tr>
      <td height="30">获取专辑歌曲的URL地址</td>
    </tr>
    <tr>
      <td height="30" bgcolor="#FFFFFF">网页地址:
      <input name="txturl" type="text" id="txturl" size="80" maxlength="100"></td>
    </tr>
    <tr>
      <td height="30" bgcolor="#FFFFFF">          <input type="submit" name="Submit" value="提 交" style="width:60">
      <input name="Reset" type="reset" id="Reset" value="重 置" style="width:60"></td>
    </tr>
  </table></td></tr></table>
</form>
</body>
</html>

备注：本程序只是演示程序的功能，请勿盗取他人网站数据，否则后果自负！

TSD
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
XMLHTTP 对象及其方法
CRM & MS.NET 技术论调
08-06 861
MSXML中提供了Microsoft.XMLHTTP对象，能够完成从数据包到Request对象的转换以及发送任务。 创建XMLHTTP对象的语句如下： Set objXML = CreateObject(Msxml2.XMLHTTP) 或Set objXML = CreateObject(“Microsoft.XMLHTTP”) Or, for version 3.0 of XMLHTTP, u
xmlhttp实例
diaowojian9497的博客
12-24 121
<script type="text/javascript">function GetItemText(itemid,vtype){ var pstr=""; var itemtext=""; alert(itemid+','+vtype); if(vtyp...
XMLHttpRequest类成员和实例
weixin_30535565的博客
12-19 117
XMLHttpRequest对象XMLHttpRequest 提供客户端同http服务器通讯的协议一：创建IE : http_request = new ActiveXObject("Msxml2.XMLHTTP"); http_request = new ActiveXObject("Microsoft.XMLHTTP");非IE: http_request = new XMLHttp...
制作一个XMLHTTP请求的简单例子
long673561409long的专栏
12-12 1926
制作一个XMLHTTP请求的网页。实现了根据输入的url，提取url对应网页标题的基本功能（解决了中文乱码的问题）http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">http://www.w3.org/1999/xhtml">        KIWI的Blog                        funct
XMLHTTP的简单使用(Ajax)
C#,SQL,Castle,Hibernate,MVC,Spring.net
01-18 1676
专注Ajax、Asp.Net、JavaScript技术首页 Ajax交流 Web2.0技术 Asp.net Ajax Ajax入门 Asp.NET 2.0 Ajax IDE Ajax源码搜索实例学习AJAX从现在开始，我把自己学习AJAX的一些心得体会写出来。打算以短小的实例为主，用实例来说明问题。对于AJAX的了解肯定是需要不少理论的，这里我就不会多说了，网上有很多资料。一些好的资料，我会以参考
VFP xmlHTTP应用实例
03-13
VFP xmlHTTP应用实例，搭建API，三层结构 内附测试环境及asp代码
用XMLHTTP很好的一个例子
01-20
标题中的“用XMLHTTP很好的一个例子”指的是使用XMLHttpRequest对象（简称XMLHTTP）来实现Web页面的异步数据请求。XMLHTTP是ActiveX对象，在经典ASP（Active Server Pages）环境中常用于实现AJAX（Asynchronous ...
javascript 构建一个xmlhttp对象池合理创建和使用xmlhttp对象
10-29
在这个例子中，`MyAjaxObj` 是一个自定义对象，包含了管理XMLHttpRequest对象池的相关方法。变量 `maxXmlHttpCount` 用于设置对象池的最大容量，例如这里设置为5，意味着最多可以有5个XMLHttpRequest对象存在于池中...
xmlhttp简单应用.zip易语言项目例子源码下载
03-21
对于初学者和学生来说，这个项目实例是了解和掌握易语言中XMLHTTP应用的一个很好的起点。通过实际操作，可以加深对网络编程的理解，提高编程技能。对于小团队开发来说，这样的基础示例也可以作为快速构建原型或实现...
XMLHTTP 例子
01-10
XMLHTTP是Microsoft ActiveX组件，用于在客户端与服务器之间进行异步...这个例子为学习XMLHTTP和Indy提供了实践素材，同时也涉及到了多线程编程，对于理解Web客户端与服务器的交互以及提升用户体验有很好的教学价值。
VFP上传文件到web服务器
03-13
VFP上传文件到web服务器 使用xmlHTTP及xmlDOM技术
vfp几个控件属性测试实例
10-10
论坛用户需要的示例
XMLHTTP实现HTTPS+post登录
03-06
前几天群里有个朋友问我怎么登录BAIDU，我们一看是HTTPS登录，郁闷了， 因为HTTPS传输是加密的，用抓包软件都看不到任何明文，加密有的是128bit，有的更高， 一直登录HTTPS都是用的模拟填写表单的方式，朋友说要用发包的方式登录，有些傻眼， 然后看到XMLHTTP可以模拟发送HTTPS的数据包,于是便有了以下函数 //构造数据包 strcat(buf,"tpl_ok=&next;_target=&tpl=mn&skip;_ok=&aid;=&need;_pay=&need;_coin=&pay;_method=&u=http://"); strcat(buf,MySpace_URL); //这里是登录成功之后要跳转的空间地址 strcat(buf,"/&return_method=get&more;_param=&return;_type=&psp_tt=0&password;="); strcat(buf,MySpace_Pass); //登录密码 strcat(buf,"&safeflg=0&username;="); strcat(buf,MySpace_User); //登录用户名 strcat(buf,"&verifycode;="); //访问 XmlHttp(MyLogin_URL,"POST",buf);
XMLHTTP抓取远程数据的后期处理
01-01
<%  hehe = Hello(“http://mmsg.qq.com/cgi-bin/gddylist?Type=13&Sort=1&Page=3”, “<html>”, “</html>”, “.*(<td u00a0width=””35%”” bgcolor>(.*)</td>)[.\n]*”, “<font u00a0style=””font-size:9pt;”” color>$2</font><br>”)  response.Write hehe  Function Hello(strUrl, strStart, strEnd, patrn, replS
xmlhttp缓存清除的2种解决方法
09-04
主要介绍了xmlhttp缓存清除的2种解决方法。需要的朋友可以过来参考下，希望对大家有所帮助
vfp保存为html,vfp向HTTP发送文件
weixin_42520374的博客
06-16 672
只开通HTTP端口，在VFP中如何上传文件,本文将解决这个问题，这样在以后的服务器部署中是不是更方便测试环境IISVFP客户端存在 C:/AAA.ZIP服务器存在 C:/TMP/这个目录需要XMLHTTP组件，一般安装IE6的环境就可以了系统将 客户端的C:/AAA.ZIP 保存到 服务器的C:/TMP中一般情况下 为了在HTML网页中获得上传功能，在IE的客户端我们可以使用如下格式的FORM：&...
VFP 给手机发送短信
最新发布
lianwuyi的专栏
08-15 147
一、到短信平台申请一个帐号密码，可以联系微信号“ebongsoft”郑生帮忙开通，给他手机号码他会发送帐号密码给你。好像能免费试用10条，200元起充。二、把下面的代码复制到prg里，命名为sms.prg（记得要将里面的前三个变量替换成郑生发给你的地址、帐号和密码，有&&注释的那部分）。假如没有打上标签，会发送失败，标签符号要大写，而且不用用别人的标签，类似【阿里云】，这种是不会发送出去的。现在是网络时代，写软件经常需要给客户发送短信。就可以给手机发送短信了，这里发送内容要注意，得打上标签和标签符号【】。
vfp向HTTP发送文件
feiyafei2008的专栏
09-04 5819
只开通HTTP端口，在VFP中如何上传文件,本文将解决这个问题，这样在以后的服务器部署中是不是更方便测试环境   IIS VFP客户端存在 C:/AAA.ZIP服务器存在 C:/TMP/这个目录需要XMLHTTP组件，一般安装IE6的环境就可以了系统将 客户端的C:/AAA.ZIP 保存到 服务器的C:/TMP中一般情况下 为了在HTML网页中获得上传功能，在IE的客户端我们可以使用如下格式的
VFP获得Http内容、判断能否上网的函数
08-04
VFP获得Http内容、判断能否上网的函数
VB6 使用 Microsoft.XMLHTTP
06-07
下面是一个简单的示例代码： ```vb Dim xmlhttp As Object Set xmlhttp = CreateObject("Microsoft.XMLHTTP") xmlhttp.Open "GET", "http://www.example.com", False xmlhttp.send MsgBox xmlhttp.responseText ```...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值