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> > " 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">描 述:</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+" 操作成功"; window.location.href="?fid=<%= fid %>" } else { GE("msg").className="d_err"; GE("msg").innerHTML=err+" "+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">描 述:</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+" 操作成功"; window.location.href="?fid=<%= fid %>" } else { GE("msg").className="d_err"; GE("msg").innerHTML=err+" "+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"> </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 %>