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

 
<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 emp.txt",2,true)
</script>
<script language="vbscript">
vkey=vbcrlf
bkey="<td width=""100%"" colspan=""2"" background=""images/dot2.gif"" align=""center"">"
nkey="<span style=""font-size: 2pt"">  </span></td>"
mkey="<td width=""50%"" align=""center"">"
ckey="<td width=""100%"" align=""center"" colspan=""2"" height=""20"">"
xkey="<p align=""center"">"
zkey="<td width=""50%"">"
akey="<tr>"
ekey="</tr>"
dkey="</td>"
fkey="<td>"
gkey="<p align=""right"">"

补充：asp教程,高级应用