一段取得翻唱排行榜上歌曲名称,艺人,地址的脚本程序
来源:互联网 发布:淘宝店铺装修源代码 编辑:程序博客网 时间:2024/06/02 20:37
<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>
- 一段取得翻唱排行榜上歌曲名称,艺人,地址的脚本程序
- 一段取得翻唱排行榜上歌曲名称,艺人,地址的脚本程序
- JS取得MAC地址的脚本
- 取得程序当前的EIP地址(x86)
- 极品英文翻唱歌曲--《谢谢你的爱》歌词俸上
- SHELL脚本中取得域名的IP地址
- 我的翻唱《夜曲》
- 翻唱歌曲的技巧
- 一段在ubuntu linux上安装codelite的脚本
- 一段linux上统计平均响应时间的awk脚本
- 在Remoting Server上取得Remoting Client的IP地址
- 醉生梦死的艺人
- 一段 CryptAPI 取得 证书序列号 的代码
- 2014网络知名艺人网络红人排行榜网络红人帅哥都有谁
- 断了的弦 - 翻唱
- 一段评价程序平均运行时间的shell脚本&shell脚本编写注意事项
- 一段简单的程序
- 一段有趣的程序
- 眼前急需考虑的一件事情
- 打开文件对话框,多选时,顺序不对
- 四书之“中庸”学习日记7
- 在2000和xp下,隐藏进程,VC6.0测试通过!!!
- 在DataGrid中删除记录时弹出确认窗口
- 一段取得翻唱排行榜上歌曲名称,艺人,地址的脚本程序
- 覆写&隐藏&重载&隐蔽&掩盖
- MD5加密算法 ASP
- 我是民工
- XML、Web服务和.NET框架初步探讨
- 浅析Oracle和SqlServer存储过程的调试、出错处理
- [郑群 原创]我研究的地形碰撞检测方法
- MySQL数据目录结构
- 自创的用MASM宏实现OOP的方式