song.asp

jkjgkjbkjklb hnbbnl,bmnmn

<%
Function Rp_Title(s)
dim Title
Title=replace(s,"_雅虎音乐搜索","")
Rp_Title=Title
End Function

Function Rp_Song(s)
s=Replace(s,"<b>","")
s=Replace(s,"</b>","")
s=Replace(s,"<font color=""#FF0000"">","")
s=Replace(s,"</font>","")
s=replace(s,"http://i.music.cn.yahoo.com/listen.php","play.asp")
s=Replace(s,"/s?p=","song.asp?song=")
s=replace(s,"http://music.cn.yahoo.com/onesearch_singer.html?p=","song.asp?song=")
s=Replace(s,"&v=music","")
s=Replace(s,"&ei=utf-8","")
s=replace(s,"http://i.music.cn.yahoo.com/down.php","down.asp")
s=replace(s,"http://my.12530.com/newchannel/orderTone/-/5/6220/-/","sms.asp?word=")
s=Replace(s,"/order.htm","")
s=Replace(s,"450, 100)","450, 350)")
s=Replace(s,",414,480)",",480, 500)")
s=Replace(s,"http://music.cn.yahoo.com/onesearch_lyric.html?","lrc.asp?")
Dim Re
Set Re=new RegExp
Re.Global=True
Re.Pattern=" name=""doc3_(.+?)"""
s=Re.Replace(s,"")
Re.Pattern=" name='doc3_(.+?)'"
s=Re.Replace(s,"")
Set Re=Nothing
Rp_Song=s
End Function

Function Rp_Page(s)
s=Replace(s,"name=""doc3_page""","")
s=Replace(s,"%3Aalls","")
s=Replace(s,"&v=music","")
s=Replace(s," class=""nxt""","")
s=Replace(s," class=""pre""","")
s=Replace(s,"/s?p=","song.asp?song=")
s=Replace(s,"&x=","&type=")
s=Replace(s,"&b=","&page=")
Rp_Page=Trim(s)
End Function
%>