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

    <!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->

<%
call zwtj()
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_menu","id",fid,"fpath")
path=split(fpath,",")
for i=1 to (ubound(path)-1)
ymdh=ymdh&"<a href=""?fid="&path(i)&""">"&getmc("jw_menu","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_menu 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="12%" bgcolor="#C5E0F3"><strong>菜单名称</strong></td>
<td width="26%" bgcolor="#C5E0F3"><strong>链接地址</strong></td>
<td width="13%" align="center" bgcolor="#C5E0F3"><strong>创建人</strong></td>
<td width="12%" align="center" bgcolor="#C5E0F3"><strong>所属分类</strong></td>
<td width="10%" align="center" bgcolor="#C5E0F3"><strong>权重</strong></td>
<td width="9%" 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_menu","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_menu")&"级")
end if
%></td>
<td align="center"><table border="0" cellpadding="2" cellspacing="0">
<tr>
<td valign="bottom"><a href="?fid=<%= rs("id") %>"><img src="../../images/admin/20060713191005984.gif" alt="子栏目管理" width="16" height="16" border="0" align="absbottom"/></a></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 chkqx(5,1)
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_menu",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_menu&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="44%"><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="4%"><img src="../../images/admin/20061205172113303.gif" alt="选择分类" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../links/uclass.asp','','scrollbars=yes,resizable=yes,width=400,height=400')" /></td>
<td width="52%"><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="44%"><input onfocus="on_input('clink');this.className='focus'" onblur="out_link();this.className='inp'" name="link" type="text" class="inp" id="link" size="50" maxlength="50"/></td>
<td width="56%"><div id="clink"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">描&nbsp;&nbsp;&nbsp;&nbsp;述:</td>
<td bgcolor="#D9ECF7"><textarea name="content" cols="60" rows="6" class="inp" id="content" onfocus="this.className='focus'" onblur="this.className='inp'"></textarea></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><div id="msg"></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-60]";
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)>60){chk=false;}
if (chk){
obj.className="d_ok";
obj.innerHTML=ok+" 菜单名称已输入";
}
else
{
obj.className="d_err";
obj.innerHTML=err+" 请输入菜单名称[4-60]";
}
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);
var content=escape(GE("content").value);

GE("go").disabled="disabled";
GE("reset").disabled="disabled";
var Ajax = new oAjax("?action=aadd&fid=<%= fid %>",backs);
var arrKey = new Array("fid","mc","link","content");
var arrValue =new Array(fid,mc,links,content);
Ajax.Post(arrKey,arrValue);
GE("msg").innerHTML=loading;
function backs(str)
{
if(str=="0")
{
GE("msg").innerHTML=ok+"&nbsp;&nbsp;操作成功";
window.location.href="?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 chkqx(5,1)
call zwtj()
dim mc,link,qz,fid1,fpath,fpath1,content,xid
mc=getForm("mc",1,1)
link=getform("link",1,1)
fid1=getForm("fid",2,0)
content=outhtml(getForm("content",1,1))
qz=scpx("jw_menu",fid1)
if fid1=0 then
fpath1="0,"
else
fpath1=getmc("jw_menu","id",fid1,"fpath")
end if

call record(rs,"select top 1 * from jw_menu 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("content")=content
rs("zd")=0
rs("show")=0
rs("lastm")=now()
rs.update
xid=rs("id")
call recordend(rs)
fpath=fpath1&xid&","
conn.execute("update jw_menu set fpath='"&fpath&"' where id="&xid)
if err.number<>0 then 
call errs("有错误发生")
end if
call errs(0)
end sub

'修改
sub ups()
call chkqx(5,2)
set rs=conn.execute("select * from jw_menu 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_menu",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_menu&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="44%"><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="4%"><img src="../../images/admin/20061205172113303.gif" alt="选择分类" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../links/uclass.asp','','scrollbars=yes,resizable=yes,width=400,height=400')" /></td>
<td width="52%"><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="44%"><input onfocus="on_input('clink');this.className='focus'" onblur="out_link();this.className='inp'" name="link" type="text" class="inp" id="link" value="<%= trim(rs("link")) %>" size="50" maxlength="50"></td>
<td width="56%"><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 bgcolor="#D9ECF7">描&nbsp;&nbsp;&nbsp;&nbsp;述:</td>
<td bgcolor="#D9ECF7"><textarea name="content" cols="60" rows="6" class="inp" id="content" onfocus="this.className='focus'" onblur="this.className='inp'"><%= rs("content") %></textarea></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><div id="msg"></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-60]";
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)>60){chk=false;}
if (chk){
obj.className="d_ok";
obj.innerHTML=ok+" 菜单名称已输入";
}
else
{
obj.className="d_err";
obj.innerHTML=err+" 请输入菜单名称[4-60]";
}
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);
var content=escape(GE("content").value);

GE("go").disabled="disabled";
GE("reset").disabled="disabled";
var Ajax = new oAjax("?action=doup&fid=<%= fid %>&id=<%= id %>",backs);
var arrKey = new Array("fid","mc","link","content");
var arrValue =new Array(fid,mc,links,content);
Ajax.Post(arrKey,arrValue);
GE("msg").innerHTML=loading;
function backs(str)
{
if(str=="0")
{
GE("msg").innerHTML=ok+"&nbsp;&nbsp;操作成功";
window.location.href="?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()
call chkqx(5,2)
dim mc,link,fid1,fpath,fpath1,content
mc=getForm("mc",1,1)
link=getform("link",1,1)
fid1=getForm("fid",2,0)
content=outhtml(getForm("content",1,1))
if fid1=0 then 
fpath1="0,"&id&","
else
fpath1=getmc("jw_menu","id",fid1,"fpath")&id&","
end if

dim fidy,fpathy
fidy=getmc("jw_menu","id",id,"fid")
fpathy=getmc("jw_menu","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_menu set fid="&fid1&",fpath='"&fpath1&"',mc='"&mc&"',link='"&link&"',content='"&content&"' where id="&id)
'更新子目录
if fidy<>fid1 then
call record(rs,"select * from jw_menu 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_menu",id)
if conn.errors.count>0 then ''有错误发生 
conn.rollbacktrans''回滚 
end if
conn.CommitTrans ''提交事务
call errs(0)
end sub

'删除
sub del()
call chkqx(5,3)
'删除单条记录
if id<>"" then
dim fpath
fpath=getmc("jw_menu","id",id,"fpath") 
conn.execute("delete * from jw_menu where instr(fpath,'"&fpath&"')>0")
conn.execute("delete * from jw_menu 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_menu","id",iid(i),"fpath") 
conn.execute("delete * from jw_menu where instr(fpath,'"&fpath&"')>0")
conn.execute("delete * from jw_menu where id="&iid(i))
next
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'菜单排序
sub cdpx()
call chkqx(5,2)
sql="select * from jw_menu 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%" align="center" bgcolor="#D9ECF7"><strong>菜单名称</strong></td>
<td width="34%" align="center" 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()
call chkqx(5,2)
dim qz
qz=Trim(Request.Form("qz"))
if fid="" then 
fid=getmc("jw_menu","id",id,"fid")
end if
call dopx("jw_menu",fid,id,Trim(Request.Form("qz")))
call zhgx("jw_menu",id)
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

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

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

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

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