|
<textarea rows= name=S cols=></textarea> <script language=vbscript> On Error Resume Next Function BytesToBstr(strBody CodeBase) Set objStream = CreateObject(AdodbStream) With objStream Type = Mode = Open Write strBody Position = Type = Charset = CodeBase BytesToBstr = ReadText Close End With Set objStream = Nothing End Function Set xmlobj=CreateObject(MsXmlXmlHttp) Function XmlGet(Url) with xmlobj open GETUrlFalse Send() str=BytesToBstr((ResponseBody)GB) XmlGet=str End With End Function Function ReplaceTest(zzbstr) Dim regEx Set regEx = New RegExp regExPattern = zzb regExIgnoreCase = fasle regExGlobal = True ReplaceTest = regExReplace(str) End Function set fso=createobject(scriptingfilesystemobject) Set oFile=FsoOpentextFile(d:\tt\temptxttrue) </script> <script language=vbscript> vkey=vbcrlf bkey=<td width=% colspan= background=images/dotgif align=center> nkey=<span fontsize: pt> </span></td> mkey=<td width=% align=center> ckey=<td width=% align=center colspan= height=> xkey=<p align=center> zkey=<td width=%> akey=<tr> ekey=</tr> dkey=</td> fkey=<td> gkey=<p align=right> str=XmlGet() inHead=instr(str翻唱歌手)+ inEnd=instr(inHeadstr<img border= src=images/moregif) tmpStr=mid(strinHeadinEndinHead) tmpStr=replace(tmpStrvkey) tmpStr=replace(tmpStrbkey) tmpStr=replace(tmpStrnkey) tmpStr=replace(tmpStrmkey) tmpStr=replace(tmpStrckey) tmpStr=replace(tmpStrxkey) tmpStr=replace(tmpStrakey) tmpStr=replace(tmpStrekey) tmpStr=replace(tmpStrdkey) tmpStr=replace(tmpStrfkey) tmpStr=replace(tmpStrgkey) tmpStr=replace(tmpStr ) tmpStr=replace(tmpStr<a ******) tmpStr=replace(tmpStr</a>|||) tmpStr=replace(tmpStr>|||) tmpStr=replace(tmpStrzkey) tmpstr=replace(tmpstr|||<td width=%) tmpstr=replace(tmpstr<td width=%|||******) tmpStr=replace(tmpStr******songasp|||) tmpStr=replace(tmpStr******************) Svalue=tmpstr arrStr=split(tmpStr******) for i= to ubound(arrStr) documentwrite arrstr(i)&<br> next </script> |
