📄 setmenu2.asp

📁 1 除掉了时间限制 2 除掉了人数限制改为 500人原为5人 3 发现一点小缺陷增加人员的时候没有判断登陆名是否重复！自己写吧~~~：） 4 又是一点缺陷

💻 ASP

字号:

<!--#include file="../config.ini" -->
<%
if request("menucount")<>"" then
	dim conn
	dim rs
	set conn=server.CreateObject("adodb.connection")
	set rs=server.CreateObject("adodb.recordset")
	conn.Open connstring
	rs.Open "delete from mymenu where userid='"&session("loginid")&"'",conn,2,3,1
	rs.Open "select * from mymenu",conn,2,3,1
		for k=1 to cint(request("menucount"))-1
			if request("menu"&k)<>"" then
				rs.AddNew
				rs("userid")=session("loginid")
				rs("menuid")=Request.Form("menu"&k)
				rs("seq")=Request.Form("seq"&k)
				rs.Update
			end if
		next
	'rs.Close 
	set rs=nothing
	conn.Close 
	set conn=nothing
%>
<script language=javascript>
	window.opener.location.reload();
	window.close();
</script>
<%
end if
%>
<script language=javascript>
function bsubmit(){
	for(x=1;x<form1.menucount.value;x++){
		var menu='menu'+x;
		var seq="seq"+x;
		if(form1.item(menu).checked){
	if (isNaN(form1.item(seq).value)|| form1.item(seq).value==''){
		alert('请数据排序序号!');
		form1.item(seq).focus();
		return;
		}
		}
	}
   form1.submit();
}
</script>
<HTML><HEAD><TITLE>菜单设置</TITLE>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
 <form name=form1  method="post"  id=form1>
  <table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td height="25"><strong><font class=title>快捷菜单设置</font></strong>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      <a onclick="javascript:bsubmit();"><img src="../images/button_save.gif"></a>&nbsp;&nbsp;
	  <a onClick="window.close();"><img src="../images/button_cancel.gif"></a>
       </td>
    </tr>
    <tr > 
      <td height="16" colspan="3" background="../images/title.gif">&nbsp;</td>
    </tr>
    <tr>
      <td height=4></td>
    </tr>
  </table>
<table  border="0" cellpadding="0" cellspacing="1" bgcolor="#999999" width=100%>
<tr>
	<td align=center width=30%><font color=white>菜单</font></td>
	<td align=center width=30%><font color=white>显示</font></td>
	<td align=center><font color=white>排序</font></td>
</tr>
<%
dim connq
dim rsq
set connq=server.CreateObject("adodb.connection")
set rsq=server.CreateObject("adodb.recordset")
connq.Open connstring
rsq.Open "select * from v_MyMenu where userid='"&session("loginid")&"'",connq,1,1
dim i
i=1
do while not rsq.EOF
%>
<tr bgcolor=white>
	<td align=center><%=rsq("menuname")%><input type=hidden name="<%="menuname"&i%>" value=<%=rsq("menuname")%>><input type=hidden name="<%="url"&i%>" value=<%=rsq("url")%>></td>
	<td align=center><input type=checkbox name="<%="menu"&i%>" value=<%=rsq("menuid")%> checked></td>
	<td align=center><input type=text size=6 name="<%="seq"&i%>" value=<%=rsq("seq")%>></td>
</tr>
<%
rsq.MoveNext
i=i+1
loop

rsq.Close
rsq.Open "select * from StandardMenu where menuid not in(select menuid from mymenu where userid='"&session("loginid")&"')",connq,1,1
do while not rsq.EOF
%>
<tr bgcolor=white>
	<td align=center><%=rsq("menuname")%><input type=hidden name="<%="menuname"&i%>" value=<%=rsq("menuname")%>><input type=hidden name="<%="url"&i%>" value=<%=rsq("url")%>></td>
	<td align=center><input type=checkbox name="<%="menu"&i%>" value=<%=rsq("menuid")%> ></td>
	<td align=center><input type=text size=6 name="<%="seq"&i%>"></td>
</tr>
<%
rsq.MoveNext
i=i+1
loop
rsq.Close 
set rsq=nothing
connq.Close 
set connq=nothing
%>
</table>
<input type=hidden name=menucount value="<%=i%>">
</form>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -