% dim art set king=new kingcms king.checkplugin king.path '检查插件安装状态 set art=new article select case action case"" king_def end select set art=nothing set king=nothing ' *** Copyright © KingCMS.com All Rights Reserved *** sub king_def() dim query,i,space,rn,dp,sql,qcount,selected,tt,rs,listname,listpath,tquery tt=timer tquery=quest("query",4) space=quest("space",2) select case cstr(space) case"" query=king.likey("artkeywords",tquery) case"1" query=king.likey("artdescription",tquery) case"2" query=king.likey("artauthor",tquery) case else query=king.likey("arttitle",tquery) end select rn=quest("rn",2) if len(rn)=0 then rn=20 if int(rn)>100 then rn=100 if int(rn)<10 then rn=10 king.ol="
"&replace(art.lang("tip/search"),"[***number***]",formatnumber(qcount,0,true))&"
" king.ol=dp.plist '循环显示搜索结果列表 for i=0 to dp.length set rs=conn.execute("select listname,listpath from kingart_list where listid="&dp.data(1,i)&";") if not rs.eof and not rs.bof then listname=rs(0) listpath=rs(1) end if rs.close set rs=nothing king.ol=""&keylight(htmlencode(king.lefte(dp.data(3,i),200)),tquery)&"
" king.ol=""&htmlencode(listname)&" - "&htmlencode(dp.data(7,i))&" - "&dp.data(4,i)&"
" king.ol=""&art.lang("tip/noart")&"