DDR爱好者之家

用XMLHTTP很好的一个例子
站长资源 2024/11/24 佚名
62 1538
DDR爱好者之家 Design By 杰米
进入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> 
DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
ddrfans.com DDR爱好者之家
8,675无损音乐
1,324高清电影
213破解软件
70,141收录资讯

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。

艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。

《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒 经典版》的玩家都可以获得奖励。

更新日志

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网
DDR爱好者之家 Design By 杰米