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

<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>

<script language=”vbscript”>
vkey=vbcrlf
bkey=”<td width=””100%”” colspan=””2″” background=””images/dot2.gif”” align=””center””>”
nkey=”<span style=””font-size: 2pt””>&nbsp; </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””>”
str=xmlget(“http://www.redzhong.com/“)
inhead=instr(str,”翻唱歌手”)+8
inend=instr(inhead,str,”<img border=””0″” src=””images/more.gif”””)
tmpstr=mid(str,inhead,inend-inhead)
tmpstr=replace(tmpstr,vkey,””)
tmpstr=replace(tmpstr,bkey,””)
tmpstr=replace(tmpstr,nkey,””)
tmpstr=replace(tmpstr,mkey,””)
tmpstr=replace(tmpstr,ckey,””)
tmpstr=replace(tmpstr,xkey,””)
tmpstr=replace(tmpstr,akey,””)
tmpstr=replace(tmpstr,ekey,””)
tmpstr=replace(tmpstr,dkey,””)
tmpstr=replace(tmpstr,fkey,””)
tmpstr=replace(tmpstr,gkey,””)
tmpstr=replace(tmpstr,”  “,””)
tmpstr=replace(tmpstr,”<a href=”””,”******”)
tmpstr=replace(tmpstr,”</a>”,”|||”)

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)&”<br>”
 next

</script>