% 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
