国产精品动漫自拍,黄色三级片国产货品自拍

主頁 > 知識庫 > 用XMLHTTP很好的一個(gè)例子

用XMLHTTP很好的一個(gè)例子

進(jìn)入www.ting88.com的網(wǎng)站,把歌手專輯頁面的URL復(fù)制到文本框中再提交就可以得到歌曲的下載路徑,如: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.獲取原網(wǎng)頁所有內(nèi)容
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.編碼轉(zhuǎn)換
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) '獲取歌曲的數(shù)目
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">網(wǎng)頁地址:
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>

標(biāo)簽：上海楚雄赤峰南京通遼邢臺涼山清遠(yuǎn)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用XMLHTTP很好的一個(gè)例子》，本文關(guān)鍵詞用,XMLHTTP,很,好的,一個(gè),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。