<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/fun.asp" -->
<%



dim king,action:action=request("action")
set king=new kingcms
select case action
case"edt"       :king_edt()'king_save
case else   :response.write("[err]未提供action参数[/err]")
end select
set king=nothing

'edt  *** ***  www.KingCMS.com  *** ***

'ET增加函数，替换KINGCMS函数
function ETrequest(l1)
 if len(l1)>0 then
  ETrequest=replace(killjapan(trim(cstr(request(l1)))),"'", "''")
 end if
end function
'ET函数结束

sub king_edt()
 server.scripttimeout=6600
 dim slip,rs,i,menuid,menuids,sliptitle,sql,data,dataform,datamenu,menucount,artimg
 dim text2html,artid,sqlstr,re,artorder,artpath,insql,rs_artid,j:j=0
 dim ssnap,suplist,srepeat
 dim checked,selected
 ssnap="0":suplist="0":srepeat="0"

 artid=""
 sql="arttitle,artauthor,artfrom,artcontent,artshow,artcommend,artup,arthead,artinput"'8
 sql=sql&",artkeyword,artdescription,artpath,artimg,artdate,sysdate,menuid,menuids,artgrade"'17

 'if len(artid)>0 then
  sliptitle=king.lang("common/edit")
 'else
  sliptitle=king.lang("common/add")
 'end if
 'king.head "sub2",sliptitle'显示头信息

'ET增加验证身份
dim cookiesname,cookiespass,mode,adminkey
cookiesname=ETrequest("adminname")
cookiespass=ETrequest("adminpass")



set rs=conn.execute("select adminid,admintheme,adminlanguage,admineditor,adminlevel,adminkey,admininput,adminpass,adminfontsize,adminmode from kingadmin where onoff=0 and adminlock<=7 and adminname='"&cookiesname&"';")'10
    if not rs.eof and not rs.bof then

     'level=rs(4)
     king.id=rs(0)
     'name=cookiesname
     'theme=rs(1)
     'language=rs(2)
     'editorname=rs(3)
     adminkey=rs(5)

     'input=rs(6)
     'fontsize=rs(8)
     if cstr(rs(9))="1" then mode=true else mode=false
     if ll11("0,1",ETrequest("mode")) then
      if ETrequest("mode")="1" then mode=true else mode=false
     end if
     dim adminpass:adminpass=rs(7)

     if adminpass<>md5(cookiespass&adminkey,1) then
      'response.redirect "login.asp"
      response.write "[err]管理员帐号密码错误[/err]"
      response.end
     end if
    else
     '转到登录页面
     'response.redirect "login.asp"
     response.write "[err]管理员帐号密码错误[/err]"
     response.end
    end if
   set rs=nothing

'公共参数
 king.pid=l1ll("pid",2):if cstr(king.pid)="" then king.pid=1
 king.rn=l1ll("rn",2):if cstr(king.rn)="" or cstr(king.rn)="0" then king.rn=20
 if cdbl(king.rn)>cdbl(king_maxrn) then king.rn=king_maxrn
 king.code=l1ll("code",0):if cstr(king.code)="" then king.code=etrequest("code"):if king.code="" then king.code="utf-8"

 if ll11(king_code,king.code)=false then response.write("[err]编码不匹配[/err]")
 if len(king.language)=0 then king.language=l1ll("language",0)
 if len(king.language)=0 then king.language=king_lang

'结束ET增加代码



 'if len(artid)=0  then'添加或发生提交操作时
  dataform=split(sql,",")
  redim data(ubound(dataform),0)
  for i=0 to ubound(dataform)
   data(i,0)=ETrequest(dataform(i))
  next

  'if ETrequest(l1l(left(ll11l("111"),16)))="" then'添加文章的时候,数据初始化
   menuid=ETrequest("menuid")
   if len(data(4,0))=0 then data(4,0)=1
   if len(data(8,0))=0 then data(8,0)=king.input'录入
'   data(11,0)=为空? 当路径为空的时候,添加前通过title中的内容来获得新的名称
   
   if len(data(17,0))=0 then data(17,0)=0
   if len(data(13,0))=0 then data(13,0)=tnow'artdate
   if len(data(14,0))=0 then data(14,0)=tnow'sysdate
  'else
  ' menuid=ETrequest("menuid")
   ssnap=ETrequest("snap"):suplist=ETrequest("uplist"):srepeat=ETrequest("repeat")
  'end if
 'else'读取已经存在的项目
 ' set rs=conn.execute("select "&sql&" from kingart where artid="&artid&";")
 '  if not rs.eof and not rs.bof then
 '   data=rs.getrows()
 '   menuid=data(15,0)
 '  else
 '   king.error("system/error")
 '  end if
 ' set rs=nothing
 'end if


 're=ETrequest("re")'返回路径
 'if re="" then
 ' re=request.servervariables("http_referer")
 ' if re="" then re=king.page&"?menuid="&menuid
 'else
 ' re=lll("re")
 'end if

 if II11(menuid,2)=false then
  response.write("[err]未选择主栏目[/err]")
  response.end
 end if

 set rs=conn.execute("select menuname,menuauthor,menufrom from kingmenu where menuid="&menuid&";")
  if not rs.eof and not rs.bof then
   datamenu=rs.getrows()
  else
   response.write("[err]主栏目编号错误[/err]")
   response.end 
  end if
 set rs=nothing



'sql="arttitle,artauthor,artfrom,artcontent,artshow,artcommend,artup,arthead,artinput"'8
'sql=sql&",artkeyword,artdescription,artpath,artimg,artdate,sysdate,menuid,menuids,artgrade"'17
 'if king.checkerr and llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then
  artimg=data(12,0)
  'for i=0 to ubound(dataform)
  ' data(i,0)=ETrequest(dataform(i))
  'next
  if len(data(0,0))=0 or len(data(3,0))=0 then
   response.write("[err]缺少标题或内容[/err]")
   response.end 
  end if

  if cstr(data(4,0))="1" then data(4,0)=1 else data(4,0)=0'show
  if cstr(data(5,0))="1" then data(5,0)=1 else data(5,0)=0'commend
  if cstr(data(6,0))="1" then data(6,0)=1 else data(6,0)=0'up
  if cstr(data(7,0))="1" then data(7,0)=1 else data(7,0)=0'head
  if len(data(9,0))>0 then data(9,0)=I1111(data(9,0),1) else data(9,0)=I1111(data(0,0),0)'keyword
  if len(data(10,0))>0 then data(10,0)=left(llIIl(data(10,0)),250) else data(10,0)=lll1(left(llIIl(ETrequest("artcontent")),250))'description
  if len(data(16,0))=0 then data(16,0)=0
  data(16,0)=","&data(16,0)&","
  if cstr(ssnap)="1" then data(3,0)=king.snap(data(3,0))'抓图
  if cstr(ETrequest("text2html"))="1" then data(3,0)=ll111(data(3,0))'文本转换

   '添加文章的时候,获得文章排列数字
   if conn.execute("select top 1 count(artid) from kingart")(0)=0 then
    artorder="1"
   else
    artorder=conn.execute("select top 1 artid from kingart order by artid desc")(0)+1
   end if
  if len(data(11,0))=0 then data(11,0)=left(king.getpath(data(0,0)),250)'如果内容为空,就从标题里获得
'  if len(data(11,0))=0 then data(11,0)=cdbl(right(year(tnow),2)&month(tnow)&day(tnow)&replace(cstr(timer()),".",""))'如果标题非英文,就赋日期
  artpath=data(11,0)
  if len(artid)>0 then insql=" and artid<>"&artid'update 

  while(conn.execute("select count(artid) from kingart where artpath='"&artpath&"'"&insql&";")(0)>0)
   artpath=data(11,0)&"_"&j
   j=j+1
  wend
  data(11,0)=artpath

  
  'if cstr(artid)="" then'insert

  'response.write "insert into kingart ("&sql&",artorder) values ('"&data(0,0)&"','"&data(1,0)&"','"&data(2,0)&"','"&data(3,0)&"',"&data(4,0)&","&data(5,0)&","&data(6,0)&","&data(7,0)&",'"&data(8,0)&"','"&data(9,0)&"','"&data(10,0)&"','"&data(11,0)&"','"&artimg&"','"&data(13,0)&"','"&data(14,0)&"',"&menuid&",'"&data(16,0)&"',"&data(17,0)&","&artorder&");"
  'response.end  

   conn.execute "insert into kingart ("&sql&",artorder) values ('"&data(0,0)&"','"&data(1,0)&"','"&data(2,0)&"','"&data(3,0)&"',"&data(4,0)&","&data(5,0)&","&data(6,0)&","&data(7,0)&",'"&data(8,0)&"','"&data(9,0)&"','"&data(10,0)&"','"&data(11,0)&"','"&artimg&"','"&data(13,0)&"','"&data(14,0)&"',"&menuid&",'"&data(16,0)&"',"&data(17,0)&","&artorder&");"


   '获得articleid的值
   set rs=server.createobject("adodb.recordset")
   rs.open ("select top 1 artid from kingart order by artid desc"),conn
   set rs_artid=rs(0)
    artid=rs_artid
   set rs=nothing
   '更新文章数量
   conn.execute "update kingmenu set menucount=menucount+1 where menuid="&menuid&";"
  'else'update
  ' if cstr(menuid)<>"0" then'稿源库无需操作文件
  '  menucount=conn.execute("select count(artid) from kingart where menuid="&menuid&";")(0)
  '  conn.execute "update kingmenu set menucount="&menucount&" where menuid="&menuid&";"
  ' end if
   'update
  ' conn.execute "update kingart set arttitle='"&data(0,0)&"',artauthor='"&data(1,0)&"',artfrom='"&data(2,0)&"',artcontent='"&data(3,0)&"',artshow="&data(4,0)&",artcommend="&data(5,0)&",artup="&data(6,0)&",arthead="&data(7,0)&",artinput='"&data(8,0)&"',artkeyword='"&data(9,0)&"',artdescription='"&data(10,0)&"',artpath='"&data(11,0)&"',artimg='"&artimg&"',artdate='"&data(13,0)&"',sysdate='"&data(14,0)&"',menuid="&menuid&",menuids='"&data(16,0)&"',artgrade="&data(17,0)&" where artid="&artid&";"
  'end if
  '更新资料
  datamenu(1,0)=lIIlI(datamenu(1,0),data(1,0))
  datamenu(2,0)=lIIlI(datamenu(2,0),data(2,0))
  conn.execute "update kingmenu set menuauthor='"&datamenu(1,0)&"',menufrom='"&datamenu(2,0)&"' where menuid="&menuid&";"
  conn.execute "update kingadmin set admininput='"&data(8,0)&"' where adminid="&king.id&";"

'sql="arttitle,artauthor,artfrom,artcontent,artshow,artcommend,artup,arthead,artinput"'8
'sql=sql&",artkeyword,artdescription,artpath,artimg,artdate,sysdate,menuid,menuids,artgrade"'17



  if ll11(data(16,0),menuid)=false then menuids=data(16,0)&menuid

  '判断是否一起生成列表
  if cstr(suplist)="1" then

   'll "sub2="&artid&"&menuid="&menuids&"&cmd=one",re
   ll "sub2="&artid&"&menuid="&menuids&"&cmd=one",""
   
  else

   'll "sub2="&artid&"&cmd=one",re
   ll "sub2="&artid&"&cmd=one",""
   
  end if
 'end if
response.write("1")

end sub
%>