一段取得翻唱排行榜上歌曲名称,艺人,地址的脚本程序

2022-07-15 80酷酷网 80kuku.com

　　程序|脚本|脚本

<textarea rows="29" name="S1" cols="111"></textarea>
<script language="vbscript">
On Error Resume Next
Function BytesToBstr(strBody, CodeBase)
    Set objStream = CreateObject("Adodb.Stream")
    With objStream
        .Type = 1
        .Mode = 3
        .Open
        .Write strBody
        .Position = 0
        .Type = 2
        .Charset = CodeBase
        BytesToBstr = .ReadText
        .Close
    End With
    Set objStream = Nothing
End Function

Set xmlobj=CreateObject("MsXml2.XmlHttp")

Function XmlGet(Url)
with xmlobj
.open "GET",Url,False
.Send()
str=BytesToBstr((.ResponseBody),"GB2312")
XmlGet=str
End With
End Function

Function ReplaceTest(zzb,str)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = zzb
regEx.IgnoreCase = fasle
regEx.Global = True
ReplaceTest = regEx.Replace(str,"")
End Function
'set fso=createobject("scripting.filesystemobject")
'Set oFile=Fso.OpentextFile("d:\7t7t\temp.txt",2,true)
</script>

tmpStr=replace(tmpStr,""">","|||")
tmpStr=replace(tmpStr,zkey,"")
tmpstr=replace(tmpstr,"|||<td width=""50%","")
tmpstr=replace(tmpstr,"<td width=""50%|||","******")
tmpStr=replace(tmpStr,"******song.asp|||","")
tmpStr=replace(tmpStr,"************","******")
S1.value=tmpstr
arrStr=split(tmpStr,"******")

for i=0 to ubound(arrStr)
document.write arrstr(i)&"
"
next

</script>