马克斯电影程序插件.doc

%server.scripttimeout=99999const gatherWaitTime=2 资源库采集每页数据间隔时间Dim gbTypeArray,backurl:backurl=getForm(backurl,get)Dim ac,h,wd,rid,t,pg:ac=getForm(ac,both):h=getForm(h,both):wd=getForm(wd,both):rid=getForm(rid,both):t=getForm(t,both):pg=getForm(pg,both)redim res(2,-1)if not isNum(pg) thenpg=1elsepg=Clng(pg)end ifif not isNum(t) thent=0elset=Clng(t)end if资源APIAddResUrl -1,优秀资源库AddResUrl 9,http:/www.qvodzy.me/api/max.asp,【PVOD】闪播Pvod资源站,更新及时,pvodzi资源站长每日更新-推荐AddResUrl 10,http:/www.qvodzy.me/api/max.asp,【QVOD】qvodzy.me优秀资源站、在影视站长中使用非常广泛、资源稳定、快速、更新及时-推荐 AddResUrl 24,http:/www.hacow.me/xml/maxresxml.asp,【QVOD】hacow.me影视资源站、无弹窗、速度快、更新多AddResUrl 25,/xml/max.asp,【QVOD】01影视资源库、无弹窗、速度快、更新多AddResUrl 7,/api/maxresxml.asp,【GVOD】影视资源库,更新较为及时,有良性广告,gvodzi资源站长每日更新-推荐 AddResUrl -1,站长资源库AddResUrl 8,/max/maxresxml.asp,【GVOD】FK字幕组影视资源库,每日手动更新 ,数量多 AddResUrl 6,/ls/maxresxml.asp,【GVOD】369影视资源库,原创首发最新热门资源HeaderSelect Case acCase list:getlist()Case bind:bindTypeCase bindsubmit:bindSubmitcase select:gatherCase type:gatherTypeCase day:gatherDayCase all:gatherALlCase elseMainEnd SelectFooterterminateAllObjectsFunction rNodeText(ByRef node,ByVal name)rNodeText=Replace(node.selectNodes(name)(0).text,<)End FunctionFunction filterQuote(ByVal s)filterQuote=ReplaceStr(s,)End FunctionFunction U2UTF8(Byval a_iNum) Dim sResult,sUTF8,iTemp,iHexNum,i:iHexNum = Clng(a_iNum)If iHexNum = 0 Then Exit Function sResult = If (iHexNum 128) Then sResult = % & hex(iHexNum) ElseIf (iHexNum 2048) Then sResult = % & hex(&H80 + (iHexNum And &H3F) iHexNum = iHexNum &H40 sResult = % & hex(&HC0 + (iHexNum And &H1F) & sResult ElseIf (iHexNum 127 OR iTemp0) Then iUnicode = AscW(sTemp) If iUnicode0 Then iUnicode = iUnicode + 65536 End If Else iUnicode = iTemp End If sResult = sResult & U2UTF8(iUnicode) Next Utf8UrlEncode = sResultEnd FunctionFunction makePageNumber(Byval currentPage,Byval pageListLen,Byval totalPages)currentPage=clng(currentPage)dim beforePages,pagenumber,pagedim beginPage,endPage,strPageNumberif pageListLen mod 2=0 then beforePages=pagelistLen / 2 else beforePages=clng(pagelistLen / 2) - 1if currentPage totalPages then currentPage=totalPagesif pageListLen totalPages then pageListLen=totalPagesif currentPage - beforePages totalPages thenbeginPage=totalPages - pageListLen + 1 : endPage=totalPageselse beginPage=currentPage - beforePages : endPage=currentPage - beforePages + pageListLen - 1end iffor pagenumber=beginPage to endPageif pagenumber=1 then page= else page=pagenumberif clng(pagenumber)=clng(currentPage) thenstrPageNumber=strPageNumber&pagenumber&else strPageNumber=strPageNumber&pagenumber&end ifnextmakePageNumber=strPageNumberEnd FunctionSub getlist()Dim xmlobj,xml,nodes,i,l,tlist,pagestr,x,y,z,url:set xmlobj = mainClassobj.createObject(MainClass.Xml)url=res(1,rid)&?ac=list&t=&t&h=&h&pg=&pg&wd=&Utf8UrlEncode(wd)xml=bytesToStr(getRemoteContent(url,body),utf-8)If left(xml, 5) ?xml then die err_xml else xmlobj.xmlDomObj.loadXML xmldim page,pagecount,pagesize,recordcountset nodes=xmlobj.getNodes(rss/list)(0)page=Clng(xmlobj.getAttributesByNode(nodes,page)pagecount=Clng(xmlobj.getAttributesByNode(nodes,pagecount)pagesize=Clng(xmlobj.getAttributesByNode(nodes,pagesize)recordcount=Clng(xmlobj.getAttributesByNode(nodes,recordcount)set nodes=nothingset nodes=xmlobj.getNodes(rss/class/ty):l=nodes.length-1:redim tlist(1,l)for i=0 to ltlist(0,i)=xmlobj.getAttributesByNode(nodes(i),id):tlist(1,i)=nodes(i).textnextset nodes=nothingpagestr = 共 &recordcount& 条数据 每页 &pagesize& 条 当前 &page&/&pagecount& 页码pagestr = pagestr & 首页 上一页pagestr = pagestr & makePageNumber(page,10,pagecount)pagestr = pagestr & 下一页 尾页pagestr = pagestr &   跳转  % 资源采集平台 » a href=?ac=list&rid=%echo 全部资源for i=0 to UBound(tlist,2)z = res(0,rid)&_&tlist(0,i)y = getBindedLocalId(z):if not isNum(y) then y=0if y = 0 thenx = 未绑定elsex = 已绑定end ifecho &tlist(1,i)   & x & next%input type=hidden name=ac value=input type=hidden name=rid value=input type=hidden name=t value=input type=hidden name=h value=   input type=button class=btn style=width:65px onClick=location.href=?ac=day&rid=&t=&h=24&backurl=+encodeURIComponent(location.href); value=采集当天/ input type=button class=btn style=width:103pxonclick=location.href=?ac=type&rid=&t=&backurl=+encodeURIComponent(location.href); value=一键采集该分类%if t/   查询：input type=text name=wd value= style=width:100px  select onChange=self.location.href=?ac=list&rid=&t=+this.optionsthis.selectedIndex.value+&h=&pg=&wd=按分类查看%for i=0 to UBound(tlist,2)echo &tlist(1,i)&next%名称分类来源时间input type=hidden name=rid value=%dim la,id,ti,na,ty,dt,no,ch:set nodes=xmlobj.getNodes(rss/list/video):l=nodes.length-1for i=0 to lla=rNodeText(nodes(i),last)id=rNodeText(nodes(i),id)ti=rNodeText(nodes(i),tid)na=rNodeText(nodes(i),name)ty=rNodeText(nodes(i),type)dt=rNodeText(nodes(i),dt)no=rNodeText(nodes(i),note)if DateValue(la)=Date() thench= checked:la=&la&elsech=end if%input type=checkbox class=checkbox name=ids value= id=/label for=a href=?ac=list&t=&rid= 资源采集平台tr id=resa href=?ac=list&rid=()a href=# onClick=location.href=?ac=day&rid=;采集当天 a href=# onClick=location.href=?ac=type&rid=&backurl=+encodeURIComponent(location.href);一键采集所有 a href=?ac=list&rid=视频列表资源采集平台if(parent.$(admincpnav) parent.$(admincpnav).innerHTML=后台首页 »  » 资源采集平台;inputheight:12px;.tb2 tdpadding:2px 5px 2px 5px;height:25px.tb2 .thctext-align:center;line-height:30px; background-color: #F5F7F8;font-size:18px;font-weight:bold;color:#000.tb2 .thrtext-align:center;height:20px.labelpadding:0;width:150px;text-align:right;border-right:1px solid #DEEFFA;.btnheight:22px.redcolor:red.bluecolor:blue.graycolor:gray.ul lifloat:left;margin:3px;width:150pxh3padding:0;margin:0;font-size:12px;background:none;border:nonefunction show()var arg=arguments;for(var i=0;iarg.length;i+)$(argi).style.display=;function hide()var arg=arguments;for(var i=0;iarg.length;i+)$(argi).style.display=none;Copyright 2005-2009 All rights reserved. Maxcms4.0 资源采集平台 » 绑定分类%echo 将资源库分类 &vtypename& 绑定到您的网站分类的  请选择数据分类typeid=getBindedLocalId(curBindId) makeTypeOptionSelected 0, |  ,typeidecho     %0 then delBindId=trimOuterStr(replace(,&unionId&,&bindid&,),) else addUnionid=unionIdend ifEnd FunctionFunction addUnionid(bindid,unionId)if isNul(unionId) then addUnionid=bindidelseif instr(,&unionId&,&bindid&,)0 then addUnionid=unionId else addUnionid=unionId&,&bindidend ifEnd FunctionFunction getBindedLibIds()dim libIds,i,arrayLenif not isarray(gbTypeArray) thengbTypeArray=conn.db(select m_id,m_unionid from pretype where m_type=0 AND len(m_unionid)0,array)end ifif isArray(gbTypeArray) thenarrayLen=ubound(gbTypeArray,2)for i=0 to arrayLenif i0,array)end ifif not isArray(gbTypeArray) then getBindedLocalId= : Exit FunctionarrayLen=ubound(gbTypeArray,2)for i=0 to arrayLenunionArray=split(gbTypeArray(1,i),) : arrayLen2=ubound(unionArray)for j=0 to arrayLen2if trim(unionArray(j)=trim(libId) then getBindedLocalId=gbTypeArray(0,i) : Exit FunctionnextnextgetBindedLocalId=End FunctionSub gatherdim weburl,ids:ids=replace(getForm(ids,both), ,)if isNul(ids) then alertMsg 请选择采集数据,:lastweburl=res(1,Clng(rid)&?ac=videolist&ids=&idsintoDatabase weburl,selectEnd SubSub gatherTypedim weburl:weburl=res(1,Clng(rid)&?ac=videolist&rid=&rid&t=&t&pg=&pgintoDatabase weburl,typeEnd SubSub gatherDaydim weburl:weburl=res(1,Clng(rid)&?ac=videolist&rid=&rid&t=&t&h=24&pg=&pgintoDatabase weburl,dayEnd SubSub gatherAlldim weburl:weburl=res(1,Clng(rid)&?ac=videolist&rid=&rid&pg=&pgintoDatabase weburl,typeEnd SubFunction repairStr(ByVal vstr,ByVal sfrom)dim regExpObj : set regExpObj= new RegExp : regExpObj.ignoreCase = true : regExpObj.Global = true : regExpObj.Pattern = sS+?$sS+?$sS+?dim i,j,f: j=1vstr = split(vstr,#):f=getReferedId(sfrom)for i = 0 to ubound(vstr)if not(isnul(vstr(i) thenif regExpObj.Test(vstr(i) = false then regExpObj.Pattern = sS+?$sS+?if regExpObj.Test(vstr(i) = true then vstr(i) = trim(vstr(i)&$&felsevstr(i) = 第&j&集$&trim(vstr(i)&$&fend if regExpObj.Pattern = sS+?$sS+?$sS+?else vstr(i) = trim(vstr(i)end ifj=j+1end if nextrepairStr = sfrom&$&Join(vstr,#)set regExpObj =nothingEnd FunctionSub intoDatabase(url,gtype)dim xmlobj,xml,alertCon