沐浴阳光的SK猫

http://dianying.cntv.cn/love/lianaiqianguize/classpage/video/20091221/100120.shtml

这是CCTV电影站一个播放页面地址，打开源码，找到播放器一段，flash player是由JS创建的

<script type="text/javascript" src="http://js.player.cntv.cn/creator/film_standard2.js"></script><br /><script type="text/javascript"><br />var fo = createPlayer("v_player_cctv",928,552);<br />fo.addVariable("videoId", "20091221100120");<br />fo.addVariable("articleId", "VIDE0020091221100120");<br />fo.addVariable("scheduleId", "C13671000001");<br /><br />fo.addVariable("filePath", "/love/lianaiqianguize/classpage/video/");<br />fo.addVariable("sorts", "其他,,,爱情,C13671,CCTV-9");<br />fo.addVariable("sysSource", "discovery");<br />fo.addVariable("url", "http://dianying.cntv.cn/love/lianaiqianguize/classpage/video/20091221/100120.shtml");<br />fo.addVariable("videoCenterId","36b502b4ceeb4a6d950955b4bd9e93f8");//视频生产中心id<br />fo.addVariable("channelId",channelId);//埋码<br />fo.addVariable("adCall",adCall);//广告<br /><br />fo.addVariable("isLogin", "y");<br />fo.addVariable("userId", "001");<br />fo.addVariable("hour24DataURL", "");<br />fo.addVariable("isCycle", "false");<br />fo.addVariable("wideMode", "normal");<br />fo.addVariable("defaultRate", "low");<br />fo.addVariable("isAutoPlay", "true");<br />writePlayer(fo,"myFlash");<br /></script><br />

createPlayer() 函数在 film_standard2.js 文件，找到swf播放器地址 http://player.cntv.cn/standard/cntvplayer.swf ，下载下来用 Action Script Viewer 6 打开

发现里面有这么个类 com.cntv.common.model.proxy.GetVideoInfoProxy ，通过用 videoId、articleId、filePath 等关键字搜索，找到这么一段AS代码

_local2 = (((((this._localtor.configVO.videoInfoURL + this._localtor.paramVO.filePath) + this._localtor.paramVO.videoId.substr(0, 8)) + "/") + this._localtor.paramVO.videoId.substr(8, (this._localtor.paramVO.videoId.length - 1))) + ".txt");

More...

同事搞到个台湾网站，繁体的，要对整个数据库进行繁体转简体，帮忙写了个VBS 先是写了changeTable(table,col)函数，可以对单表格进行转换，用法 changeTable("Article","name|address")其中Article是表名，后面的是要转换字段，多个字段用 | 隔开 VBS交给他之后，他说能不能把整个库都转了，因为有近3百个表，我晕，于是写了changeDB()，可对整个数据库转换，但只适用于MSSQL 只找到简繁体单字对应的字符集，所以只能进行单字转换，如果能词组对应的关系表就好多了，像软体就可以转为软件了该脚本同时支持简体转繁体，详见脚本注释 脚本在WindowsXP(SP2) + SQL 2005 下运行通过

More...

四个月前发在落伍申请，居然被列入精华贴

该脚本已经弄到9千多套图片，并切成15种尺寸
240x320||176x220||176x180||144x176||132x160||128x160||128x146||128x128||128x96||120x160||120x144||120x128||120x101||96x113||80x80

只发在这里和落伍，转载的同志请保持完整哈

想知道WebSpider2是虾米东西，点击点击这里

oBlog居然不能发这么长的代码，那就贴壁纸的采集好了，完整的包括动画的采集请看论坛
……

More...

跟昨晚的768.cc爬行差不多，因为昨晚已经爬了一些数据，所以插入数据库函数做了点修改

2个脚本其实大同小异，用到的函数并不多

'0768114.net网址大全爬行脚本<br />'For WebSpider2<br />'梦游的猫<br />'创建时间 2006年02月25日 01:11:01<br />'最后修改 2006年02月25日 02:29:31<br /><br />'Option Explicit<br />Set conn = CreateObject("ADODB.Connection")<br />MyConn="Provider=SQLOLEDB.1;Persist Security InFso=true;Data Source=127.0.0.1;Initial Catalog='WebSpider';User ID='spider';Password='spider';CONNect Timeout=30"<br />Conn.Open MyConn<br /><br />Sub Main<br /><br /> urlMain = "http://0768114.net/"<br /><br /> CLSLog()<br /> CLSTMPXML()<br /> Call Spider.OpenURL(Document,urlMain)<br /> tempI = 0<br /> For Each it in Document.getElementsByTagName("table")<br /> if it.id = "AutoNumber7" then<br /> if tempI = 1 then<br /> For Each itA in it.getElementsByTagName("a")<br /> if instr(itA.href,"sc.asp?classid") > 0 then<br /> showlog trim(itA.innerHtml)<br /> myUrl = myUrl & "||" & itA.href<br /> myType = myType & "||" & trim(itA.innerHtml)<br /> end if<br /> next<br /> exit for<br /> end if<br /> tempI = tempI + 1<br /> end if<br /> next<br /><br />......

More...