我要投稿
  • 您当前的位置:57365.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>


    <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=""http://www.fmm7.com/jsjc/webbuild/ymjh/200605/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>

    (出处:

    我要投稿   -   广告合作   -   关于本站   -   友情连接   -   网站地图   -   联系我们   -   版权声明   -   设为首页   -   加入收藏   -   网站留言
    Copyright © 2009 - 20012 www.www.hxswjs.com All Rights Reserved.57365.com 版权所有