www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/sys/menu.asp

    <!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->
<%
call zwtj()

call chkqx(3,1)

sub tssx(sx1,sx2)
if sx1=1 then
Response.Write("<span class=""fontr"">[置顶]<span>")
end if
if sx2=1 then
Response.Write("<span class=""fontr"">[禁用]<span>")
end if
end sub

function ymdh()
if fid=0 then 
ymdh="" 
end if
dim fpath,path,i
fpath=getmc("Jw_menus","id",fid,"fpath")
path=split(fpath,",")
for i=1 to (ubound(path)-1)
ymdh=ymdh&"<a href=""?fid="&path(i)&""">"&getmc("Jw_menus","id",path(i),"mc")&"</a> &gt; "
next
end function

mytit=mytit&"<a href=""?fid=0"">菜单管理</a> > "

select case action
case "add"
mytit=mytit&ymdh()&"添加菜单"
call add()
case "del"
call del()
case "show",""
mytit=mytit&ymdh()&"菜单列表"
call show()
case "ups"
mytit=mytit&ymdh()&"编辑菜单"
call ups()
case "px"
mytit=mytit&ymdh()&"菜单排序"
call cdpx()
case "zd"
call zd()
case "qxzd"
call qxzd()
case "jy"
call jy()
case "qy"
call qy()
case "aadd"
call aadd()
case "doup"
call doup()
case "qqzz"
call qqzz()
end select

'显示
sub show()
sql="select * from Jw_menus where fid="&fid&" order by zd desc,qz asc"
call record(rs,sql,1)
call head()
%>
<link href="../inc/mm.css" rel="stylesheet" type="text/css" />
<script type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加菜单 </a>|| <a href="?action=px&fid=<%= fid %>">菜单排序</a></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<form name="form1" id="form1" method="post" action="">
<tr>
<td width="4%" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td>
<td width="16%" bgcolor="#C5E0F3"><strong>菜单名称</strong></td>
<td width="26%" bgcolor="#C5E0F3"><strong>链接地址</strong></td>
<td width="10%" align="center" bgcolor="#C5E0F3"><strong>创建人</strong></td>
<td width="15%" align="center" bgcolor="#C5E0F3"><strong>所属分类</strong></td>
<td width="8%" align="center" bgcolor="#C5E0F3"><strong>权重</strong></td>
<td width="7%" align="center" bgcolor="#C5E0F3"><strong>属性</strong></td>
<td width="11%" align="center" bgcolor="#C5E0F3"><strong>操作</strong></td>
<td width="3%" align="center" bgcolor="#C5E0F3"><input type="checkbox" name="selectall" onClick="selectit()"/></td>
</tr>
<% 
dim i,sz
sz=20
i=sz
dim bgc
%>
<div style="display:none"><% call fenpage(sz,rs,10) %></div>
<%
do while not rs.eof and i>0 
if i mod 2=0 then 
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><%= rs("id") %></td>
<td><%= rs("mc") %> <% call tssx(rs("zd"),rs("show")) %></td>
<td><%= rs("link") %></td>
<td align="center"><%= rs("creater") %></td>
<td align="center">
<%
If fid=0 Then
Response.Write("根目录")
else
Response.Write(getmc("Jw_menus","id",fid,"mc"))
end if
%></td>
<td align="center"><%= rs("qz") %></td>
<td align="center">
<%
If fid=0 Then
Response.Write("1级")
else
Response.Write(getjs("Jw_menus")&"级")
end if
%></td>
<td align="center"><table border="0" cellpadding="2" cellspacing="0">
<tr>
<td valign="bottom">
<%
If ubound(split(rs("fpath"),","))<3 Then
%>
<a href="?fid=<%= rs("id") %>"><img src="../../images/admin/20060713191005984.gif" alt="子栏目管理" width="16" height="16" border="0" align="absbottom"/></a>
<% End If %>
</td>
<td valign="bottom"><a href="?action=ups&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/20050703091537508.gif" alt="编辑信息" width="14" height="15" border="0" align="absbottom" /></a></td>
<td valign="bottom"><% If rs("show")=0 Then %>
<a href="?action=jy&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/20050703091539318.gif" alt="锁定" width="13" height="13" border="0" align="absbottom" /></a>
<% Else %>

<a href="?action=qy&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/20050703091613193.gif" alt="解锁" width="12" height="13" border="0" align="absbottom" /></a>
<% End If %></td>
<td valign="bottom"><% If rs("zd")=0 Then %>
<a href="?action=zd&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/qxzd.gif" alt="置顶" width="16" height="16" border="0" align="absbottom" /></a>
<% Else %>
<a href="?action=qxzd&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/zd.gif" alt="取消置顶" width="16" height="16" border="0" align="absbottom" /></a>
<% End If %></td>
</tr>
</table></td>
<td align="center"><input name="idstr" type="checkbox" value="<%= rs("id") %>" onclick="td_bgcolor(r<%=rs("id")%>,1);"></td>
</tr>
<% 
i=i-1
rs.movenext 
loop
%>
<tr>
<td colspan="9" bgcolor="#C5E0F3">
<table width="100%" border="0" cellpadding="2" cellspacing="0">
<tr>
<td width="6%"><input name="del" type="button" class="button_1" id="del" value="删除所选" onmouseup="tjqr('您确定要删除？此操作无法逆转！','?action=del')" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'" /></td>
<td width="94%" align="right"><% call fenpage(sz,rs,10) %></td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
call recordend(rs)
call connend()
call foot()
end sub

'添加
sub add()
call head()
%>

<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><%= mytit %> || <a href="?action=px&fid=<%= fid %>">菜单排序</a></td>
</tr>
<tr>
<td>

<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<form action="" name="form1" id="form1" method="post">
<tr>
<td width="10%" bgcolor="#D9ECF7">所属分类：</td>
<td bgcolor="#D9ECF7">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="fidstr" readonly type="text" class="inp" id="fidstr" size="50" value="<%= getlmdh("Jw_menus",fid) %>" onfocus="this.className='focus'" onblur="this.className='inp'"/>
<input name="fid" type="hidden" id="fid" value="<%= fid %>" /></td>
<td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="选择分类" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../selfid.asp?tab=Jw_menus&fid=<%= fid %>','','left=100,top=100,scrollbars=yes,resizable=yes,width=400,height=300')" /></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">菜单名称：</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="22%"><input onfocus="on_input('cmc');this.className='focus'" onblur="out_mc();this.className='inp'" name="mc" type="text" class="inp" id="mc" size="50" maxlength="40" /></td>
<td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="选择分类" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../links/other.asp','','scrollbars=yes,resizable=yes,width=400,height=400')" /></td>
<td width="55%"><div id="cmc"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">链接地址：</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="45%"><input onfocus="this.className='focus'" onblur="this.className='inp'" name="link" type="text" class="inp" id="link" size="50" maxlength="50"/></td>
<td width="55%"><div id="clink"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><div class="fontr" id="msg">注：一级菜单的地址请填写&quot;#&quot;</div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><input name="go" type="button" class="button_1" onclick="goo();" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<SCRIPT language="javascript" event="onkeydown" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
goo();
</SCRIPT>
<script language="javascript">
function on_input(objname){
var strtxt;
var obj=GE(objname);
obj.className="d_on";
switch (objname){
case "cmc":strtxt=lion+"请输入菜单名称[4-40]";
break;
case "clink":strtxt=lion+"请输入菜单链接[4-50]";
break;
}
obj.innerHTML=strtxt;
}

function out_mc()
{
var obj=GE("cmc");
var chk=true;
if (ls(GE("mc").value)<4 || ls(GE("mc").value)>40){chk=false;}
if (chk){
obj.className="d_ok";
obj.innerHTML=ok+" 菜单名称已输入";
}
else
{
obj.className="d_err";
obj.innerHTML=err+" 请输入菜单名称[4-40]";
}
return chk;
}

function out_link()
{
var obj=GE("clink");
var chk=true;
if (ls(GE("link").value)<4 || ls(GE("link").value)>50){chk=false;}
if (chk){
obj.className="d_ok";
obj.innerHTML=ok+" 菜单链接已输入";
}
else
{
obj.className="d_err";
obj.innerHTML=err+" 请输入菜单链接[4-50]";
}
return chk;
}

function goo()
{
var chk=true;
if (!out_mc()){chk=false;}
//if (!out_link()){chk=false;}
if (chk==true){
var fid=GE("fid").value;
var mc=escape(GE("mc").value);
var links=escape(GE("link").value);

GE("go").disabled="disabled";
GE("reset").disabled="disabled";
var Ajax = new oAjax("menu.asp?action=aadd&fid=<%= fid %>",backs);
var arrKey = new Array("fid","mc","link");
var arrValue =new Array(fid,mc,links);
Ajax.Post(arrKey,arrValue);
GE("msg").innerHTML=loading;
function backs(str)
{
if(str=="0")
{
GE("msg").innerHTML=ok+"&nbsp;&nbsp;操作成功";
window.location.href="menu.asp?fid=<%= fid %>"
}
else
{
GE("msg").className="d_err";
GE("msg").innerHTML=err+"&nbsp;&nbsp;"+unescape(str);
GE("go").disabled="";
GE("reset").disabled="";
}
}
}
}
</script>
<%
call connend()
call foot()
end sub

'执行添加
sub aadd()
call zwtj()
dim mc,link,qz,fid1,fpath,fpath1,xid
mc=getForm("mc",1,1)
link=getform("link",1,1)
fid1=getForm("fid",2,0)
qz=scpx("Jw_menus",fid1)
if fid1=0 then
fpath1="0,"
else
fpath1=getmc("Jw_menus","id",fid1,"fpath")
end if

call record(rs,"select top 1 * from Jw_menus where 1=1",3)
rs.addnew()
rs("mc")=mc
rs("fid")=fid1
rs("fpath")=fpath1
rs("ctim")=now()
rs("link")=link
rs("qz")=qz
rs("creater")=creater
rs("zd")=0
rs("show")=0
rs("lastm")=now()
rs.update
xid=rs("id")
call recordend(rs)
fpath=fpath1&xid&","
conn.execute("update Jw_menus set fpath='"&fpath&"' where id="&xid)
if err.number<>0 then 
call errs("有错误发生")
end if
call errs(0)
end sub

'修改
sub ups()

set rs=conn.execute("select * from Jw_menus where id="&id)
call head()
%>

<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"> <%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加菜单 </a>|| <a href="?action=px&fid=<%= fid %>">菜单排序</a></td>
</tr>
<tr>
<td>

<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<form action="" name="form1" id="form1" method="post">
<tr>
<td width="10%" bgcolor="#D9ECF7">所属分类：</td>
<td bgcolor="#D9ECF7">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="fidstr" readonly type="text" class="inp" id="fidstr" size="50" value="<%= getlmdh("Jw_menus",rs("fid")) %>" onfocus="this.className='focus'" onblur="this.className='inp'"/>
<input name="fid" type="hidden" id="fid" value="<%= rs("fid") %>" /></td>
<td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="选择分类" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../selfid.asp?tab=Jw_menus&fid=<%= fid %>','','left=100,top=100,scrollbars=yes,resizable=yes,width=400,height=300')" /></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">菜单名称：</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="303"><input name="mc" onfocus="on_input('cmc');this.className='focus'" onblur="out_mc();this.className='inp'" type="text" class="inp" id="mc" value="<%= rs("mc") %>" size="50" maxlength="40"/></td>
<td width="27" align="center"><img src="../../images/admin/20061205172113303.gif" alt="选择分类" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../links/other.asp','','scrollbars=yes,resizable=yes,width=400,height=400')" /></td>
<td width="359"><div id="cmc"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">链接地址：</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="45%"><input onfocus="this.className='focus'" onblur="this.className='inp'" name="link" type="text" class="inp" id="link" value="<%= trim(rs("link")) %>" size="50" maxlength="50"></td>
<td width="55%"><div id="clink"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">最后更新：</td>
<td bgcolor="#D9ECF7"><input disabled="disabled" name="lastm" type="text" class="inp" id="lastm" size="50" value="<%= rs("lastm") %>" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><div id="msg"><span class="fontr">注：一级菜单的地址请填写&quot;#&quot;</span></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><input name="go" type="button" onclick="goo()" class="button_1" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'" /></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<SCRIPT language="javascript" event="onkeydown" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
goo();
</SCRIPT>
<script language="javascript">
function on_input(objname){
var strtxt;
var obj=GE(objname);
obj.className="d_on";
switch (objname){
case "cmc":strtxt=lion+"请输入菜单名称[4-40]";
break;
case "clink":strtxt=lion+"请输入菜单链接[4-50]";
break;
}
obj.innerHTML=strtxt;
}

function out_mc()
{
var obj=GE("cmc");
var chk=true;
if (ls(GE("mc").value)<4 || ls(GE("mc").value)>40){chk=false;}
if (chk){
obj.className="d_ok";
obj.innerHTML=ok+" 菜单名称已输入";
}
else
{
obj.className="d_err";
obj.innerHTML=err+" 请输入菜单名称[4-40]";
}
return chk;
}

function out_link()
{
var obj=GE("clink");
var chk=true;
if (ls(GE("link").value)<4 || ls(GE("link").value)>50){chk=false;}
if (chk){
obj.className="d_ok";
obj.innerHTML=ok+" 菜单链接已输入";
}
else
{
obj.className="d_err";
obj.innerHTML=err+" 请输入菜单链接[4-50]";
}
return chk;
}

function goo()
{
var chk=true;
if (!out_mc()){chk=false;}
//if (!out_link()){chk=false;}
if (chk==true){
var fid=GE("fid").value;
var mc=escape(GE("mc").value);
var links=escape(GE("link").value);

GE("go").disabled="disabled";
GE("reset").disabled="disabled";
var Ajax = new oAjax("menu.asp?action=doup&fid=<%= fid %>&id=<%= id %>",backs);
var arrKey = new Array("fid","mc","link");
var arrValue =new Array(fid,mc,links);
Ajax.Post(arrKey,arrValue);
GE("msg").innerHTML=loading;
function backs(str)
{
if(str=="0")
{
GE("msg").innerHTML=ok+"&nbsp;&nbsp;操作成功";
window.location.href="menu.asp?fid=<%= fid %>"
}
else
{
GE("msg").className="d_err";
GE("msg").innerHTML=err+"&nbsp;&nbsp;"+unescape(str);
GE("go").disabled="";
GE("reset").disabled="";
}
}
}
}
</script>
<%
call connend()
call foot()
end sub

'执行修改
sub doup()
dim mc,link,fid1,fpath,fpath1
mc=getForm("mc",1,1)
link=getform("link",1,1)
fid1=getForm("fid",2,0)
if fid1=0 then 
fpath1="0,"&id&","
else
fpath1=getmc("Jw_menus","id",fid1,"fpath")&id&","
end if

dim fidy,fpathy
fidy=getmc("Jw_menus","id",id,"fid")
fpathy=getmc("Jw_menus","id",id,"fpath")

'判断所属分类是否改变
if int(fidy)<>int(fid1) then 
if fidy=0 then
call errs("一级菜单不能移动")
end if
if instr(fpathy,fpath1)>0 then
call errs("对不起！不能将菜单转移到该菜单的子菜单下！")
end if
end if

conn.begintrans'事务开始
'更新记录
conn.execute("update Jw_menus set fid="&fid1&",fpath='"&fpath1&"',mc='"&mc&"',link='"&link&"' where id="&id)
'更新子目录
if fidy<>fid1 then
call record(rs,"select * from Jw_menus where instr(fpath,'"&fpathy&"')>0",3)
if not rs.eof then 
rs("fpath")=replace(rs("fpath"),fpathy,fpath1)
rs.update
end if
call recordend(rs)
end if
if err.number<>0 then 
call errs("有错误发生")
end if
call zhgx("Jw_menus",id)
if conn.errors.count>0 then ''有错误发生 
conn.rollbacktrans''回滚 
end if
conn.CommitTrans ''提交事务
call errs(0)
end sub

'删除
sub del()
'删除单条记录
if id<>"" then
dim fpath
fpath=getmc("Jw_menus","id",id,"fpath") 
conn.execute("delete * from Jw_menus where instr(fpath,'"&fpath&"')>0")
conn.execute("delete * from Jw_menus where id="&id)
end if 
'批量删除
dim idstr,iid,i
idstr=replace(Trim(Request.Form("idstr"))," ","")
iid=split(idstr,",")

for i=0 to ubound(iid)
fpath=getmc("Jw_menus","id",iid(i),"fpath") 
conn.execute("delete * from Jw_menus where instr(fpath,'"&fpath&"')>0")
conn.execute("delete * from Jw_menus where id="&iid(i))
next
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'菜单排序
sub cdpx()
sql="select * from Jw_menus where fid="&fid&" order by zd desc,qz asc"
set rs=conn.execute(sql)
call head()
%>

<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加菜单 </a></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="4%" align="center" bgcolor="#D9ECF7"><strong>ID</strong></td>
<td width="25%" bgcolor="#D9ECF7"><strong>菜单名称</strong></td>
<td width="34%" bgcolor="#D9ECF7"><strong>链接地址</strong></td>
<td width="20%" align="center" bgcolor="#D9ECF7"><strong>权重</strong></td>
</tr>
<% 
dim i
i=0
dim bgc

do while not rs.eof
if i mod 2=0 then 
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<form action="?action=qqzz&fid=<%= fid %>&id=<%= rs("id") %>" name="form" id="form" method="post">
<tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><%= rs("id") %></td>
<td><%= rs("mc") %> <% call tssx(rs("zd"),rs("show")) %></td>
<td><%= rs("link") %></td>
<td align="center"><input name="qz" type="text" class="inp" id="qz" size="8" value="<%= rs("qz") %>">
<input name="Submit" type="submit" class="btn2" value="更新"></td>
</tr>
</form>
<% 
i=i+1
rs.movenext 
loop
%>
<tr>
<td colspan="4" bgcolor="#EAF4FB">&nbsp;</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
call recordend(rs)
call connend()
call foot()
end sub

sub qqzz()
dim qz
qz=Trim(Request.Form("qz"))
if getnum("Jw_menus where qz="&qz)>0 then 
conn.execute("update Jw_menus set qz=qz+1 where qz>="&qz)
end if
conn.execute("update Jw_menus set qz="&qz&" where id="&id)
call zhgx("Jw_menus",id)
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'置顶//////////////////////////////////////////////////////////////////////////////////////
sub zd()
dim val
val=1
if id<>"" then
call uptab("Jw_menus","zd",val,"id",id)
call zhgx("Jw_menus",id)
end if
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'取消置顶//////////////////////////////////////////////////////////////////////////////////////
sub qxzd()
dim val
val=0
if id<>"" then
call uptab("Jw_menus","zd",val,"id",id)
call zhgx("Jw_menus",id)
end if 
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'停用//////////////////////////////////////////////////////////////////////////////////////
sub jy()
dim val
val=1
if id<>"" then
call uptab("Jw_menus","show",val,"id",id)
call zhgx("Jw_menus",id)
end if 
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'起用//////////////////////////////////////////////////////////////////////////////////////
sub qy()
dim val
val=0
if id<>"" then
call uptab("Jw_menus","show",val,"id",id)
call zhgx("Jw_menus",id)
end if 
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub
%>