📄 menu.asp

📁 较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.menu1 {
	background-image: url(folder1.gif);
	background-repeat: no-repeat;
	height: 17px;
	left: 32px;
	padding-left: 32px;
	cursor: hand;
}
.menu2 {
	background-image: url(folder2.gif);
	background-repeat: no-repeat;
	height: 17px;
	left: 32px;
	padding-left: 32px;
	cursor: hand;
}
.list {
	padding-left: 20px;
	background-image: url(list.gif);
	background-repeat: repeat-y;
}
.file {
	background-image: url(file.gif);
	background-repeat: no-repeat;
	height: 16px;
	cursor: hand;
	padding-left: 32px;
}
-->
</style>
<meta name="keywords" content="asp2004,树,菜单,无限级">
<meta name="author" content="小灰,quxiaohui_0@163.com">

</head>

<body>
<a href="menu.asp?action=add">添加根节点</a><br>
<%
dim conn
dim connstr
on error resume next
set conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
action=request.QueryString("action")
select case action
case "del"
	delmenu request.QueryString("id")
	response.Redirect("menu.asp")
case "save"
	savemenu
	response.Redirect("menu.asp")
case "add"
	addmenu
case "edit"
	editmenu
case else
	menu 0
end select
conn.close
set conn=nothing

'列出所有节点
function menu(id)
set rs=server.CreateObject("adodb.recordset")
sql="select * from menu where id1="&id&" order by url,id"
rs.open sql,conn,3,3
%>
<table border="0" cellspacing="0" cellpadding="0">
<%
while not rs.eof
if len(rs("url"))>0 then
	menutype="file"
	menuname="<a href='"&rs("url")&"' target='_blank'>"&rs("menuname")&"</a>"
	onmouseup=""
else
	menutype="menu1"
	menuname=rs("menuname")
	onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu1';}else{style.display='';this.className='menu2';}"
end if
%>
  <tr>
    <td class="<%= menutype%>" onMouseUp="<%= onmouseup%>"><%= menuname%> <a href="menu.asp?action=add&id=<%= rs("id")%>"><font color="#0000FF">添加</font></a> | <a href="menu.asp?action=edit&id=<%= rs("id")%>&id1=<%= rs("id1")%>"><font color="#FF0066">修改</font></a> | <a href="menu.asp?action=del&id=<%= rs("id")%>"><font color="#9933FF">删除</font></a></td>
  </tr>
  <tr id="id<%= rs("id")%>" style="display:none">
    <td class="list">
<%
menu(rs("id"))
%>
</td>
  </tr>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</table>
<%
end function

'删除节点
function delmenu(id)
set rs=server.CreateObject("adodb.recordset")
sql="select id from menu where id1="&id
rs.open sql,conn,1,1
while not rs.eof
	delmenu rs("id")
	rs.movenext
wend
rs.close
set rs=nothing
conn.execute("delete from menu where id="&id)
end function

'保存节点
function savemenu()
action=request.Form("action")
id=request.Form("id")
id1=request.Form("id1")
menuname=request.Form("menuname")
url=request.Form("url")
response.Write(action)
select case action
case "edit"
	response.Write("update menu set id1="&id1&",menuname='"&menuname&"',url='"&url&"' where id="&id)
	conn.execute("update menu set id1="&id1&",menuname='"&menuname&"',url='"&url&"' where id="&id)
case "add"
	conn.execute("update menu set url='' where id="&id1)
	conn.execute("insert into menu (id1,menuname,url) values ("&id1&",'"&menuname&"','"&url&"')")
end select
end function

'添加节点
function addmenu()
id=request.QueryString("id")
id1=request.QueryString("id1")
if id="" then
	id=0
end if
if id1="" then
	id1=0
end if
action="add"
menuform 0,id,action
end function

'修改节点
function editmenu()
id=request.QueryString("id")
id1=request.QueryString("id1")
action="edit"
menuform id,id1,action
end function


'菜单表单
function menuform(id,id1,action)
if action="edit" then
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from menu where id="&id
	rs.open sql,conn,1,1
	menuname=rs("menuname")
	url=rs("url")
	rs.close
	set rs=nothing
end if
%>
<form name="form1" method="post" action="menu.asp?action=save">
  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td width="7%">名称：</td>
      <td width="93%"><input name="menuname" type="text" id="menuname" value="<%= menuname%>" size="80"></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>ID:
        <input name="id" type="text" id="id2" value="<%= id%>" size="4">
ID1:
<input name="id1" type="text" id="id12" value="<%= id1%>" size="4">
<input name="action" type="hidden" id="action2" value="<%= action%>"></td>
    </tr>
    <tr>
      <td>URL：</td>
      <td><input name="url" type="text" id="url" value="<%= url%>" size="80">
      如果作为分类这里不能填写</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit" value="提交">
      <input type="reset" name="Submit2" value="重置"></td>
    </tr>
  </table>
</form>
<%
end function
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -