admins_menu.asp

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

<!-- #include file="include/admin_onlogin.asp" -->
<!-- #include file="include/admin_menu_type.asp" -->
<!-- #include file="include/jk_template.asp" -->
<%
dim m_id
m_id=trim(request.querystring("m_id"))
if not(isnumeric(m_id)) then m_id=0
admins=true
nsort="menu"
index_url="menu"
data_name="admin_menu"
tit_fir="菜单"
tit="管理菜单"
call admin_header(0,0)
%>
<tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
  <td><a href='?'><%response.write tit%></a></td>
  <td width=10></td>
  <td><a href='?action=add_1'>添加新的<%response.write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?action=menu'>网站菜单生成</a></td>
  <td width=10></td>
  <td><a href='admins_popedom.asp'>权限管理</a></td>
  <td width=10></td>
  <td><a href='javascript:;' onclick="javascript:parent.frame_left.re_load();">预览<%response.write tit%></a></td>
  </tr>
  </table>
</td></tr>
</table>
<%
call admin_table(1)

select case action
case "menu_order"
  call joekoe_chk_menu_order()
case "menu_up","menu_down","menu"
  call joekoe_chk_menu()
case "add_1"
  call joekoe_chk_add_1()
case "add_2"
  call joekoe_chk_add_2()
case "edit_1"
  call joekoe_chk_edit_1()
case "edit_2"
  call joekoe_chk_edit_2()
case "up_1","down_1"
  call joekoe_chk_action_1()
case "up_2","down_2"
  call joekoe_chk_action_2()
case "delete"
  call joekoe_chk_delete()
case else
  call joekoe_chk_main()
end select

call admin_ender(1)

sub joekoe_chk_delete()
  if cint(m_id)<1 then
    call joekoe_chk_edit()
    exit sub
  end if
  dim m_sort,m_name,m_order
  set rs=joekoe_cms.exec("select top 1 m_sort,m_name,m_order from "&data_name&" where 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
  m_sort=rs("m_sort")
  m_name=rs("m_name")
  m_order=rs("m_order")
  rs.close
  if cint(m_order)=0 then
    call joekoe_cms.exec("delete from "&data_name&" where m_sort="&m_sort,0)
    call admin_event("删除一项主"&tit_fir&"（"&m_name&"）及其二级"&tit_fir&"。",0,0)
    call admin_msg("成功删除一项主"&tit_fir&"（"&m_name&"）及其二级"&tit_fir&"！","?action=edit",1)
  else
    call joekoe_cms.exec("delete from "&data_name&" where m_id="&m_id,0)
    call admin_event("删除一项二级"&tit_fir&"（"&m_name&"）。",0,0)
    call admin_msg("成功删除一项二级"&tit_fir&"（"&m_name&"）！","?action=edit",1)
  end if
end sub

sub joekoe_chk_menu_order()
  i=1
  sql="select m_id from "&data_name&" where m_is_menu=1 order by m_morder,m_id"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    call joekoe_cms.exec("update "&data_name&" set m_morder="&i&" where m_id="&rs("m_id"),0)
    i=i+1
    rs.movenext
  loop
  rs.close
  call admin_msg("成功对网站菜单进行了排序！","?action=menu",1)
end sub

sub joekoe_chk_menu_action()
  dim nid,m_id,mid1,mid2,mo1,mo2
  m_id=id
  if int(m_id)<1 then exit sub
  sql_add=""
  if action="menu_up" then sql_add=" desc"
  sql="select m_id,m_morder from "&data_name&" where m_is_menu=1 order by m_morder"&sql_add&",m_id"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    nid=int(rs(0))
    if int(m_id)=int(nid) then
      mid1=nid
      mo2=rs(1)
      rs.movenext
      if rs.eof then exit do
      mid2=rs(0)
      mo1=rs(1)
      call joekoe_cms.exec("update "&data_name&" set m_morder="&mo1&" where m_id="&mid1,0)
      call joekoe_cms.exec("update "&data_name&" set m_morder="&mo2&" where m_id="&mid2,0)
      exit do
    end if
    rs.movenext
  loop
  
rs.close
end sub

sub joekoe_chk_menu()
  if action="menu_up" or action="menu_down" then call joekoe_chk_menu_action()
  dim m_id,m_index_url,m_mname,m_mtit,m_mcolor,nurl,temp1,temp2,temp3,file_name
  file_name="style/joekoe_menu.asp"
  call admin_td("网站菜单生成")
%>
<tr><td colspan=2 align=center>
  <table border=0 cellspacing=2 cellpadding=4>
  <tr>
  <td><a href='./'>首页</a></td>
<%
  temp2=vbcrlf&"<"&"%" & _
        vbcrlf&"function web_menu()" & _
	vbcrlf&"  dim m_var" & _
	vbcrlf&"  m_var=vbcrlf&""<table border=0 cellspacing=0 cellpadding=0 class=tf align=center width='98%'><tr align=center height=18>"" & _" & _
	vbcrlf&"        vbcrlf&""<td width=50><a class=h_menu href='./'>首页</a></td>"" & _"
  web_dim(20)=""
  sql="select m_id,m_index_url,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl from "&data_name&" where m_is_menu=1 order by m_morder,m_id"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    m_id=rs("m_id")
    m_index_url=rs("m_index_url")
    m_mname=rs("m_mname")
    m_mtit=rs("m_mtit")
    m_mcolor=rs("m_mcolor")
    nurl=rs("m_murl")
    if web_dim(20)="" then
      web_dim(20)=m_index_url&":"&m_mname
    else
      web_dim(20)=web_dim(20)&"|"&m_index_url&":"&m_mname
    end if
    if var_null(nurl)="" then nurl=m_index_url&".asp"
    if var_null(m_mname)="" then m_mname="暂无"
    temp1="<a class=h_menu href='"&nurl&"'"
    if rs("m_mtarget") then temp1=temp1&" target=_blank"
    if var_null(m_mcolor)<>"" then temp1=temp1&"><font color='"&m_mcolor&"'"
    if var_null(m_mtit)<>"" then temp1=temp1&" alt='"&m_mtit&"'"
    temp1=temp1&">"&m_mname&"</a>"
    if rs("m_mb") then temp1="<b>"&temp1&"</b>"
    temp2=temp2&vbcrlf&"        vbcrlf&""<td>"&temp1&"</td>"" & _"
    temp3=temp3&vbcrlf&"<tr><td>"&temp1&"</td><td>&nbsp;&nbsp;"&pro_edit("?action=edit_2&m_id="&m_id,"编辑该菜单项")&"&nbsp;&nbsp;&nbsp;<a href='?action=menu_up&id="&m_id&"'>"&img_admin("up_2","向上移动此菜单")&"</a>&nbsp;&nbsp;&nbsp;<a href='?action=menu_down&id="&m_id&"'>"&img_admin("down_2","向下移动此菜单")&"</a></td></tr>"
    response.write vbcrlf&"  <td>"&temp1&"</td>"
    rs.movenext
  loop
  rs.close
  temp2=temp2&vbcrlf&"        vbcrlf&""</tr></table>""" & _
	vbcrlf&"  web_menu=m_var" & _
	vbcrlf&"end function" & _
	vbcrlf&"%"&">"
%>
  </tr>
  </table>
</td></tr>
<tr>
<form name=menu_frm action='?action=<%response.write action%>' method=post>
<input type=hidden name=chk value='yes'>
<td colspan=2 align=center height=50>
<%
  if chk() then
    call create_file(file_name,temp2)
    call joekoe_template_common()
    response.write "<font class=red>已成功更新生成了网站菜单！</font>"
  else
    call form_first()
%>
<input type=submit value='点击生成网站菜单' onclick="javascript:return click_return('重新生成网站菜单',0);">
<% end if %>
</td>
</form>
</tr>
<tr valign=top>
<td class=htd width='20%'><br>相关操作：<br><br><a href='?action=menu_order' onclick="javascript:return click_return('重新对网站菜单进行排序',0);">重新排序</a></td>
<td width='80%'>
  <table border=0 cellspacing=2 cellpadding=4>
<% response.write temp3 %>
  </table>
</td>
</tr>
<%
end sub

sub joekoe_chk_main()
  dim m_sort,m_name,m_type,n_sort,n_type,vt
  vt=false
  n_sort=-1
%>
<tr><td class=td colspan=2>编辑管理<%response.write tit_fir%></td></tr>
<tr>
<td width='20%'></td>
<td width='80%'>
  <table border=0 cellspacing=1 cellpadding=4 width='100%'>
  <tr><td width='50%'></td><td width='50%'></td></tr>
<%
  sql="select m_id,m_sort,m_name,m_url,m_open,m_hidden,m_sort from "&data_name&" order by m_sort,m_order"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    vt=true
    m_sort=rs("m_sort")
    m_name=rs("m_name")
    m_id=rs("m_id")
    if cint(n_sort)=cint(m_sort) then
      response.write vbcrlf&"  <tr><td>　"&img_admin("s_minus","")&"&nbsp;<a href='###'>"&m_name&"</a>"
      if rs("m_hidden")=false then response.write " <font class=gray>(隐藏)</font>"
      response.write "</td><td><a href='?action=edit_2&m_id="&m_id&"'>修改</a>&nbsp;&nbsp;" & _
		     "<a href='?action=up_2&m_id="&m_id&"'>"&img_admin("up_2","向上移动此二级"&tit_fir)&"</a>&nbsp;&nbsp;" & _
		     "<a href='?action=down_2&m_id="&m_id&"'>"&img_admin("down_2","向上移动此二级"&tit_fir)&"</a>&nbsp;&nbsp;" & _
		     "<a href='?action=delete&m_id="&m_id&"' onclick=""return del_menu("&m_id&",'"&m_name&"','no');"">删除</a></td></tr>"
    else
      if i>0 then response.write vbcrlf&"  <tr><td colspan=2 height=10></td></tr>"
      response.write vbcrlf&"  <tr><td>"&img_admin("s_plus","")&"&nbsp;<a href='###'>"&m_name&"</a>"
      if rs("m_hidden")=false then response.write " <font class=gray>(隐藏)</font>"
      if rs("m_open")=false then response.write " <font class=gray>(折叠)</font>"
      response.write " <font class=gray>[<font class=blue>"&rs("m_sort")&"</font>]</font></td><td><a href='?action=edit_1&m_id="&m_id&"'>修改</a>&nbsp;&nbsp;" & _
		     "<a href='?action=up_1&m_id="&m_id&"'>"&img_admin("up_1","向上移动此主"&tit_fir)&"</a>&nbsp;&nbsp;" & _
		     "<a href='?action=down_1&m_id="&m_id&"'>"&img_admin("down_1","向下移动此主"&tit_fir)&"</a>&nbsp;&nbsp;" & _
		     "<a href='?action=delete&m_id="&m_id&"' onclick=""return del_menu("&m_id&",'"&m_name&"','yes');"">删除</a>&nbsp;&nbsp;" & _
		     "<a href='?action=add_2&m_id="&m_id&"'>添加二级"&tit_fir&"</a></td></tr>"
      n_sort=m_sort
    end if
    rs.movenext
    i=i+1
  loop
  rs.close
  if not vt then response.write vbcrlf&"  <tr><td colspan=2 height=50 align=center>暂时没有任何"&tit_fir&"</td></tr>"
%>
  </table>
</td>
</tr>
<script language=javascript>
<!--
function left_menu(meval)
{
  var left_n=eval(meval);
  if (left_n.style.display=="none")
  { eval(meval+".style.display='';"); }
  else
  { eval(meval+".style.display='none';"); }
}

function del_menu(t1,t2,t3)
{
  if (t3=="yes")
  {
    var cf=window.confirm("您确定要删除主<%response.write tit_fir%>（"+t2+"）吗？\n其下的二级<%response.write tit_fir%>也将一并删除！\n\n删除后将不可恢复！是否确定该操作？");
    if (cf)
    { return true; }
    else
    { return false; }
  }
  else
  {
    var cf1=window.confirm("您确定要删除二级<%response.write tit_fir%>（"+t2+"）吗？\n\n删除后将不可恢复！是否确定该操作？");
    if (cf1)
    { return true; }
    else
    { return false; }
  }
  return false;
}
-->
</script>
<%
end sub

sub joekoe_chk_action_1()
  if cint(m_id)<1 then
    call joekoe_chk_edit()