<% dim advid:advid=filterPara(getForm("id","get")) dim advtype:advtype=filterPara(getForm("type","get")) dim lenPagelist,TypeId,strPagelist,lsize,rsObj,labelRuleField,labelRulePagelist,matches,match,labelStr,loopStr,labelArr,lorder,orderStr,sperStrs,spec,sperStr,title,whereStr,AdvArray,loopstrAdv,arri,arrl,loopstrAdvpf,loopstrAdvdl,loopstrAdvtc,i if not isnul(advid) then whereStr=chr(32)&"AdvStatus=1 and AdvID="&advid AdvArray=conn.Exec("select AdvName,AdvClass,AdvImg,AdvLink,AdvWidth,AdvHeight,AdvStime,AdvEtime,AdvContent from {prefix}Adv where "&whereStr&"","arr") if isarray(AdvArray) then if now()>AdvArray(6,0) and now()"&AdvArray(8,0)&"" echo "document.write("""& loopstrAdv &""");" case 2 loopstrAdv= "" echo "document.write("""&replace(loopstrAdv,"/","\/")&""");" case 3 loopstrAdv=replace(decodeHtml(AdvArray(8,0)),"""","\""") loopstrAdv=replace(loopstrAdv,"/","\/") loopstrAdv=replace(loopstrAdv,vbLf," ") loopstrAdv=replace(loopstrAdv,vbCrLf," ") echo "document.write("""&loopstrAdv&""");" end select end if end if end if select case advtype case "pf" whereStr=chr(32)&" AdvStatus=1 and AdvClass =4" AdvArray=conn.Exec("select AdvName,AdvClass,AdvImg,AdvLink,AdvWidth,AdvHeight,AdvStime,AdvEtime,AdvContent,AdvStyle from {prefix}Adv where "&whereStr&"","arr") loopstrAdvpf="" loopstrAdvdl="" loopstrAdvtc="" if isarray(AdvArray) then for i=0 to ubound(AdvArray,2) if now()>AdvArray(6,i) and now()"");" echo "document.write(""<\/a>"");" if AdvArray(9,i)=2 then echo "document.write(""
"");" echo "document.write("""");" end if echo "document.write(""<\/div>"");" echo "document.write("""");" echo "document.write(""var piaofurun=new AdMove('piaofu');"");" echo "document.write(""piaofurun.Run();"");" echo "document.write(""<\/scr""+""ipt>"");" end if next end if case "dl" whereStr=chr(32)&" AdvStatus=1 and AdvClass =5" AdvArray=conn.Exec("select AdvName,AdvClass,AdvImg,AdvLink,AdvWidth,AdvHeight,AdvStime,AdvEtime,AdvContent,AdvStyle from {prefix}Adv where "&whereStr&"","arr") loopstrAdvpf="" loopstrAdvdl="" loopstrAdvtc="" if isarray(AdvArray) then for i=0 to ubound(AdvArray,2) if now()>AdvArray(6,i) and now()"");" if not isnul(arri(0)) then echo "document.write("""");" echo "document.write("""");" if AdvArray(9,i)=2 then echo "document.write(""
"");" echo "document.write("""");" end if end if echo "document.write(""
"");" if not isnul(arri(1)) then echo "document.write("""");" echo "document.write("""");" if AdvArray(9,i)=2 then echo "document.write(""
"");" echo "document.write("""");" end if end if echo "document.write(""
"");" echo "document.write(""window.setInterval(\""heartBeat()\"",1);"");" end if next end if case "tc" whereStr=chr(32)&" AdvStatus=1 and AdvClass =6" AdvArray=conn.Exec("select AdvName,AdvClass,AdvImg,AdvLink,AdvWidth,AdvHeight,AdvStime,AdvEtime,AdvContent,AdvStyle from {prefix}Adv where "&whereStr&"","arr") loopstrAdvpf="" loopstrAdvdl="" loopstrAdvtc="" if isarray(AdvArray) then for i=0 to ubound(AdvArray,2) if now()>AdvArray(6,i) and now()"");" echo "document.write(""
"");" echo "document.write("""");" echo "document.write(""_<\/a>¡Á<\/a><\/div>"");" echo "document.write(""
"&AdvArray(0,i) &"<\/div>"");" echo "document.write(""
"&AdvArray(8,i) &"<\/div>"");" echo "document.write(""<\/div>"");" echo "document.write(""