admins_menu.asp

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

</tr>
<tr>
<td>菜单链接地址：</td>
<td><input type=text name=m_murl value='<%response.write m_murl%>' 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>article</font>.asp</td></tr>
<%
  call submit_edit()
end sub

sub joekoe_chk_add_2()
  dim m_name,m_url,m_sort,m_order,m_open,m_hidden,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_morder,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_rss,m_rss_record
  sql="select top 1 m_sort,m_name,m_open,m_hidden 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_sort=rs("m_sort")
  m_name=rs("m_name")
  m_open=1
  if rs("m_open")=false then m_open=0
  n_hidden=rs("m_hidden")
  rs.close
  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("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 "
      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
    end if
    m_order=1
    sql="select top 1 m_order from "&data_name&" where m_sort="&m_sort&" order by m_order desc"
    set rs=joekoe_cms.exec(sql,1)
    if not rs.eof then m_order=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
    sql="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_is_err,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_rss,m_rss_record) " & _
	"values("&m_sort&",'"&m_name&"','"&m_url&"',"&m_order&","&m_open&","&m_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&"',"&m_is_menu&","&m_morder&",'"&m_mname&"','"&m_mtit&"','"&m_mcolor&"',"&m_mb&","&m_mtarget&",'"&m_murl&"','"&m_on_rss&"','"&m_rss_record&"')"
    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=add_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 m_name%></b></td>
</tr>
<tr>
<td>二级<%response.write tit_fir%>名称：</td>
<td><input type=text name=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 size=30 maxlength=100><%response.write redx%></td>
</tr>
<tr>
<td>隐藏二级<%response.write tit_fir%>：</td>
<td><input type=checkbox name=m_hidden value='yes'>&nbsp;选择表示隐藏二级<%response.write tit_fir%></td>
</tr>
<tr>
<td class=red>栏目管理参数：</td>
<td><input type=checkbox name=m_is_master value='yes'><%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='0' size=5 maxlength=5>&nbsp;与管理文件里的标识相对应；为大于-1小于51的整数，等于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'>&nbsp;分类&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=checkbox name=m_is_review value='yes'>&nbsp;评论&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=checkbox name=m_is_err value='yes'>&nbsp;报错&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=checkbox name=m_on_rss value='yes'>&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 size=15 maxlength=20>&nbsp;完整的类别标识，一般与数据表名相同，如：article</td>
</tr>
<tr class=tr1>
<td>栏目数据表名：</td>
<td><input type=text name=m_data_name size=15 maxlength=20>&nbsp;一般与类别标识相同，如：article</td>
</tr>
<tr class=tr1>
<td>栏目管理标题：</td>
<td><input type=text name=m_tit size=15 maxlength=20>&nbsp;如：文章管理</td>
</tr>
<tr class=tr1>
<td>栏目管理简称：</td>
<td><input type=text name=m_tit_fir size=15 maxlength=20>&nbsp;如文章管理可填：文章</td>
</tr>
<tr class=tr1>
<td>RSS数据记录：</td>
<td><input type=text name=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'>&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;必填，如文章栏目可填：技术文栏</td>
</tr>
<tr>
<td>菜单名称显示：</td>
<td><input type=text name=m_mtit value='' 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='' 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>技术文栏</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>article</font>.asp</td></tr>
<%
  call submit_add()
end sub

sub joekoe_chk_edit_1()
  dim m_sort,m_name,m_open,m_hidden,n_open,n_hidden
  sql="select top 1 m_sort,m_name,m_open,m_hidden 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_sort=rs("m_sort")
  m_name=rs("m_name")
  n_open=rs("m_open")
  n_hidden=rs("m_hidden")
  rs.close
  call admin_td("修改主"&tit_fir&"（"&m_name&"）")
  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_hidden=1
    if trim(request.form("m_hidden"))="yes" then m_hidden=0
    if m_name="" then
      call admin_error("主"&tit_fir&"的名称不能为空！")
      exit sub
    end if
    sql="update "&data_name&" set m_name='"&m_name&"',m_open="&m_open&",m_hidden="&m_hidden&" where m_id="&m_id
    call joekoe_cms.exec(sql,0)
    sql="update "&data_name&" set m_hidden="&m_hidden&" where m_sort="&m_sort
    call joekoe_cms.exec(sql,0)
    call admin_msg("成功修改了主"&tit_fir&"："&m_name,"?action=edit",1)
    exit sub
  end if
  call form_first()
%>
<form action='?action=edit_1&m_id=<%response.write m_id%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td>主<%response.write tit_fir%>名称：</td>
<td><input type=text name=m_name value='<%response.write m_name%>' size=20 maxlength=20><%response.write redx%></td>
</tr>
<tr>
<td>展开管理<%response.write tit_fir%>：</td>
<td><input type=checkbox name=m_open<%if n_open=true then response.write " checked"%> value='yes'>&nbsp;选择表示展开主<%response.write tit_fir%></td>
</tr>
<tr>
<td>隐藏管理菜单：</td>
<td><input type=checkbox name=m_hidden<%if n_hidden=false then response.write " checked"%> value='yes'>&nbsp;选择表示隐藏主<%response.write tit_fir%></td>
</tr>
<%
  call submit_edit()
end sub

sub joekoe_chk_add_1()
  call admin_td("添加新的主"&tit_fir)
  dim m_name,m_sort,m_open,m_hidden
  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_hidden=1
    if trim(request.form("m_hidden"))="yes" then m_hidden=0
    if m_name="" then
      call admin_error("主"&tit_fir&"的名称不能为空！")
      exit sub
    end if
    m_sort=0
    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
    sql="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_is_err,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) " & _
	"values("&m_sort&",'"&m_name&"','',0,"&m_open&","&m_hidden&",0,0,0,0,0,'','','','','',0,0,'','','',0,0,'')"
    call joekoe_cms.exec(sql,0)
    call admin_msg("成功添加一项新的主"&tit_fir&"："&m_name,"?action=edit",1)
    exit sub
  end if
  call form_first()
%>
<form action='?action=add_1' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td>主<%response.write tit_fir%>名称：</td>
<td><input type=text name=m_name size=20 maxlength=20><%response.write redx%></td>
</tr>
<tr>
<td>展开主<%response.write tit_fir%>：</td>
<td><input type=checkbox name=m_open checked value='yes'>&nbsp;选择表示展开主<%response.write tit_fir%></td>
</tr>
<tr>
<td>隐藏主<%response.write tit_fir%>：</td>
<td><input type=checkbox name=m_hidden value='yes'>&nbsp;选择表示隐藏主<%response.write tit_fir%></td>
</tr>
<%
  call submit_add()
end sub
%>