?% class aboutclass private r_path,r_doc,r_thisver ' *** Copyright © KingCMS.com All Rights Reserved *** private sub class_initialize() dim dbver,rs r_path = "about" r_thisver = 1.0002 if king.checkcolumn("king__about_page")=false then install:update else set rs=conn.execute("select kversion from king__about_config where systemname='KingCMS'") if not rs.eof and not rs.bof then dbver=rs(0) end if rs.close set rs=nothing if r_thisver>dbver then update end if end sub ' *** Copyr ight © KingCMS.com All Rights Reserved *** public property get path :path=r_path:end property ' *** Copyright © KingCMS.com All Rights Reserved *** public function lang(l1) on error resume next if isobject(r_doc)=false then set r_doc=Server.CreateObject(king_xmldom) r_doc.async=false '判断是否存在所设置的语言?如果没有就调用默认设置的语言? if king.isexist(king_system&r_path&"/language/"&king.language&".xml") then r_doc.load(server.mappath(king_system&r_path&"/language/"&king.language&".xml")) else r_doc.load(server.mappath(king_system&r_path&"/language/"&king_language&".xml")) end if end if lang=r_doc.documentElement.SelectSingleNode("//kingcms/"&l1).text if err.number<>0 then lang="["&l1&"]" err.clear end if end function ' *** Copyright © KingCMS.com All Rights Reserved *** public sub list() dim listid,listname,rs,selected listid=quest("listid",2) if len(listid)=0 then listid=form("listid") if len(listid)=0 then listid=quest("listid1",2) if len(listid)=0 then listid=form("listid1") end if if len(form("listid"))>0 then if validate(listid,2)=false then king.error king.lang("error/invalid") end if ' out listid Il "

" Il lang("title") Il "" if king.instre("group,edtgroup",action) then Il "["&lang("common/grade")&"" if instr(action,"group")>0 then Il ""&lang("common/gradeadd")&"" end if Il "]" else Il "[" if len(listid)>0 and cstr(listid)<>"0" then Il ""&lang("common/add")&"" end if Il ""&lang("common/search")&"" Il "]" if len(listid)>0 and cstr(listid)<>"0" then Il "[" Il ""&lang("common/listart")&"" if conn.execute("select count(listid) from king__about_list where listid1="&listid&";")(0)>0 then Il ""&lang("common/listdir")&"" end if Il ""&lang("common/attrib")&"" Il "]" end if Il "["&lang("common/home")&"" Il ""&lang("common/tree")&"" Il ""&lang("common/addlist")&"]" end if if king.instre(king.plugin,"passport") then Il "["&lang("common/grade")&"" if instr(action,"group")>0 then Il ""&lang("common/gradeadd")&"" end if Il "]" end if Il "" Il "

" if cstr(listid)<>"0" and len(listid)>0 and (action="" or action="field") then Il "

"&lang("common/root")&" :/" Il list_guide(listid) Il "

" end if end sub ' *** Copyright © KingCMS.com All Rights Reserved *** private function list_guide(l1) if cstr(l1)="0" then exit function dim rs,i,data,I1,listid listid=quest("listid",2) if len(listid)=0 then listid=form("listid") if len(form("listid"))>0 then if validate(listid,2)=false then king.error king.lang("error/invalid") end if set rs=conn.execute("select listid1,listname from king__about_list where listid="&l1&";") if not rs.eof and not rs.bof then if cstr(listid)=cstr(l1) then I1=" "&htmlencode(rs(1)) else I1=" "&htmlencode(rs(1))&" /" end if if cstr(rs(0))<>"0" then I1=list_guide(rs(0))&I1 end if rs.close set rs=nothing list_guide=I1 end function ' *** Copyright © KingCMS.com All Rights Reserved *** private function guide(l1) dim rs,i,data,I1 if cstr(l1)="0" then exit function set rs=conn.execute("select listid1,listname,listpath from king__about_list where listid="&l1&";") if not rs.eof and not rs.bof then I1=""&htmlencode(rs(1))&"" if cstr(rs(0))<>"0" then I1=guide(rs(0))&" >> "&I1 end if rs.close set rs=nothing guide=I1 end function ' *** Copyright © KingCMS.com All Rights Reserved *** public sub createpage(l1) dim tmphtm,outhtm,i,j,sql,rs,data,sql_field,fields,sql_fieldhtml dim listid,datalist,artfrom,kpath sql="kid,listid,ktitle,kkeywords,kdescription,kpath,kdate,kgrade,korder,khit,kup,kcommend,khead"'12 sql_field="kc_aboutus_title,kc_aboutus_content" if len(sql_field)>0 then sql=sql&","&sql_field sql_fieldhtml="kc_aboutus_content" if len(l1)=0 then exit sub set rs=conn.execute("select "&sql&" from king__about_page where kid in ("&l1&") and kpath<>'';") if not rs.eof and not rs.bof then data=rs.getrows() else redim data(0,-1) end if rs.close set rs=nothing for i=0 to ubound(data,2) if cstr(data(1,i))<>cstr(listid) then set rs=conn.execute("select listname,listpath,pagetemplate1,pagetemplate2 from king__about_list where listid="&data(1,i)&";") if not rs.eof and not rs.bof then datalist=rs.getrows() listid=data(1,i) tmphtm=king.read(datalist(2,0),r_path&"[page]/"&datalist(3,0)) end if rs.close set rs=nothing end if king.clearvalue king.value "id",data(0,i) king.value "listid",data(1,i) king.value "listname",encode(htmlencode(datalist(0,0))) king.value "listpath",encode(king.inst&datalist(1,0)&"/") king.value "title",encode(htmlencode(data(2,i))) king.value "keywords",encode(htmlencode(data(3,i))) king.value "description",encode(htmlencode(data(4,i))) king.value "path",encode(getpath(data(0,i),data(7,i),king.inst&datalist(1,0)&"/"&data(5,i))) king.value "date",encode(htmlencode(data(6,i))) king.value "guide",encode(guide(listid)&" >> "&htmlencode(data(2,i))) king.value "nextpage",encode(nextpage(data(0,i),data(8,i),data(1,i),datalist(1,0),tmphtm))'下一? king.value "lastpage",encode(lastpage(data(0,i),data(8,i),data(1,i),datalist(1,0),tmphtm,datalist(0,0)))'上一? king.value "up",data(10,i) king.value "commend",data(11,i) king.value "head",data(12,i) king.value "hit","" king.value "commentid",encode(r_path&"|"&data(0,i))'传递评论参? if len(sql_field)>0 then fields=split(sql_field,",") for j=0 to ubound(fields) if king.instre(sql_fieldhtml,fields(j)) then king.value kctag(lcase(fields(j))),encode(data(j+13,i)) else king.value kctag(lcase(fields(j))),encode(htmlencode(data(j+13,i))) end if next end if outhtm=king.create(tmphtm,king.invalue) '生成文件 kpath="../../"&datalist(1,0)&"/"&data(5,i) '非文? if king.isfile(data(5,i))=false then kpath=kpath&"/"&king_ext king.savetofile kpath,outhtm next end sub ' *** Copyright © KingCMS.com All Rights Reserved *** public sub createlist(l1) dim tmphtm,outhtm dim tmphtmlist,tmplist dim jshtm,jsnumber,zebra dim rs,irs,i,j,k,data,datalist,pid,plist,pidcount,length'pidcount 总页? dim sql,suij,suijpagelist dim jsorder,listid,listpath,listname dim sql_field,fields,sql_fieldhtml if len(l1)=0 then exit sub sql="listid,listname,listpath,listtemplate1,listtemplate2,listtitle,listkeyword,listdescription"'7 datalist set rs=conn.execute("select "&sql&" from king__about_list where listid in ("&l1&");") if not rs.eof and not rs.bof then datalist=rs.getrows() else redim datalist(0,-1) end if rs.close set rs=nothing sql_field="kc_aboutus_title,kc_aboutus_content" sql_fieldhtml="kc_aboutus_content" ' sql="kid,listid,ktitle,artfrom,artdescription,kdate,artkeywords,artauthor,kpath,artimg,kgrade"'10 data sql="kid,listid,ktitle,kkeywords,kdescription,kpath,kdate,kgrade,korder,khit,kup,kcommend,khead"'12 if len(sql_field)>0 then sql=sql&","&sql_field for j=0 to ubound(datalist,2) '分析模板及标签，并获得? tmphtm=king.read(datalist(3,j),r_path&"[list]/"&datalist(4,j))'内外部模板结合后的htm代码 tmphtmlist=king.getlist(tmphtm,r_path,1)'type="list"部分的tag，包括{king:/} jshtm=king.getlabel(tmphtmlist,0) jsorder=king.getlabel(tmphtmlist,"order") if lcase(jsorder)="asc" then jsorder="asc" else jsorder="desc" jsnumber=fix(king.getlabel(tmphtmlist,"number")) zebra=king.getlabel(tmphtmlist,"zebra") suij=chr(3)&salt(20)&chr(2)'随机出来的替换参? suijpagelist=chr(3)&salt(16)&chr(2) '把tmphtm中的{king:...type=list/}标签替换为一个随机的标签；pagelist设置为一个随机标? tmphtm=replace(tmphtm,tmphtmlist,suij) '替换模板中的标签 king.clearvalue king.value "title",encode(htmlencode(datalist(5,j))) king.value "listname",encode(htmlencode(datalist(1,j))) king.value "keywords",encode(htmlencode(datalist(6,j))) king.value "description",encode(htmlencode(datalist(7,j))) king.value "listpath",encode(king.inst&datalist(2,j)) king.value "path",encode(king.inst&datalist(2,j)) king.value "pagelist",encode(suijpagelist) king.value "listid",datalist(0,j) '增加BY RichWong king.value "guide",encode(guide(datalist(0,j))) '增加,可选的 tmphtm=king.create(tmphtm,king.invalue) set rs=conn.execute("select "&sql&" from king__about_page where listid="&datalist(0,j)&" or listids like '%,"&datalist(0,j)&",%' order by kup desc,korder "&jsorder&",kid "&jsorder&";") if not rs.eof and not rs.bof then data=rs.getrows() '初始化变量? pid=0 pidcount=(ubound(data,2)+1)/jsnumber:if pidcount>int(pidcount) then pidcount=int(pidcount)+1'总页? length=ubound(data,2)'总记录数-1 for i=0 to length'开始循环列? if cstr(listid)<>cstr(data(1,i)) then listid=data(1,i) set irs=conn.execute("select listname,listpath from king__about_list where listid="&listid&";") if not irs.eof and not irs.bof then listname=irs(0) listpath=irs(1) end if irs.close set irs=nothing end if king.clearvalue king.value "id",data(0,i) king.value "listid",data(1,i) king.value "listname",encode(htmlencode(listname)) king.value "listpath",encode(king.inst&listpath) king.value "title",encode(htmlencode(data(2,i))) king.value "keywords",encode(htmlencode(data(3,i))) king.value "description",encode(htmlencode(data(4,i))) king.value "path",encode(getpath(data(0,i),data(7,i),king.inst&listpath&"/"&data(5,i))) king.value "date",encode(htmlencode(data(6,i))) king.value "hit",data(9,i) king.value "up",data(10,i) king.value "commend",data(11,i) king.value "head",data(12,i) king.value "zebra",king.mod2(i+1,zebra) king.value "commentid",encode(r_path&"|"&data(0,i))'传递评论参? if len(sql_field)>0 then fields=split(sql_field,",") for k=0 to ubound(fields) if king.instre(sql_fieldhtml,fields(k)) then king.value kctag(lcase(fields(k))),encode(data(k+13,i)) else king.value kctag(lcase(fields(k))),encode(htmlencode(data(k+13,i))) end if next end if tmplist=tmplist&king.createhtm(jshtm,king.invalue)'循环累加值到tmplist变量 if ((i+1) mod jsnumber)=0 or i=length then '当整除于number参数或到最后一个记录的时候进入生成过? ' if i=length then pid=pid+1 plist=pagelist(king.inst&datalist(2,j)&"/$",pid+1,pidcount,length+1) outhtm=replace(tmphtm,suij,tmplist) outhtm=replace(outhtm,suijpagelist,plist) king.createfolder "../../"&datalist(2,j) if pid=0 then'列表第一? king.savetofile "../../"&datalist(2,j)&"/"&king_ext,outhtm else king.savetofile "../../"&datalist(2,j)&"/"&(pid+1)&"/"&king_ext,outhtm end if '初始化循环变? tmplist="" pid=pid+1 end if next else outhtm=replace(tmphtm,suij,king.lang("error/rsnot")) outhtm=replace(outhtm,suijpagelist,"") king.savetofile "../../"&datalist(2,j)&"/"&king_ext,outhtm end if rs.close set rs=nothing next end sub ' *** Copyright © KingCMS.com All Rights Reserved. *** public function pageslist(l1,l2,l3,l4,l5)'url，当前，总页,kgrade,kid if l3=1 then exit function dim i,I1 if cstr(l4)="0" then for i=1 to l3 if cstr(i)=cstr(l2) then I1=I1&""&i&"" else if cstr(i)="1" then I1=I1&"1" else I1=I1&""&i&"" end if end if next else for i=1 to l3 if cstr(i)=cstr(l2) then I1=I1&""&i&"" else if cstr(i)="1" then I1=I1&"1" else I1=I1&""&i&"" end if end if next end if pageslist=""&I1&"" end function ' *** Copyright © KingCMS.com All Rights Reserved *** public sub createmap() dim rs,i,data,irs,outmap,listid,listpath if len(king.mapname)=0 then exit sub set rs=conn.execute("select top "&king.mapnumber&" kdate,kpath,kid,listid,kcommend,khead from king__about_page where kshow=1 and kgrade=0 order by kid desc;") if not rs.eof and not rs.bof then data=rs.getrows() outmap="" outmap=outmap&"" for i=0 to ubound(data,2) if cstr(listid)<>cstr(data(3,i)) then listid=data(3,i) set irs=conn.execute("select listpath from king__about_list where listid="&listid&";") if not irs.eof and not irs.bof then listpath=irs(0) end if irs.close set irs=nothing end if outmap=outmap&"" outmap=outmap&""&getpath(data(2,i),0,king.siteurl&king.inst&listpath&"/"&data(1,i))&"" outmap=outmap&""&formatdate(data(0,i),1)&"" outmap=outmap&""&formatnumber((data(4,i)+data(5,i)+2)/4,1,true)&"" outmap=outmap&"" next outmap=outmap&"" king.savetofile "../../"&kc.path&".xml",outmap end if rs.close set rs=nothing end sub ' *** Copyright © KingCMS.com All Rights Reserved *** public function kctag(l1) if len(l1)>3 then kctag=right(l1,len(l1)-3) else king.error king.lang("error/invalid") end if end function ' *** Copyright © KingCMS.com All Rights Reserved *** public function getpath(l1,l2,l3)'kid,grade,path if cstr(l2)="0" then if king.isfile(l3) then'file getpath=l3 else getpath=l3&"/" end if else getpath=king.page&r_path&"/page.asp?kid="&l1 end if end function ' *** Copyright © KingCMS.com All Rights Reserved *** private function lastpage(l1,l2,l3,l4,l5,l6)'上一? if instr(lcase(l5),"{king:lastpage")>0 then dim rs,I1 set rs=conn.execute("select top 1 ktitle,kgrade,kpath,kid from king__about_page where kshow=1 and listid="&l3&" and korder<"&l2&" order by korder desc,kid desc;") if not rs.eof and not rs.bof then I1=""&htmlencode(rs(0))&"" else'如果不存在，则输出js加载来验? I1="["&htmlencode(l6)&"]" end if rs.close set rs=nothing lastpage=""&I1&"" end if end function ' *** Copyright © KingCMS.com All Rights Reserved *** private function nextpage(l1,l2,l3,l4,l5)'kid,korder,listid,listpath,tmphtm //下一? if instr(lcase(l5),"{king:nextpage")>0 then dim rs,I1 set rs=conn.execute("select top 1 ktitle,kgrade,kpath,kid from king__about_page where kshow=1 and listid="&l3&" and korder>"&l2&" order by korder asc,kid asc;") if not rs.eof and not rs.bof then I1=""&htmlencode(rs(0))&"" ' out I1 else'如果不存在，则输出js加载来验? I1="" end if rs.close set rs=nothing nextpage=""&I1&"" end if end function ' *** Copyright © KingCMS.com All Rights Reserved *** public function formatfrom(l1) dim I1 if instr(l1,"|")>0 then I1=split(l1,"|") formatfrom=""&htmlencode(I1(0))&"" else formatfrom=l1 end if end function ' *** Copyright © KingCMS.com All Rights Reserved *** public function pagepath(l1,l2) 'l1 路径 l2 第几? dim I1,I2(1) if king.instre("0,1",l2) or len(l2)=0 then if king.isfile(l1) then'file pagepath=l1 else pagepath=l1&"/" end if exit function end if if king.isfile(l1) then'文件 I1=split(l1,".") I2(0)="."&I1(ubound(I1))'right I2(1)=left(l1,len(l1)-len(I2(0)))'left pagepath=I2(1)&"_"&l2&I2(0) else pagepath=l1&"/"&l2&"/" end if end function ' *** Copyright © KingCMS.com All Rights Reserved *** public function getgrade(l1,l2)'返回会员组名? l1 groupnum l2 dim I1,rs select case cstr(l1) case"0","1" I1=kc.lang("list/grade"&l1) case else set rs=conn.execute("select groupname from king__about_group where groupnum="&l1&";") if not rs.eof and not rs.bof then I1=htmlencode(rs(0)) else I1=kc.lang("list/grade1") conn.execute "update king__about_page set kgrade=1 where kid="&l2&";" end if rs.close set rs=nothing end select getgrade=I1 end function ' *** Copyright © KingCMS.com All Rights Reserved *** public sub head(l1)'会员访问权限验证 1:groupnum dim rs select case cstr(l1) case"0" case"1" king.pphead 1 case else king.pphead 1 set rs=conn.execute("select groupuser from king__about_group where groupnum="&l1&";") if not rs.eof and not rs.bof then if king.instre(rs(0),king.name)=false then'如果不属于用户组，就提示错误 king.error kc.lang("error/nogroup") end if else conn.execute "update king__about_page set kgrade=1 where kgrade="&l1&";" end if rs.close set rs=nothing end select end sub ' *** Copyright © KingCMS.com All Rights Reserved *** public sub install() king.head "admin",0 dim sql ' king__about_page sql="kid int not null identity primary key," sql=sql&"korder int not null default 0,"'排序 sql=sql&"kup int not null default 0,"'置顶 sql=sql&"kshow int not null default 0,"'默认草稿 sql=sql&"kcommend int not null default 0,"'推荐 sql=sql&"khead int not null default 0,"'头条,头条必须要上传图? sql=sql&"kgrade int not null default 0,"'默认级别 0直接生成html 1:限会员访?4:限vip访问 sql=sql&"khit int not null default 0,"'点击?查看情况 sql=sql&"kinput nvarchar(30),"'录入 sql=sql&"kkeywords nvarchar(120),"'关键字，不给显示但需要记? sql=sql&"kdescription nvarchar(255),"'简述，也不给显? sql=sql&"kpath nvarchar(255) not null,"'文件名称 sql=sql&"listid int not null default 0,"'主栏? sql=sql&"listids ntext," sql=sql&"kdate datetime,"'添加时间 sql=sql&"ktitle nvarchar(50) not null"'名称 conn.execute "create table king__about_page ("&sql&")" 'king__about_list sql="listid int not null identity primary key," sql=sql&"listid1 int not null default 0,"' sql=sql&"listorder int not null default 0,"'排序 sql=sql&"listname nvarchar(30)," sql=sql&"listtitle nvarchar(100),"'栏目标题 sql=sql&"listkeyword nvarchar(120),"'栏目关键? sql=sql&"listdescription nvarchar(250),"'description sql=sql&"listpath nvarchar(100),"'路径 sql=sql&"lastdate datetime,"'最后一次添加时? sql=sql&"listtemplate1 nvarchar(50)," sql=sql&"listtemplate2 nvarchar(50)," sql=sql&"pagetemplate1 nvarchar(50)," sql=sql&"pagetemplate2 nvarchar(50)" conn.execute "create table king__about_list ("&sql&")" ' king__about_group sql="groupid int not null identity primary key," sql=sql&"groupnum int not null default 0,"'代号 sql=sql&"groupname nvarchar(50)," sql=sql&"groupuser ntext"'成员列表 conn.execute "create table king__about_group ("&sql&")" ' king__about_config sql="systemname nvarchar(10)," sql=sql&"kversion real not null default 1" conn.execute "create table king__about_config ("&sql&")" conn.execute "insert into king__about_config (systemname) values ('KingCMS');" king.createmap end sub ' *** Copyright © KingCMS.com All Rights Reserved *** public sub update() dim sql on error resume next conn.execute "alter table king__about_page add kc_aboutus_title nvarchar(255) " conn.execute "alter table king__about_page add kc_aboutus_content ntext " conn.execute "update set kversion="&r_thisver&" where systemname='KingCMS';" end sub end class ' *** Copyright © KingCMS.com All Rights Reserved *** function king_tag_about_list(tag,invalue) on error resume next dim rs,i,data,listid,insql_id1 dim tmplist,jshtm,jslistid,zebra listid=king.getvalue(invalue,"listid") jshtm=king.getlabel(tag,0) jslistid=king.getlabel(tag,"listid") zebra=king.getlabel(tag,"zebra") insql_id1=" listid1=0" select case lcase(jslistid) case"sub" if validate(listid,2) then insql_id1=" listid1="&listid end if case"current" if validate(listid,2) then set rs=conn.execute("select listid1 from king__about_list where listid="&listid&";") if not rs.eof and not rs.bof then insql_id1=" listid1="&rs(0) end if rs.close set rs=nothing end if case else if validate(jslistid,6) then insql_id1=" listid1 in ("&jslistid&")" end if end select set rs=conn.execute("select listid,listname,listpath from king__about_list where "&insql_id1&" order by listorder desc,listid desc;") if not rs.eof and not rs.bof then data=rs.getrows() for i=0 to ubound(data,2) king.clearvalue king.value "listid",data(0,i) king.value "listname",htmlencode(data(1,i)) king.value "listpath",king.inst&data(2,i)&"/" king.value "zebra",king.mod2(i+1,zebra) tmplist=tmplist&king.createhtm(jshtm,king.invalue)'循环累加值到tmplist变量 next end if rs.close set rs=nothing if err.number<>0 then err.clear tmplist=king.errtag(tag) end if king_tag_about_list=tmplist end function ' *** Copyright © KingCMS.com All Rights Reserved *** function king_tag_about_double(tag,invalue) on error resume next '需要获? dim jslistid,jshtm dim rs,data,i,sql dim insql_id,listid,jslistname dim tmplist jshtm=king.getdblabel(tag,0) jslistid=king.getdblabel(tag,"listid") if len(jslistid)=0 then jslistid=0 if validate(jslistid,6) or king.instre("sub",jslistid) then select case lcase(jslistid) case"0" insql_id=" listid1=0" case"sub" listid=king.getvalue(invalue,"listid") insql_id=king_tag_about_getsublist(listid) case else insql_id=" listid in ("&jslistid&")" end select else jslistname=king.getlabel(tag,"listname") if len(jslistname)>0 then set rs=conn.execute("select listid from king__about_list where "&king.likey("listname",jslistname)&";") if not rs.eof and not rs.bof then data=rs.getrows() for i=0 to ubound(data,2) if len(insql_id)>0 then insql_id=insql_id&","&data(0,i) else insql_id=data(0,i) end if next if len(insql_id)>0 then insql_id=" listid in ("&insql_id&")" end if end if rs.close set rs=nothing end if end if if len(insql_id)=0 then exit function sql="listid,listname,listpath"'2 set rs=conn.execute("select "&sql&" from king__about_list where "&insql_id&";") if not rs.eof and not rs.bof then data=rs.getrows() else redim data(0,-1) end if rs.close set rs=nothing for i=0 to ubound(data,2) king.clearvalue king.value "listid",data(0,i) king.value "listname",encode(htmlencode(data(1,i))) king.value "listpath",encode(king.inst&data(2,i)) tmplist=tmplist&king.create(jshtm,king.invalue) next if err.number<>0 then err.clear tmplist=king.errtag(tag) end if king_tag_about_double=tmplist end function ' *** Copyright © KingCMS.com All Rights Reserved *** function king_tag_about(tag,invalue) on error resume next'这个必须要开? if left(tag,2)="{{" then king_tag_about=king_tag_about_double(tag,invalue) exit function end if dim ttype,tnumber,tkey,tlikey,jshtm,zebra dim rs,i,k,data,sql,insql,tmplist,listid dim t_class,datalist,artfrom,kid dim jslistid,jslistname,insql_id dim jssql,jskeywords,insql_key dim jsimg,insql_img dim sql_field,fields,sql_fieldhtml dim jsnext ' 1220 ' sql=" kid,listid,ktitle,artfrom,artdescription,kdate,artkeywords,artauthor,kpath,artimg,kgrade"'10 data sql=" kid,listid,ktitle,kkeywords,kdescription,kpath,kdate,kgrade,korder,khit,kup,kcommend,khead"'12 sql_field="kc_aboutus_title,kc_aboutus_content" sql_fieldhtml="kc_aboutus_content" if len(sql_field)>0 then sql=sql&","&sql_field ttype=king.getlabel(tag,"type") tnumber=king.getlabel(tag,"number") zebra=king.getlabel(tag,"zebra") jshtm=king.getlabel(tag,0) jssql=king.getlabel(tag,"sql") jsnext=king.getlabel(tag,"next") ' 1220 if validate(jsnext,2)=false then jsnext=0 ' 1220 tnumber=tnumber+int(jsnext) ' 1220 if king.instre(sql_field,"kc_image") then if len(king.match(jshtm,"\(king:image.{0,}?\/\)"))>0 then insql_img=" and (kc_image like '%.gif' or kc_image like '%.jpeg' or kc_image like '%.jpg' or kc_image like '%.png' or kc_image like '%.bmp') " end if end if jskeywords=king.getlabel(tag,"keywords") if len(jskeywords)>0 then insql_key=king.likey("kkeywords",jskeywords) if len(insql_key)>0 then insql_key=" and ("&insql_key&")" end if end if jslistid=king.getlabel(tag,"listid") if validate(jslistid,6) or king.instre("sub,current",jslistid) then select case lcase(jslistid) case"sub"'只调用当前栏目下面的，并不是所有的，若加入所有，需要递归，麻? listid=king.getvalue(invalue,"listid") insql_id=king_tag_about_getsublist(listid) case"current" listid=king.getvalue(invalue,"listid") if validate(listid,2) then insql_id=" and listid="&listid end if case else insql_id=" and listid in ("&jslistid&")" end select else jslistname=king.getlabel(tag,"listname") if len(jslistname)>0 then set rs=conn.execute("select listid from king__about_list where "&king.likey("listname",jslistname)&";") if not rs.eof and not rs.bof then data=rs.getrows() for i=0 to ubound(data,2) if len(insql_id)>0 then insql_id=insql_id&","&data(0,i) else insql_id=data(0,i) end if next if len(insql_id)>0 then insql_id=" and listid in ("&insql_id&")" end if else king_tag_about="" exit function end if rs.close set rs=nothing end if end if set t_class=new aboutclass select case lcase(ttype) case"related"'相关文章 tkey=king.getvalue(invalue,"keywords") kid=king.getvalue(invalue,"kid") tlikey=king.likey("kkeywords",tkey) if len(tlikey)>0 then tlikey=" and ("&tlikey&")" if len(tlikey)>0 then if validate(kid,2) then insql="select top "&tnumber&sql&" from king__about_page where kshow=1 "&tlikey&insql_id&insql_key&" and kid<>"&kid&" order by korder desc,kid desc;" else insql="select top "&tnumber&sql&" from king__about_page where kshow=1 "&tlikey&insql_id&insql_key&" order by korder desc,kid desc;" end if else exit function end if case"hot"'热门 insql="select top "&tnumber&sql&" from king__about_page where kshow=1 "&insql_id&insql_key&insql_img&" order by khit desc,kid desc;" case"chill","cold"'冷门 insql="select top "&tnumber&sql&" from king__about_page where kshow=1 "&insql_id&insql_key&insql_img&" order by khit asc,kid asc;" case"head"'头条 insql="select top "&tnumber&sql&" from king__about_page where kshow=1 "&insql_id&insql_key&insql_img&" and khead=1 order by korder desc,kid desc;" case"commend"'推荐 insql="select top "&tnumber&sql&" from king__about_page where kshow=1 "&insql_id&insql_key&insql_img&" and kcommend=1 order by korder desc,kid desc;" case"sql"'自定义的 insql="select top "&tnumber&sql&" from king__about_page "&jssql case else '最新文? insql="select top "&tnumber&sql&" from king__about_page where kshow=1 "&insql_id&insql_key&insql_img&" order by korder desc,kid desc;" end select ' out insql set rs=conn.execute(insql) if not rs.eof and not rs.bof then data=rs.getrows() else exit function end if rs.close set rs=nothing listid=0'初始化listid，因为上面用? for i=int(jsnext) to ubound(data,2) if cstr(listid)<>cstr(data(1,i)) then listid=data(1,i) set rs=conn.execute("select listname,listpath from king__about_list where listid="&listid&";") if not rs.eof and not rs.bof then datalist=rs.getrows() else exit function end if rs.close set rs=nothing end if ' sql="kid,listid,ktitle,kkeywords,kdescription,kpath,kdate,kgrade,korder,khit,kup,kcommend,khead"'12 king.clearvalue king.value "id",data(0,i) king.value "listid",data(1,i) king.value "listname",encode(htmlencode(datalist(0,0))) king.value "listpath",encode(king.inst&datalist(1,0)) king.value "title",encode(htmlencode(data(2,i))) king.value "keywords",encode(htmlencode(data(3,i))) king.value "description",encode(htmlencode(data(4,i))) king.value "path",encode(t_class.getpath(data(0,i),data(7,i),king.inst&datalist(1,0)&"/"&data(5,i))) king.value "date",encode(htmlencode(data(6,i))) king.value "hit",data(9,i) king.value "up",data(10,i) king.value "commend",data(11,i) king.value "head",data(12,i) king.value "zebra",king.mod2(i+1,zebra) king.value "commentid",encode(t_class.path&"|"&data(0,i)) king.value "++",i+1 if len(sql_field)>0 then fields=split(sql_field,",") for k=0 to ubound(fields) if king.instre(sql_fieldhtml,fields(k)) then king.value t_class.kctag(lcase(fields(k))),encode(data(k+13,i)) else king.value t_class.kctag(lcase(fields(k))),encode(htmlencode(data(k+13,i))) end if next end if tmplist=tmplist&king.createhtm(jshtm,king.invalue)'循环累加值到tmplist变量 next set t_class=nothing if err.number<>0 then err.clear tmplist=king.errtag(tag) end if king_tag_about=tmplist end function ' *** Copyright © KingCMS.com All Rights Reserved *** function king_tag_about_getsublist(l1) on error resume next dim rs,data,i,I1 if validate(l1,2) then set rs=conn.execute("select listid from king__about_list where listid1="&l1&";") if not rs.eof and not rs.bof then data=rs.getrows() for i=0 to ubound(data,2) if len(I1)>0 then I1=I1&","&data(0,i) else I1=data(0,i) end if next I1=" and listid in ("&I1&")" end if rs.close set rs=nothing end if king_tag_about_getsublist=I1 end function %> 厨具
  • 收藏本站网站地图
  • 英文网站中文网站