admins_menu.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

    exit sub
  end if
  dim id1,id2,sql1,sql2,sort1,sort2,update_ok,update_1
  update_ok=false
  update_1=false
  sql1=""
  sql2=""
  set rs=joekoe_cms.exec("select top 1 m_id from "&data_name&" where m_order=0 and m_id="&m_id,1)
  if rs.eof then
    rs.close
    call admin_msg("主"&tit_fir&"ID（"&m_id&"）不存在！","?action=edit",1)
    exit sub
  end if
  rs.close
  sql="select m_id,m_sort from "&data_name&" where m_order=0 order by m_sort"
  if action="up_1" then sql=sql&" desc"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    if cint(rs(0))=cint(m_id) then
      id1=rs(0)
      sort1=rs(1)
      rs.movenext
      if not rs.eof then
        id2=rs(0)
        sort2=rs(1)
        update_ok=true
      end if
      exit do
    end if
    rs.movenext
  loop
  rs.close
  if update_ok=true then
    set rs=joekoe_cms.exec("select m_id from "&data_name&" where m_sort="&sort1,1)
    do while not rs.eof
      if sql1="" then
        sql1=" m_id="&rs(0)
      else
        sql1=sql1&" or m_id="&rs(0)
      end if
      rs.movenext
    loop
    rs.close
    set rs=joekoe_cms.exec("select m_id from "&data_name&" where m_sort="&sort2,1)
    do while not rs.eof
      if sql2="" then
        sql2=" m_id="&rs(0)
      else
        sql2=sql2&" or m_id="&rs(0)
      end if
      rs.movenext
    loop
    rs.close
    call joekoe_cms.exec("update "&data_name&" set m_sort="&sort2&" where "&sql1,0)
    call joekoe_cms.exec("update "&data_name&" set m_sort="&sort1&" where "&sql2,0)
  end if
  call joekoe_chk_main()
end sub

sub joekoe_chk_action_2()
  if cint(m_id)<1 then
    call joekoe_chk_edit()
    exit sub
  end if
  dim n_sort,id1,id2,order1,order2,update_ok
  update_ok=false
  sql="select top 1 m_sort from "&data_name&" where m_order>0 and m_id="&m_id
  set rs=joekoe_cms.exec(sql,1)
  if rs.eof then
    rs.close
    call admin_msg("二级"&tit_fir&"ID（"&m_id&"）不存在！","?action=edit",1)
    exit sub
  end if
  n_sort=rs(0)
  rs.close
  sql="select m_id,m_order from "&data_name&" where m_order>0 and m_sort="&n_sort&" order by m_order"
  if action="up_2" then sql=sql&" desc"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    if cint(rs(0))=cint(m_id) then
      id1=rs(0)
      order1=rs(1)
      rs.movenext
      if not rs.eof then
        id2=rs(0)
        order2=rs(1)
        update_ok=true
      end if
      exit do
    end if
    rs.movenext
  loop
  rs.close
  if update_ok=true then
    call joekoe_cms.exec("update "&data_name&" set m_order="&order2&" where m_id="&id1,0)
    call joekoe_cms.exec("update "&data_name&" set m_order="&order1&" where m_id="&id2,0)
  end if
  call joekoe_chk_main()
end sub

sub joekoe_chk_edit_2()
  dim m_sort,m_name,m_url,m_hidden,n_id,n_name,n_hidden,m_is_master,m_is_nsort,m_is_review,m_is_err,m_popedom,m_nsort,m_index_url,m_data_name,m_tit,m_tit_fir
  dim m_is_menu,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_rss,m_rss_record
  sql="select top 1 * from "&data_name&" where m_id="&m_id
  set rs=joekoe_cms.exec(sql,1)
  if rs.eof then
    rs.close
    call admin_msg("二级"&tit_fir&"ID（"&m_id&"）不存在！","?action=edit",1)
    exit sub
  end if
  m_on_rss=rs("m_on_rss")
  m_rss_record=rs("m_rss_record")
  m_sort=rs("m_sort")
  m_name=rs("m_name")
  m_url=rs("m_url")
  m_hidden=rs("m_hidden")
  m_is_master=rs("m_is_master")
  m_is_nsort=rs("m_is_nsort")
  m_is_review=rs("m_is_review")
  m_is_err=rs("m_is_err")
  m_popedom=rs("m_popedom")
  m_nsort=rs("m_nsort")
  m_index_url=rs("m_index_url")
  m_data_name=rs("m_data_name")
  m_tit=rs("m_tit")
  m_tit_fir=rs("m_tit_fir")
  m_is_menu=rs("m_is_menu")
  m_mname=rs("m_mname")
  m_mtit=rs("m_mtit")
  m_mcolor=rs("m_mcolor")
  m_mb=rs("m_mb")
  m_mtarget=rs("m_mtarget")
  m_murl=rs("m_murl")
  rs.close
  sql="select top 1 m_id,m_name,m_hidden from "&data_name&" where m_sort="&m_sort&" order by m_order"
  set rs=joekoe_cms.exec(sql,1)
  n_id=rs("m_id")
  n_name=rs("m_name")
  n_hidden=rs("m_hidden")
  rs.close
  if cint(n_id)=cint(m_id) then
    call admin_msg("主"&tit_fir&"不存在！","?action=edit",1)
    exit sub
  end if
  call admin_td("修改二级"&tit_fir&"（"&m_name&"）")
  if chk() then
    m_name=code_admin("m_name",1,20)
    m_url=code_admin("m_url",1,100)
    m_hidden=1
	m_on_rss=0
    if trim(request.form("m_hidden"))="yes" then m_hidden=0
    if n_hidden=false then m_hidden=0
    m_is_master=0
    if trim(request.form("m_is_master"))="yes" then m_is_master=1
    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_is_err=0
    if trim(request.form("m_is_err"))="yes" then m_is_err=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_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_is_menu=0
    if trim(request.form("m_is_menu"))="yes" then m_is_menu=1
    if trim(request.form("m_on_rss"))="yes" then m_on_rss=1
	m_rss_record=code_admin("m_rss_record",1,50)
    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_on_rss=1 and m_rss_record="" then
	  call admin_error("二级"&tit_fir&"的RSS数据记录不能为空！")	
	  exit sub
	end if
    if m_name="" or m_url="" then
      call admin_error("二级"&tit_fir&"的名称和链接地址不能为空！")
      exit sub
    end if
    if int(m_is_master)=1 then
      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 m_id<>"&m_id&" and ("
      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=conn.execute(sql)
      if int(rs(0))>0 then
        rs.close
        call admin_error("<font class=red>栏目管理参数</font>有一项或多项与其它栏目的设置重复！")
        exit sub
      end if
      rs.close
    end if
    sql="update "&data_name&" set m_name='"&m_name&"',m_url='"&m_url&"',m_hidden="&m_hidden&",m_is_master="&m_is_master&",m_is_nsort="&m_is_nsort&",m_is_review="&m_is_review&",m_is_err="&m_is_err&",m_popedom="&m_popedom&",m_nsort='"&m_nsort&"',m_index_url='"&m_index_url&"',m_data_name='"&m_data_name&"',m_tit='"&m_tit&"',m_tit_fir='"&m_tit_fir&"',m_is_menu="&m_is_menu&",m_mname='"&m_mname&"',m_mtit='"&m_mtit&"',m_mcolor='"&m_mcolor&"',m_mb="&m_mb&",m_mtarget="&m_mtarget&",m_murl='"&m_murl&"',m_on_rss="&m_on_rss&",m_rss_record='"&m_rss_record&"' where m_id="&m_id
    call joekoe_cms.exec(sql,0)
    call admin_msg("成功修改了二级"&tit_fir&"："&m_name,"?action=edit",1)
    exit sub
  end if
  call form_first()
%>
<form name=menu_frm action='?action=edit_2&m_id=<%response.write m_id%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td>主<%response.write tit_fir%>名称：</td>
<td class=blue><b><%response.write n_name%></b></td>
</tr>
<tr>
<td>二级<%response.write tit_fir%>名称：</td>
<td><input type=text name=m_name value='<%response.write m_name%>' size=15 maxlength=20><%response.write redx%></td>
</tr>
<tr>
<td><%response.write tit_fir%>链接地址：</td>
<td><input type=text name=m_url value='<%response.write m_url%>' size=30 maxlength=100><%response.write redx%>可以为本地或外部地址，建议只使用本地地址。</td>
</tr>
<tr>
<td>隐藏二级<%response.write tit_fir%>：</td>
<td><input type=checkbox name=m_hidden<%if m_hidden=false then response.write " checked"%> value='yes'<%if n_hidden=false then response.write " disabled"%>>&nbsp;选择表示隐藏二级<%response.write tit_fir%></td>
</tr>
<tr class=tr1>
<td class=red>栏目管理参数：</td>
<td><input type=checkbox name=m_is_master value='yes'<%if m_is_master then response.write " checked"%>><%response.write redx%>选择表示设置管理栏目的相关参数</td>
</tr>
<tr class=tr1>
<td class=gray>管理参数说明：</td>
<td><font class=red>如不选择则以下几项可不填</font>，填写时则<font class=red><b>任一项不可与其它栏目的设置重复</b></font>！</td>
</tr>
<tr class=tr1>
<td>栏目权限标识：</td>
<td><input type=text name=m_popedom value='<%response.write m_popedom%>' size=5 maxlength=5>&nbsp;与管理文件里的标识相对应；为大于-1小于51的整数，等于0时为不设权限。</td>
</tr>
<tr class=tr1>
<td>栏目类别代码：</td>
<td><input type=text name=m_nsort value='<%response.write 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'<%if m_is_nsort then response.write " checked"%>>&nbsp;分类&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=checkbox name=m_is_review value='yes'<%if m_is_review then response.write " checked"%>>&nbsp;评论&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=checkbox name=m_is_err value='yes'<%if m_is_err then response.write " checked"%>>&nbsp;报错&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=checkbox name=m_on_rss value='yes'<%if m_on_rss then response.write " checked"%>>&nbsp;RSS支持（是否开启前台RSS功能）&nbsp;&nbsp;&nbsp;<font class=red>（该栏目没有的可不选）</font></td>
</tr>
<tr class=tr1>
<td>栏目类别标识：</td>
<td><input type=text name=m_index_url value='<%response.write m_index_url%>' size=15 maxlength=20>&nbsp;完整的类别标识，一般与数据表名相同，如：article</td>
</tr>
<tr class=tr1>
<td>栏目数据表名：</td>
<td><input type=text name=m_data_name value='<%response.write m_data_name%>' size=15 maxlength=20>&nbsp;一般与类别标识相同，如：article</td>
</tr>
<tr class=tr1>
<td>栏目管理标题：</td>
<td><input type=text name=m_tit value='<%response.write m_tit%>' size=15 maxlength=20>&nbsp;如：文章管理</td>
</tr>
<tr class=tr1>
<td>栏目管理简称：</td>
<td><input type=text name=m_tit_fir value='<%response.write m_tit_fir%>' size=15 maxlength=20>&nbsp;如文章管理可填：文章</td>
</tr>
<tr class=tr1>
<td>RSS数据记录：</td>
<td><input type=text name=m_rss_record value='<%response.write m_rss_record%>' size=50 maxlength=250>&nbsp;当栏目有RSS(2.0)支持时，此项必选&nbsp;&nbsp;<%call admin_read("举例","RSS数据记录填写方式","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'<%if m_is_menu then response.write " checked"%>>&nbsp;是否作为前台菜单，<font class=red><b>如要想让该项在前台有显示链接，请选择此项并填写相关信息</b></font></td>
</tr>
<tr>
<td>菜单显示名称：</td>
<td><input type=text name=m_mname value='<%response.write m_mname%>' size=20 maxlength=20>&nbsp;必填，如文章栏目可填：技术文栏</td>
</tr>
<tr>
<td>菜单名称显示：</td>
<td><input type=text name=m_mtit value='<%response.write m_mtit%>' size=20 maxlength=20>&nbsp;可选，对菜单的提示说明，如：<a href='javascript:;' alt='这个栏目是讲述有关电脑编程相关的技术文章' class=red>技术文栏</a>&nbsp;←鼠标移至此链接</td>
</tr>
<tr>
<td>菜单名称加色：</td>
<td><input type=text name=m_mcolor value='<%response.write m_mcolor%>' 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'<%if m_mb then response.write " checked"%>>&nbsp;可选，是否对该菜单显示名称加粗，如：<b><a href='javascript:;' class=blue>技术文栏</a></b></td>
</tr>
<tr>
<td>新窗口显示：</td>
<td><input type=checkbox name=m_mtarget value='yes'<%if m_mtarget then response.write " checked"%>>&nbsp;可选，是否让该菜单链接在新窗口中显示，如：<a href='http://www.joekoe.com/' target=_blank class=red>新的窗口</a>&nbsp;←鼠标点击此链接</td>