用XMLHTTP很好的一个例子

时间：2021-05-18

进入/MusicList/1454.htm"
s=0
d=0
ns=0
nd=0
getCode=getHTTPPage(url)
num=mid(getCode,instrrev(getCode,".<ahref")-3,2)'获取歌曲的数目
name=mid(getCode,instr(getCode,"歌手姓名：")+5,10)'获取歌手
m="http://218.75.78.189/33445566/"
response.write"<center>该面页共找到"&name&"的<fontcolor=red>"&num&"</font>首歌曲"&"<br/><br/>"
response.write"<tablewidth='80%'border='1'bordercolor='#A4C8FF'cellpadding='0'cellspacing='0'><tr><td>页面URL:<ahref='"&url&"'target='_blank'>"&url&"</a></td></tr></table><hrwidth='80%'>"
response.write"<tablewidth='80%'border='0'cellpadding='0'cellspacing='0'bgcolor='#A4C8FF'><tr><td><tableborder='0'width='100%'cellpadding='2'cellspacing='1'><tr><tdalign=centerbgcolor='#FFFFFF'>序号</td><tdalign=centerbgcolor='#FFFFFF'>歌名</td><tdalign=centerbgcolor='#FFFFFF'>操作</td></tr>"
fori=1tonum
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><tdalign=centerbgcolor='#FFFFFF'>"&i&"</td><tdbgcolor='#FFFFFF'><ahref='"&m&MyReplace(mid(getCode,s+16,d-s-13))&"'>"&mid(getCode,ns+5,nd-ns-5)&"</a><br/></td><tdalign=centerbgcolor='#FFFFFF'><ahref='"&m&MyReplace(mid(getCode,s+16,d-s-13))&"'>下载</a></td></tr>"
next
response.write"</table></td></tr></table></center>"
endif


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

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章