super_clone.asp

65353音乐网 v1.1

      set tmp_img7=nothing
      set tmp_img8=nothing
      set tmp_img9=nothing
      end select
    end if

    call admin_msg("已成功克隆了一个"&n_tit_fir&"模块 "&m_name&" ！","?jk_mod="&jk_mod,1)
    exit sub
  end if
  call form_first()
%>
<form name=menu_frm action='?jk_mod=<%response.write jk_mod%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td<%response.write dd1%>>克隆选项：</td>
<td<%response.write dd2%>>
<input type=checkbox name=is_create_menu value='yes' checked>&nbsp;是否创建管理菜单&nbsp;
<input type=checkbox name=is_create_table value='yes' checked>&nbsp;是否创建数据表&nbsp;
<input type=checkbox name=is_create_file value='yes' checked>&nbsp;是否创建栏目相应文件&nbsp;
</td>
</tr>
<tr>
<td>主菜单名称：</td>
<td><input type=text name=m_name size=20 maxlength=20><%response.write redx%></td>
</tr>
<tr>
<td>展开主菜单：</td>
<td><input type=checkbox name=m_open value='yes'>&nbsp;选择表示展开主菜单</td>
</tr>
<tr class=tr1>
<td class=gray>管理参数说明：</td>
<td><font class=red><b>任一项不可与其它栏目的设置重复，栏目管理简称除外！</b></font></td>
</tr>
<tr class=tr1>
<td>栏目权限标识：</td>
<td><input type=text name=m_popedom value='0' size=5 maxlength=5>&nbsp;与管理文件里的标识相对应；为大于-1小于<%response.write max_pop%>的整数，等于0时为不设权限。</td>
</tr>
<tr class=tr1>
<td>栏目类别代码：</td>
<td><input type=text name=m_nsort size=10 maxlength=5>&nbsp;长度不能大于5，如文栏管理可填：art，新闻管理可填：news</td>
</tr>
<tr class=tr1>
<td>栏目类别选项：</td>
<td>
<input type=checkbox name=m_is_nsort value='yes' checked>&nbsp;分类&nbsp;
<input type=checkbox name=m_is_review value='yes' checked>&nbsp;评论&nbsp;
<input type=checkbox name=m_on_power value='yes' <%if jk_mod="article" then response.write "checked"%>>&nbsp;权限&nbsp;
<input type=checkbox name=m_on_emoney value='yes'<%if jk_mod="article" then response.write "checked"%>>&nbsp;<%response.write joekoe_cms.web_unit%>&nbsp;
<input type=checkbox name=m_on_rss value='yes' checked>&nbsp;RSS支持&nbsp;&nbsp;（该栏目没有的可不选）
</td>
</tr>
<tr class=tr1>
<td>栏目类别标识：</td>
<td><input type=text name=m_index_url size=15 maxlength=20>&nbsp;完整的类别标识，一般与数据表名相同，如：<%response.write n_table%></td>
</tr>
<tr class=tr1>
<td>栏目数据表名：</td>
<td><input type=text name=m_data_name size=15 maxlength=20>&nbsp;一般与类别标识相同，如：<%response.write n_table%></td>
</tr>
<tr class=tr1>
<td></td>
<td><input type=checkbox name=is_drop_table value='yes' checked>&nbsp;如果数据库中已经存在需要创建的表是否强行删除后再创建</td>
</tr>
<tr class=tr1>
<td>栏目管理标题：</td>
<td><input type=text name=m_tit size=15 maxlength=20>&nbsp;如：<%response.write n_tit%></td>
</tr>
<tr class=tr1>
<td>栏目管理简称：</td>
<td><input type=text name=m_tit_fir size=15 maxlength=20>&nbsp;如文栏管理可填：<%response.write n_tit_fir%></td>
</tr>
<tr class=tr1>
<td>栏目模板选择：</td>
<td><%response.write select_skins_mod(0)%>&nbsp;此模板只在当前栏目为新闻或文栏类型时有效</td>
</tr>
<tr class=tr1>
<td>RSS数据记录：</td>
<td><input type=text name=m_rss_record size=50 maxlength=250 value='id,topic,username,tim'>&nbsp;当栏目有RSS(2.0)支持时，此项必选
<br>例：id,topic,username,tim&nbsp;一定为<font class=red>记录ID</font>,<font class=red>标题/名称</font>,<font class=red>发布人/作者</font>,<font class=red>时间</font>，当栏目为论坛时多加一个forum_id记录</td>
</tr>
<tr>
<td class=red>前台菜单设置：</td>
<td><input type=checkbox name=m_is_menu value='yes'>&nbsp;是否作为前台菜单，<font class=red><b>如要想让该项在前台有显示链接，请选择此项并填写相关信息</b></font></td>
</tr>
<tr>
<td>菜单显示名称：</td>
<td><input type=text name=m_mname value='' size=20 maxlength=20>&nbsp;必填，如可填：<%response.write n_menu%></td>
</tr>
<tr>
<td>菜单名称显示：</td>
<td><input type=text name=m_mtit value='' size=20 maxlength=20>&nbsp;可选，对菜单的提示说明，如：<a href='javascript:;' alt='这个栏目是<%response.write n_menu%>' class=red><%response.write n_menu%></a>&nbsp;←鼠标移至此链接</td>
</tr>
<tr>
<td>菜单名称加色：</td>
<td><input type=text name=m_mcolor value='' size=10 maxlength=20>&nbsp;可选，对菜单加色的颜色代码，如：<a href='javascript:;' onclick="javascript:document.all.menu_frm.m_mcolor.value='#ff3300';"><font color=#ff3300 alt='点击可将本颜色代码加入到此输入框中'>#ff3300</font></td>
</tr>
<tr>
<td>菜单名称加粗：</td>
<td><input type=checkbox name=m_mb value='yes'>&nbsp;可选，是否对该菜单显示名称加粗，如：<b><a href='javascript:;' class=blue><%response.write n_menu%></a></b></td>
</tr>
<tr>
<td>新窗口显示：</td>
<td><input type=checkbox name=m_mtarget value='yes'>&nbsp;可选，是否让该菜单链接在新窗口中显示，如：<a href='http://www.joekoe.com/' target=_blank class=red>新的窗口</a>&nbsp;←鼠标点击此链接</td>
</tr>
<tr>
<td>菜单链接地址：</td>
<td><input type=text name=m_murl value='' size=65 maxlength=200>&nbsp;可选</td>
</tr>
<tr><td colspan=2><font class=gray>链接地址说明：</font>在这里可以填写<a alt='什么叫<font class=red><b>绝对地址</b></font>？<br>绝对地址指的是标准的URL地址，即是含有“http”等开头的地址；<br>如：<font class=blue>http://www.joekoe.com/new_menu.asp</font>' class=blue>绝对地址</a>和<a alt='什么叫<font class=red><b>相对地址</b></font>？<br>相对地址指的是相对网页当前的目录地址而相对应的地址；<br>如现在网页的地址为：<font class=blue>http://www.joekoe.com/new_site/</font>admins_menu.asp；<br>如果你填写了相对地址为：<font class=red>new_menu.asp</font>；<br>则该菜单的真实地址解释为：<font class=blue>http://www.joekoe.com/new_site/</font><font class=red>new_menu.asp</font>' class=blue>相对地址</a>，如果不填则表示按系统默认方式显示，即：<font class=red>“栏目类别标识”</font>.asp，如：<font class=red><%response.write n_table%></font>.asp</td></tr>
<%
  call submit_add()
end sub

sub create_clone_table()
if joekoe_cms.web_vt<>1 then
  select case jk_mod
  case "news"
    sql="create table "&m_data_name
    call joekoe_cms.exec(sql,0)
	    sql="alter table "&m_data_name&" add column id autoincrement"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column c_id integer null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column s_id integer null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column username text(20) null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column topic text(40) null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column comto text(10) null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column ispic bit"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column pic text(100) null"
    call joekoe_cms.exec(sql,0)
       sql="alter table "&m_data_name&" add column word memo"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column [counter] integer null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column keyes text(20) null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column tim datetime"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column istop bit"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column hidden bit"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column cod integer null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column tcolor text(20) null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column PaginationType integer null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column MaxCharPerPage integer null"
    call joekoe_cms.exec(sql,0)
  case "article"
    sql="create table "&m_data_name
    call joekoe_cms.exec(sql,0)
	    sql="alter table "&m_data_name&" add column id autoincrement"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column c_id integer null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column s_id integer null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column username text(20) null" 
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column topic text(40) null" 
    call joekoe_cms.exec(sql,0)
       sql="alter table "&m_data_name&" add column word Memo"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column [counter] integer null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column tim datetime"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column hidden bit"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column power text(50) null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column emoney integer null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column author text(20) null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column comto text(20) null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column keyes text(20) null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column istop bit"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column cod integer null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column tcolor text(20) null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column PaginationType integer null"
    call joekoe_cms.exec(sql,0)
        sql="alter table "&m_data_name&" add column MaxCharPerPage integer null"
    call joekoe_cms.exec(sql,0)
  end select
else
  select case jk_mod
  case "news"
    sql="CREATE TABLE [dbo].["&m_data_name&"] (id int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_"&m_data_name&" PRIMARY KEY," & _
        "c_id int NULL ," & _
        "s_id int NULL ," & _
        "username nvarchar(20) NULL ," & _
        "topic nvarchar(40) NULL ," & _
        "comto nvarchar(10) NULL ," & _
        "ispic bit NULL ," & _
        "pic nvarchar(100) NULL ," & _
        "word ntext NULL ," & _
        "counter int NULL ," & _
        "keyes nvarchar (20) NULL ," & _
        "tim datetime NULL ," & _
        "istop bit NULL ," & _
        "hidden bit NULL ," & _
        "cod int NULL ," & _
        "tcolor nvarchar(20) NULL ," & _
        "PaginationType int NULL ," & _
        "MaxCharPerPage int NULL )"
  case "article"
    sql="CREATE TABLE [dbo].["&m_data_name&"] (id int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_"&m_data_name&" PRIMARY KEY," & _
        "c_id int NULL ," & _
        "s_id int NULL ," & _
        "username nvarchar(20) NULL ," & _
        "topic nvarchar(40) NULL ," & _
        "word ntext NULL ," & _
        "counter int NULL ," & _
        "tim datetime NULL ," & _
        "hidden bit NULL ," & _
        "power nvarchar(50) NULL ," & _
        "emoney int NULL ," & _
        "author nvarchar(20) NULL ," & _
        "comto nvarchar(20) NULL ," & _
        "keyes nvarchar(20) NULL ," & _
        "istop bit NULL ," & _
        "cod int NULL ," & _
        "tcolor nvarchar(20) NULL ," & _
        "PaginationType int NULL ," & _
        "MaxCharPerPage int NULL )"
  end select
    call joekoe_cms.exec(sql,0)
end if
end sub

function chk_table()
  on error resume next
  chk_table=true
  sql="select count(id) from "&m_data_name
  set rs=joekoe_cms.exec(sql,1)
  if err then
    err.clear
    chk_table=false
  end if
  rs.close
end function

function select_skins_mod(smid)
  dim tmp1,tmp_rs,tmp_id
  tmp1="<select name=m_skin_mod_id size=1><option value'0' class=tr0>请选择模板</option>"
  set tmp_rs=joekoe_cms.exec("select s_id,s_name from jk_skin order by s_id",1)
  do while not tmp_rs.eof
    tmp_id=tmp_rs(0)
    tmp1=tmp1&vbcrlf&"<option value='"&tmp_id&"'"
    if int(tmp_id)=int(smid) then
      tmp1=tmp1&" selected"
    end if
    tmp1=tmp1&">"&tmp_rs(1)&"</option>"
    tmp_rs.movenext
  loop
  tmp_rs.close
  set tmp_rs=nothing
  tmp1=tmp1&vbcrlf&"</select>"
  select_skins_mod=tmp1
end function

function fite_code(ftype,f1,f2,f3,f4,fty)
  dim strer
  strer=ftype
  if var_null(strer)="" then
    fite_code=""
    exit function
  end if
  select case fty
  case "news"
    strer=Replace(strer,"news",f1)
    strer=Replace(strer,"行业动态",f3)
    strer=Replace(strer,"新闻",f4)
  case else
    strer=Replace(strer,"art",f2)
    strer=Replace(strer,f2&"icle",f1)
    strer=Replace(strer,"技术文栏",f3)
    strer=Replace(strer,"文栏",f4)
  end select
  fite_code=strer
end function
%>