一段取得翻唱排行榜上歌曲名稱，藝人，地址的腳本程序

　　<textarea rows= name=S cols=></textarea>
<script language=vbscript>
On Error Resume Next
Function BytesToBstr(strBody CodeBase)
    Set objStream = CreateObject(AdodbStream)
    With objStream
        Type =
        Mode =
        Open
        Write strBody
        Position =
        Type =
        Charset = CodeBase
        BytesToBstr = ReadText
        Close
    End With
    Set objStream = Nothing
End Function

　　Set xmlobj=CreateObject(MsXmlXmlHttp)

　　Function XmlGet(Url)
with xmlobj
open GETUrlFalse
Send()
str=BytesToBstr((ResponseBody)GB)
XmlGet=str
End With
End Function

　　Function ReplaceTest(zzbstr)
  Dim regEx
  Set regEx = New RegExp
  regExPattern = zzb
  regExIgnoreCase = fasle
  regExGlobal = True
  ReplaceTest = regExReplace(str)
End Function
set fso=createobject(scriptingfilesystemobject)
Set oFile=FsoOpentextFile(d:\tt\temptxttrue)
</script>

　　<script language=vbscript>
vkey=vbcrlf
bkey=<td width=% colspan= background=images/dotgif align=center>
nkey=<span fontsize: pt>&nbsp; </span></td>
mkey=<td width=% align=center>
ckey=<td width=% align=center colspan= height=>
xkey=<p align=center>
zkey=<td width=%>
akey=<tr>
ekey=</tr>
dkey=</td>
fkey=<td>
gkey=<p align=right>
str=XmlGet()
inHead=instr(str翻唱歌手)+
inEnd=instr(inHeadstr<img border= src=images/moregif)
tmpStr=mid(strinHeadinEndinHead)
tmpStr=replace(tmpStrvkey)
tmpStr=replace(tmpStrbkey)
tmpStr=replace(tmpStrnkey)
tmpStr=replace(tmpStrmkey)
tmpStr=replace(tmpStrckey)
tmpStr=replace(tmpStrxkey)
tmpStr=replace(tmpStrakey)
tmpStr=replace(tmpStrekey)
tmpStr=replace(tmpStrdkey)
tmpStr=replace(tmpStrfkey)
tmpStr=replace(tmpStrgkey)
tmpStr=replace(tmpStr  )
tmpStr=replace(tmpStr<a ******)
tmpStr=replace(tmpStr</a>|||)

　　tmpStr=replace(tmpStr>|||)
tmpStr=replace(tmpStrzkey)
tmpstr=replace(tmpstr|||<td width=%)
tmpstr=replace(tmpstr<td width=%|||******)
tmpStr=replace(tmpStr******songasp|||)
tmpStr=replace(tmpStr******************)
Svalue=tmpstr
arrStr=split(tmpStr******)

　　for i= to ubound(arrStr)
 documentwrite arrstr(i)&<br>
 next

　　</script>

From:http://tw.wingwit.com/Article/program/Java/Javascript/201311/25270.html