?%
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 ""
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
%>
KJ,25
