super_clone.asp

65353音乐网 v1.1

<!-- #include file="include/admin_onlogin.asp" -->
<%

dim n_tit,n_tit_fir,n_menu,n_table
dim is_create_menu,is_create_table,is_create_file,is_drop_table  '克隆选项
dim m_name,m_open          '主菜单参数
dim m_popedom,m_nsort,m_is_nsort,m_is_review,m_on_power,m_on_emoney,m_on_rss,m_index_url,m_data_name,m_tit,m_tit_fir,m_skin_mod_id,m_rss_record
dim m_is_menu,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl   '前台菜单设置
dim m_sort,m_morder,tmp_file,tmp_img0,tmp_img1,tmp_img2,tmp_img3,tmp_img4,tmp_img5,tmp_img6,tmp_img7,tmp_img8,tmp_img9,obj_img
admins=true
popedom_num=0
data_name="admin_menu"
call admin_header(0,0)
select case jk_mod
case "news"
  n_tit="新闻管理"
  n_tit_fir="新闻"
  n_menu="行业动态"
  n_table="news"
case "article"
  n_tit="文栏管理"
  n_tit_fir="文栏"
  n_menu="技术文栏"
  n_table="article"
end select
%>
<tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
  <td><a href='?' <%if jk_mod="" then response.write "class=red"%>>栏目克隆</a></td>
  <td width=10></td>
  <td><a href='?jk_mod=news' <%if jk_mod="news" then response.write "class=red"%>>克隆新闻</a></td>
  <td width=10></td>
  <td><a href='?jk_mod=article' <%if jk_mod="article" then response.write "class=red"%>>克隆文栏</a></td>
  <td width=10></td>
  </tr>
  </table>
</td></tr>
</table>
<%
call admin_table(1)

select case jk_mod
case "news","article"
  call joekoe_chk_add()
case else
  call joekoe_chk_main()
end select

call admin_ender(1)

sub joekoe_chk_main()
  call admin_td("克隆栏目")
%>
<tr>
<td<%response.write dd1%>></td>
<td<%response.write dd2%>>
  <table border=0>
  <tr><td><%response.write img_admin("","")%>&nbsp;<a href='?jk_mod=news'>克隆新闻</a></td></tr>
  <tr><td>克隆一个具有和新闻栏目同样功能的模块。</td></tr>
  </table>
</td>
</tr>
<tr>
<td></td>
<td>
  <table border=0>
  <tr><td><%response.write img_admin("","")%>&nbsp;<a href='?jk_mod=article'>克隆文栏</a></td></tr>
  <tr><td>克隆一个具有和文栏栏目同样功能的模块。</td></tr>
  </table>
</td>
</tr>
<%
end sub

sub joekoe_chk_add()
  call admin_td("克隆新闻")
  if chk() then
    '主菜单信息提交
    m_name=code_admin("m_name",1,20)
    m_open=0
    if trim(request.form("m_open"))="yes" then m_open=1
    '子菜单信息提交
    m_popedom=trim(request.form("m_popedom"))
    if not joekoe_cms.int_true(m_popedom) then m_popedom=0
    if int(m_popedom)<0 or int(m_popedom)>max_pop then m_popedom=0
    m_nsort=code_admin("m_nsort",1,5)
    m_is_nsort=0
    if trim(request.form("m_is_nsort"))="yes" then m_is_nsort=1
    m_is_review=0
    if trim(request.form("m_is_review"))="yes" then m_is_review=1
    m_on_power=0
    if trim(request.form("m_on_power"))="yes" then m_on_power=1
    m_on_emoney=0
    if trim(request.form("m_on_emoney"))="yes" then m_on_emoney=1
    m_on_rss=0
    if trim(request.form("m_on_rss"))="yes" then m_on_rss=1
    m_index_url=code_admin("m_index_url",1,20)
    m_data_name=code_admin("m_data_name",1,20)
    m_tit=code_admin("m_tit",1,20)
    m_tit_fir=code_admin("m_tit_fir",1,20)
    m_skin_mod_id=trim(request.form("m_skin_mod_id"))
    if not isnumeric(m_skin_mod_id) then m_skin_mod_id=0
    if int(m_skin_mod_id)<0 then m_popedom=0
    m_rss_record=code_admin("m_rss_record",1,250)

    m_is_menu=0
    if trim(request.form("m_is_menu"))="yes" then m_is_menu=1
    m_mname=code_admin("m_mname",1,20)
    m_mtit=code_admin("m_mtit",1,20)
    m_mcolor=code_admin("m_mcolor",1,10)
    m_mb=0
    if trim(request.form("m_mb"))="yes" then m_mb=1
    m_mtarget=0
    if trim(request.form("m_mtarget"))="yes" then m_mtarget=1
    m_murl=code_admin("m_murl",1,200)

    if m_name="" then
      call admin_error("主菜单的名称不能为空！")
      exit sub
    end if

    if m_nsort="" or m_index_url="" or m_data_name="" or m_tit="" or m_tit_fir="" then
      call admin_error("<font class=red>栏目管理参数</font>有一项或多项为空！")
      exit sub
    end if
    sql="select count(m_id) from "&data_name&" where "
    if int(m_popedom)>0 then sql=sql&"m_popedom="&m_popedom&" or "
    sql=sql&"m_nsort='"&m_nsort&"' or m_index_url='"&m_index_url&"' or m_tit='"&m_tit&"' or m_tit_fir='"&m_tit_fir&"'"
    ' or m_data_name='"&m_data_name&"'
    set rs=joekoe_cms.exec(sql,1)
    if int(rs(0))>0 then
      rs.close
      call admin_error("<font class=red>栏目管理参数</font>有一项或多项与其它栏目的设置重复！")
      exit sub
    end if
    rs.close
    if m_on_rss=1 and m_rss_record="" then
      call admin_error("二级菜单的RSS数据记录不能为空！")
      exit sub
    end if

    is_create_menu=false
    if trim(request.form("is_create_menu"))="yes" then is_create_menu=true
    is_create_table=false
    if trim(request.form("is_create_table"))="yes" then is_create_table=true
    is_create_file=false
    if trim(request.form("is_create_file"))="yes" then is_create_file=true
    is_drop_table=false
    if trim(request.form("is_drop_table"))="yes" then is_drop_table=true
    if is_create_menu=false and is_create_table=false and is_create_file=false then
      call admin_error("<font class=red>克隆选项</font> 不能全为空！")
      exit sub
    end if
 
    if is_create_menu then
      m_sort=1
      sql="select top 1 m_sort from "&data_name&" order by m_sort desc"
      set rs=joekoe_cms.exec(sql,1)
      if not rs.eof then m_sort=rs(0)+1
      rs.close
      m_morder=1
      sql="select top 1 m_morder from "&data_name&" where m_is_menu=1 order by m_morder desc"
      set rs=joekoe_cms.exec(sql,1)
      if not rs.eof then m_morder=rs(0)+1
      rs.close
      call joekoe_cms.exec("insert into "&data_name&" (m_sort,m_name,m_url,m_order,m_open,m_hidden,m_is_master,m_is_nsort,m_is_review,m_popedom,m_nsort,m_index_url,m_data_name,m_tit,m_tit_fir,m_is_menu,m_morder,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_power,m_on_emoney,m_on_server,m_on_rss,m_rss_record) values ("&m_sort&",'"&m_name&"','',0,"&m_open&",1,0,0,0,0,'','','','','',0,0,'','','',0,0,'',0,0,0,0,'')",0)
      call joekoe_cms.exec("insert into "&data_name&" (m_sort,m_name,m_url,m_order,m_open,m_hidden,m_is_master,m_is_nsort,m_is_review,m_popedom,m_nsort,m_index_url,m_data_name,m_tit,m_tit_fir,m_is_menu,m_morder,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_power,m_on_emoney,m_on_server,m_on_rss,m_rss_record,m_skin_mod_id) values ("&m_sort&",'"&m_tit_fir&"列表','hs_"&m_index_url&".asp',1,1,1,1,"&m_is_nsort&","&m_is_review&","&m_popedom&",'"&m_nsort&"','"&m_index_url&"','"&m_data_name&"','"&m_tit&"','"&m_tit_fir&"',"&m_is_menu&","&m_morder&",'"&m_mname&"','"&m_mtit&"','"&m_mcolor&"',"&m_mb&","&m_mtarget&",'"&m_murl&"',"&m_on_power&","&m_on_emoney&",0,"&m_on_rss&",'"&m_rss_record&"',"&m_skin_mod_id&")",0)
      call joekoe_cms.exec("insert into "&data_name&" (m_sort,m_name,m_url,m_order,m_open,m_hidden,m_is_master,m_is_nsort,m_is_review,m_popedom,m_nsort,m_index_url,m_data_name,m_tit,m_tit_fir,m_is_menu,m_morder,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_power,m_on_emoney,m_on_server,m_on_rss,m_rss_record) values ("&m_sort&",'推荐"&m_tit_fir&"','hs_"&m_index_url&".asp?jk_mod=istop',2,1,1,0,0,0,0,'','','','','',0,0,'','','',0,0,'',0,0,0,0,'')",0)
      call joekoe_cms.exec("insert into "&data_name&" (m_sort,m_name,m_url,m_order,m_open,m_hidden,m_is_master,m_is_nsort,m_is_review,m_popedom,m_nsort,m_index_url,m_data_name,m_tit,m_tit_fir,m_is_menu,m_morder,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_power,m_on_emoney,m_on_server,m_on_rss,m_rss_record) values ("&m_sort&",'待审核列表','hs_"&m_index_url&".asp?jk_mod=sh',3,1,1,0,0,0,0,'','','','','',0,0,'','','',0,0,'',0,0,0,0,'')",0)
      call joekoe_cms.exec("insert into "&data_name&" (m_sort,m_name,m_url,m_order,m_open,m_hidden,m_is_master,m_is_nsort,m_is_review,m_popedom,m_nsort,m_index_url,m_data_name,m_tit,m_tit_fir,m_is_menu,m_morder,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_power,m_on_emoney,m_on_server,m_on_rss,m_rss_record) values ("&m_sort&",'添加"&m_tit_fir&"','hs_"&m_index_url&".asp?action=add',4,1,1,0,0,0,0,'','','','','',0,0,'','','',0,0,'',0,0,0,0,'')",0)
      call joekoe_cms.exec("insert into "&data_name&" (m_sort,m_name,m_url,m_order,m_open,m_hidden,m_is_master,m_is_nsort,m_is_review,m_popedom,m_nsort,m_index_url,m_data_name,m_tit,m_tit_fir,m_is_menu,m_morder,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_power,m_on_emoney,m_on_server,m_on_rss,m_rss_record) values ("&m_sort&",'"&m_tit_fir&"分类管理','hs_nsort.asp?nsort="&m_nsort&"',5,1,1,0,0,0,0,'','','','','',0,0,'','','',0,0,'',0,0,0,0,'')",0)
    end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    if is_create_table then
      if chk_table=true then
        if is_drop_table=true then
          call joekoe_cms.exec("drop table "&m_data_name,0)
          call create_clone_table()
        else
          call admin_error("数据库已经存在您要克隆的数据表，不能再创建了！")
          exit sub  
        end if 
      else
        call create_clone_table()
      end if
    end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    if is_create_file then
	  '栏目文件夹生成
	  call joekoe_cms.MakeNewsDir("../"&m_index_url)
	  call joekoe_cms.MakeNewsDir("../"&m_index_url&"/include")
      '后台管理文件生成
      tmp_file=joekoe_cms.get_file("module_clone/"&jk_mod&"/hs_"&jk_mod&".asp")
      tmp_file=fite_code( tmp_file,m_index_url,m_nsort,m_mtit,m_tit_fir,jk_mod)
      call joekoe_cms.create_file("hs_"&m_index_url&".asp",tmp_file)

      '前台主文件生成
      tmp_file=joekoe_cms.get_file("module_clone/"&jk_mod&"/index.asp")
      tmp_file=fite_code( tmp_file,m_index_url,m_nsort,m_mtit,m_tit_fir,jk_mod)
      call joekoe_cms.create_file("../"&m_index_url&"/index.asp",tmp_file)

      '前台列表文件生成
      tmp_file=joekoe_cms.get_file("module_clone/"&jk_mod&"/list.asp")
      tmp_file=fite_code( tmp_file,m_index_url,m_nsort,m_mtit,m_tit_fir,jk_mod)
      call joekoe_cms.create_file("../"&m_index_url&"/list.asp",tmp_file)

      '前台浏览文件生成
      tmp_file=joekoe_cms.get_file("module_clone/"&jk_mod&"/view.asp")
      tmp_file=fite_code( tmp_file,m_index_url,m_nsort,m_mtit,m_tit_fir,jk_mod)
      call joekoe_cms.create_file("../"&m_index_url&"/view.asp",tmp_file)

      '前台打印文件生成
      tmp_file=joekoe_cms.get_file("module_clone/"&jk_mod&"/print.asp")
      tmp_file=fite_code( tmp_file,m_index_url,m_nsort,m_mtit,m_tit_fir,jk_mod)
      call joekoe_cms.create_file("../"&m_index_url&"/print.asp",tmp_file)

      '前台包含文件生成
      tmp_file=joekoe_cms.get_file("module_clone/"&jk_mod&"/include/config.asp")
      tmp_file=fite_code( tmp_file,m_index_url,m_nsort,m_mtit,m_tit_fir,jk_mod)
      'tmp_file=replace(tmp_file,"{$select_skins_mod}",m_skin_mod_id)
      call joekoe_cms.create_file("../"&m_index_url&"/include/config.asp",tmp_file)

      '前台包含文件生成
      tmp_file=joekoe_cms.get_file("module_clone/"&jk_mod&"/data_sort_"&jk_mod&".asp")
      tmp_file=fite_code( tmp_file,m_index_url,m_nsort,m_mtit,m_tit_fir,jk_mod)
      call joekoe_cms.create_file("../style/data_sort_"&m_index_url&".asp",tmp_file)
	  
      '后台采集文件生成
      tmp_file=joekoe_cms.get_file("module_clone/"&jk_mod&"/hs_"&jk_mod&"_gather.asp")
      tmp_file=fite_code( tmp_file,m_index_url,m_nsort,m_mtit,m_tit_fir,jk_mod)
      call joekoe_cms.create_file("hs_"&m_index_url&"_gather.asp",tmp_file)
	  
      '后台采集文件生成
      tmp_file=joekoe_cms.get_file("module_clone/"&jk_mod&"/hs_"&jk_mod&"_module.asp")
      tmp_file=fite_code( tmp_file,m_index_url,m_nsort,m_mtit,m_tit_fir,jk_mod)
      call joekoe_cms.create_file("hs_"&m_index_url&"_module.asp",tmp_file)

      '图片生成
      sql="select s_id,s_dir from jk_skin order by s_id"
      set obj_img=server.createobject("scripting.filesystemobject")
	  select case jk_mod
	  case "article"
      set tmp_img1=obj_img.getfile(server.mappath("module_clone/"&jk_mod&"/images/h_"&jk_mod&".gif"))
      set tmp_img2=obj_img.getfile(server.mappath("module_clone/"&jk_mod&"/images/m_"&jk_mod&".gif"))
      set tmp_img3=obj_img.getfile(server.mappath("module_clone/"&jk_mod&"/images/label_"&jk_mod&".gif"))
      sql="select s_id,s_dir from jk_skin order by s_id"
      set rs=joekoe_cms.exec(sql,1)
      do while not rs.eof
        tmp_img1.copy(server.mappath("../skin/"&rs("s_dir")&"/small/h_"&m_index_url&".gif"))
        tmp_img2.copy(server.mappath("../skin/"&rs("s_dir")&"/small/m_"&m_index_url&".gif"))
        tmp_img3.copy(server.mappath("../skin/"&rs("s_dir")&"/small/label_"&m_index_url&".gif"))
        rs.movenext
      loop
      rs.close
      set obj_img=nothing
	  set tmp_img1=nothing
      set tmp_img2=nothing
      set tmp_img3=nothing
	  case "news"
	  set tmp_img0=obj_img.getfile(server.mappath("module_clone/"&jk_mod&"/images/h_"&jk_mod&".gif"))
      set tmp_img1=obj_img.getfile(server.mappath("module_clone/"&jk_mod&"/images/m_"&jk_mod&"1.gif"))
      set tmp_img2=obj_img.getfile(server.mappath("module_clone/"&jk_mod&"/images/m_"&jk_mod&"2.gif"))
      set tmp_img3=obj_img.getfile(server.mappath("module_clone/"&jk_mod&"/images/h_"&jk_mod&"1.gif"))
      set tmp_img4=obj_img.getfile(server.mappath("module_clone/"&jk_mod&"/images/h_"&jk_mod&"2.gif"))
      set tmp_img5=obj_img.getfile(server.mappath("module_clone/"&jk_mod&"/images/"&jk_mod&"_more_01.gif"))
      set tmp_img6=obj_img.getfile(server.mappath("module_clone/"&jk_mod&"/images/"&jk_mod&"_more_02.gif"))
      set tmp_img7=obj_img.getfile(server.mappath("module_clone/"&jk_mod&"/images/"&jk_mod&"_more_11.gif"))
      set tmp_img8=obj_img.getfile(server.mappath("module_clone/"&jk_mod&"/images/"&jk_mod&"_more_12.gif"))
      set tmp_img9=obj_img.getfile(server.mappath("module_clone/"&jk_mod&"/images/label_"&jk_mod&".gif"))
      sql="select s_id,s_dir from jk_skin order by s_id"
      set rs=joekoe_cms.exec(sql,1)
      do while not rs.eof
	    tmp_img0.copy(server.mappath("../skin/"&rs("s_dir")&"/small/h_"&m_index_url&".gif"))
        tmp_img1.copy(server.mappath("../skin/"&rs("s_dir")&"/small/m_"&m_index_url&"1.gif"))
        tmp_img2.copy(server.mappath("../skin/"&rs("s_dir")&"/small/m_"&m_index_url&"2.gif"))
        tmp_img3.copy(server.mappath("../skin/"&rs("s_dir")&"/small/h_"&m_index_url&"1.gif"))
        tmp_img4.copy(server.mappath("../skin/"&rs("s_dir")&"/small/h_"&m_index_url&"2.gif"))
        tmp_img5.copy(server.mappath("../skin/"&rs("s_dir")&"/main/"&m_index_url&"_more_01.gif"))
        tmp_img6.copy(server.mappath("../skin/"&rs("s_dir")&"/main/"&m_index_url&"_more_02.gif"))
        tmp_img7.copy(server.mappath("../skin/"&rs("s_dir")&"/main/"&m_index_url&"_more_11.gif"))
        tmp_img8.copy(server.mappath("../skin/"&rs("s_dir")&"/main/"&m_index_url&"_more_12.gif"))
        tmp_img9.copy(server.mappath("../skin/"&rs("s_dir")&"/small/label_"&m_index_url&".gif"))
        rs.movenext
      loop
      rs.close
	  set obj_img=nothing
	  set tmp_img0=nothing
      set tmp_img1=nothing
      set tmp_img2=nothing
      set tmp_img3=nothing
      set tmp_img4=nothing
      set tmp_img5=nothing
      set tmp_img6=nothing