📄 setqx1.asp
字号:
<!--#include file="filetoulr.asp"-->
<!--#include file="../../fun.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<Link Rel="STYLESHEET" Href="index.CSS" Type="text/css">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 2</title>
<script language="javascript">
function setname(menuname,username,menuid) {
parent.document.DOWNFORM.T1.value=menuname
parent.document.DOWNFORM.T2.value=username
parent.document.DOWNFORM.T3.value=menuid
}
</script>
<base target="_self">
</head>
<body bgcolor="#99CCFF">
<form method="POST" name="UPFORM" action="setqx3.asp">
<p align="center"><input type="submit" value="更新设置" name="B1">
<%
strjb=1
strmenu=""
call disptree(strmenu,strjb)
sub disptree(strmenu,strjb)
Response.Write " <table border='0' width='100%' cellspacing='0' cellpadding='0'>"
menu1=downmenulist(strmenu,strjb)
for metr=0 to 100
if menu1(metr,1)="" then
exit for
else
if menu1(metr+1,1)="" then
img="plus2.gif"
else
img="plus.gif"
end if
Response.Write " <tr><td width='5%' align='right'><img src='"&img&"'></td> <td width='85%' colspan='5'>"&mid(menu1(metr,1),4,50)&""
Response.Write " <FONT COLOR=#808080>管理员</FONT><input onclick="&chr(34)&"setname('"&mid(menu1(metr,1),4,50)&"','"&menu1(metr,3)&"','"&menu1(metr,2)&"')"&chr(34)&" type='text' VALUE='"&MENU1(METR,3)&"' name=T"&MENU1(METR,2)&" size='20' style='background-color: #99CCFF; border-left: 1 solid #99CCFF; border-right: 1 solid #99CCFF; border-top: 1 solid #99CCFF; border-bottom: 1 solid #356286'></td> "
Response.Write " <td width='10%'> </td> </tr>"
menu2=downmenulist(menu1(metr,1),strjb+1)
for metr1=0 to 100
if menu2(metr1,1) ="" then
exit for
else
if menu2(metr1+1,1)="" then
img1="plus2.gif"
else
img1="plus.gif"
end if
Response.Write " <tr><td width='5%' align='right'><img src='plus1.gif'></td> <td width='5%' align='right'><img src='"&img1&"'></td> <td width='70%' colspan='4'>"&mid(menu2(metr1,1),4,50)&" "
Response.Write " <FONT COLOR=#808080>管理员</FONT><input onclick="&chr(34)&"setname('"&mid(menu2(metr1,1),4,50)&"','"&menu2(metr1,3)&"','"&menu2(metr1,2)&"')"&chr(34)&" type='text' VALUE='"&MENU2(METR1,3)&"' name='T"&MENU2(METR1,2)&"' size='20' style='background-color: #99CCFF; border-left: 1 solid #99CCFF; border-right: 1 solid #99CCFF; border-top: 1 solid #99CCFF; border-bottom: 1 solid #356286'></td> "
Response.Write " <td width='10%'></td> </tr>"
'***********第三层开始
menu3=downmenulist(menu2(metr1,1),strjb+2)
for metr2=0 to 100
if menu3(metr2,1)="" then
exit for
else
if menu3(metr2+1,1)="" then
img2="plus2.gif"
else
img2="plus.gif"
end if
if menu2(metr1+1,1)="" then
img1a="plus3.gif"
else
img1a="plus1.gif"
end if
Response.Write " <tr><td width='5%' align='right'><img src='plus1.gif'></td> <td width='5%' align='right'><img src='"&img1a&"'></td> <td width='5%' align='right'><img src='"&img2&"'></td> <td width='70%' colspan='3'>"&mid(menu3(metr2,1),4,50)&" "
Response.Write " <FONT COLOR=#808080>管理员</FONT><input onclick="&chr(34)&"setname('"&mid(menu3(metr2,1),4,50)&"','"&menu3(metr2,3)&"','"&menu3(metr2,2)&"')"&chr(34)&" type='text' VALUE='"&MENU3(METR2,3)&"' name='T"&MENU3(METR2,2)&"' size='20' style='background-color: #99CCFF; border-left: 1 solid #99CCFF; border-right: 1 solid #99CCFF; border-top: 1 solid #99CCFF; border-bottom: 1 solid #356286'></td> "
Response.Write " <td width='10%'></td> </tr>"
'##########第四层开始
menu4=downmenulist(menu3(metr2,1),strjb+3)
for metr3=0 to 100
if menu4(metr3,1)="" then
exit for
else
if menu4(metr3+1,1)="" then
img2="plus2.gif"
else
img2="plus.gif"
end if
if menu2(metr1+1,1)="" then
img1B1="plus3.gif"
else
img1B1="plus1.gif"
end if
if menu3(metr2+1,1)="" then
img1B2="plus3.gif"
else
img1B2="plus1.gif"
end if
Response.Write " <tr><td width='5%' align='right'><img src='plus1.gif'></td> "
Response.Write " <td width='5%' align='right'><img src='"&img1B1&"'></td> <td width='5%' align='right'><img src='"&img1B2&"'></td> <td width='5%' align='right'><img src='"&img2&"'></td> <td width='75%' colspan='3'>"&mid(menu4(metr3,1),4,50)&" "
Response.Write " <FONT COLOR=#808080>管理员</FONT><input onclick="&chr(34)&"setname('"&mid(menu4(metr3,1),4,50)&"','"&menu4(metr3,3)&"','"&menu4(metr3,2)&"')"&chr(34)&" type='text' name='T"&MENU4(METR3,2)&"' VALUE='"&MENU4(METR3,3)&"' size='20' style='background-color: #99CCFF; border-left: 1 solid #99CCFF; border-right: 1 solid #99CCFF; border-top: 1 solid #99CCFF; border-bottom: 1 solid #356286'></td> "
Response.Write " <td width='10%'></td> </tr>"
end if
NEXT
'##########第四层完
end if
next
'***********第三层完
end if
next
end if
next
end sub
Response.Write " </table> "
set conn=nothing
%>
<input type="submit" value="更新设置" name="B1">
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -