时间:2016-02-24 17:22 来源: 我爱IT技术网 作者:佚名
欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【用XMLHTTP很好的一个例子】，下面是详细的分享！
用XMLHTTP很好的一个例子
'得到明码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='http://www.chinaz.com/program/2008/0425/" & 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='http://www.chinaz.com/program/2008/0425/" & 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='http://www.chinaz.com/program/2008/0425/" & 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>
以上所分享的是关于用XMLHTTP很好的一个例子，下面是编辑为你推荐的有价值的用户互动：
相关问题：有哪些伟人或其他例子，能说明一个人刚入社会，需...
答：战国时代的著名的策划家苏秦就是一个很好的例子，从他初去游学谋识失败而改在家中悬锥刺股夜读，掌握大量知识后，再周游列国，用其所学的知识、理论、策划一揽六国的宰相之职，名声显赫，威震华夏，人们曾形容苏秦“一怒而天下惊……”。这就是... >>详细
相关问题：在一长生活中我们应该学会去赞美别人这样的例子很...
答：合适的赞美能够让人心情愉悦，比如工作中，赞美员工或同事，能够让他的工作效率都得到提高。不过赞美也不能过度，过度的赞美反而会造成一种负面的影响，比如让人觉得赞美的人是在溜须拍马，被赞美的人也可能因为不合乎自己本身的赞美而做出一些... >>详细
相关问题：细节决定成败的例子，最好是关于一个国家的！
答：很高兴为你回答问题： 丰田就是一个很好的例子，不注意采购零件的细节问题，最后酿成大祸！ 日本在80年代的爆发的经济危机，日元贬值，就是忙听了美国的货币涨价谬论，其实这都是细节问题，没有深入去对问题的每个细节进行探讨，否则就不会有这... >>详细
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-