一段取得翻唱排行榜上歌曲名称,艺人,地址的脚本程序
2007-06-07 00:42
246 查看
<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""> </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>
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)
vkey=vbcrlf
bkey=""
nkey=" "
mkey=""
ckey=" "
xkey=""
zkey=" "
akey=" "
ekey=" "
dkey=""
fkey=""
gkey=""
str=XmlGet("http://www.redzhong.com/")
inHead=instr(str,"翻唱歌手")+8
inEnd=instr(inHead,str,"","|||")
tmpStr=replace(tmpStr,""">","|||")
tmpStr=replace(tmpStr,zkey,"")
tmpstr=replace(tmpstr,"||| "
next
<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""> </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>
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)
vkey=vbcrlf
bkey="
nkey="
mkey="
ckey="
xkey=""
zkey="
akey="
ekey="
dkey=""
fkey="
gkey=""
str=XmlGet("http://www.redzhong.com/")
inHead=instr(str,"翻唱歌手")+8
inEnd=instr(inHead,str,"","|||")
tmpStr=replace(tmpStr,""">","|||")
tmpStr=replace(tmpStr,zkey,"")
tmpstr=replace(tmpstr,"|||
next
相关文章推荐
- 一段取得翻唱排行榜上歌曲名称,艺人,地址的脚本程序
- 一段取得翻唱排行榜上歌曲名称,艺人,地址的脚本程序
- 用批处理整理百度MP3上歌曲排行榜MP3及LRC文件的批量下载链接地址(含图文教程)
- 配置weblogic的上下文 根,方便访问地址和项目名称不一致的问题
- Exchange应用新地址策略后如何更改Outlook2010地址显示名称
- 150首中国翻唱韩国原歌曲
- SQLServer过滤文件名特殊字符(利用SQLServer修改文件物理地址名称)
- Winsock中名称解析和地址解析
- 一段代码让你秒懂java方法到底是传值还是传地址
- [转]Ubuntu备份安装源地址和软件名称
- C#取得指定路径下所有目录及文件名称
- 很火的程序员创意歌曲:我是一段死代码!
- C#自动给据sql中的带@的变量提取变量名称在从简单数据对象中取得生成SqlParameter数组进行数据插入(利用反射完成)
- 关于android2.2地图定位的问题,取得了设备所在经纬度,得不到具体的地址的问题
- 在Windows中取得多个网卡的MAC地址及多个IP地址
- 音乐消除国界、下载废除权限:歌曲地址解析器 yosong
- linux 下取得网络地址和掩码的代码
- 通过经度、纬度获取地址名称[JS实现]
- C#取得一个函数或方法的参数类型参数名称返回值类型
- js中取得当前加载的js的src地址