马克斯电影程序插件.docVIP

!-- #include file=admin_inc.m -- !--#include file=../inc/pinyin.m-- % server.scripttimeout=99999 const 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) then pg=1 else pg=Clng(pg) end if if not isNum(t) then t=0 else t=Clng(t) end if 资源API AddResUrl -1,,h3优秀资源库/h3 AddResUrl 9,http://www.qvodzy.me/api/max.asp,【PVOD】font color=#0000FF闪播Pvod资源站,更新及时,pvodzi资源站长每日更新推荐/font AddResUrl 10,http://www.qvodzy.me/api/max.asp,【QVOD】font color=#FF0000qvodzy.me优秀资源站、在影视站长中使用非常广泛、资源稳定、快速、更新及时推荐 /font AddResUrl 24,http://www.hacow.me/xml/maxresxml.asp,【QVOD】font color=#0000FFhacow.me影视资源站、无弹窗、速度快、更新多/font AddResUrl 25,/xml/max.asp,【QVOD】font color=#0000FF01影视资源库、无弹窗、速度快、更新多/font AddResUrl 7,/api/maxresxml.asp,【GVOD】font color=#FF0000影视资源库,更新较为及时,有良性广告,gvodzi资源站长每日更新推荐 /font AddResUrl -1,,h3站长资源库/h3 AddResUrl 8,/max/maxresxml.asp,【GVOD】font color=#0000FFFK字幕组影视资源库,每日手动更新 ,数量多 /font AddResUrl 6,/ls/maxresxml.asp,【GVOD】font color=#0000FF369影视资源库,原创首发最新热门资源/font Header Select Case ac Case list:getlist() Case bind:bindType Case bindsubmit:bindSubmit case select:gather Case type:gatherType Case day:gatherDay Case all:gatherALl Case else Main End Select Footer terminateAllObjects Function rNodeText(ByRef node,ByVal name) rNodeText=Replace(node.selectNodes(name)(0).text,,lt;) End Function Function filterQuote(ByVal s) filterQuote=ReplaceStr(s,,) End Function Function 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 65536) The