📄 editprofilelist.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "profile","edit"
set objcheck=nothing
%>
<SCRIPT language=JavaScript>
function NewFile(openurl)
{
var theWindow;
theWindow = window.open(openurl,"new","toolbar=no,resizable=yes,scrollbars=yes,location=no,status=no,menubar=no,width=650,height=550,top=50,left=160");
theWindow.opener = this;
}
function jumpMenu(targ,selObj,restore){
var theWindow=selObj.options[selObj.selectedIndex].value;
theWindow = window.open(selObj.options[selObj.selectedIndex].value,"new","toolbar=no,resizable=yes,scrollbars=yes,location=no,status=no,menubar=no,width=650,height=550,top=50,left=160");
theWindow.operner=this;
if (restore) selObj.selectedIndex=0;
}
</script>
<script language="JavaScript">
function showTr3(tag1){
tag_plus = document.getElementById(tag1+"_plus");
tag_minus = document.getElementById(tag1+"_minus");
arrHid = document.form1.hid;
if(tag_plus!=null)
{
if(tag_plus.style.display == "none")
{//alert(arrHid.length);
for(tempI=2;tempI<arrHid.length;tempI++)
{
if(arrHid[tempI].ATCUSF == tag1)
{
eval("tr_"+arrHid[tempI].trid+".style.display='none'");
}
}
tag_plus.style.display="block";
tag_minus.style.display="none";
}
else
{//alert(arrHid.length);
for(tempI=2;tempI<arrHid.length;tempI++)
{
if(arrHid[tempI].ATCUSF == tag1)
{
eval("tr_"+arrHid[tempI].trid+".style.display=''");
}
}
tag_plus.style.display="none";
tag_minus.style.display="block";
}
}
}
</SCRIPT>
<script language="JavaScript">
function mOvr(src,clrOver) { if (!src.contains(event.fromElement)) { src.style.cursor = 'hand'; src.bgColor = clrOver;}}
function mOut(src,clrIn) { if (!src.contains(event.toElement)) { src.style.cursor = 'default'; src.bgColor = clrIn;}}
</script>
<%
dim connq
set connq=server.CreateObject("adodb.connection")
connq.Open connstring
set rsq=server.CreateObject("adodb.recordset")
rsq.Open "select subname from ProFileList where ProFileListid='"&request("id")&"' order by seq",connq,1,1
if not rsq.eof then
strsubname=rsq("subname")
end if
connq.Close
set connq=nothing
dim conn
set conn=server.CreateObject("adodb.connection")
conn.Open connstring
%>
<HTML>
<HEAD><TITLE><%=strsubname%></TITLE>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<style type="text/css">
.unnamed11 {
FONT-SIZE: 12px;
COLOR: #245077;
background-color: #99CCFF;
}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="10" centermargin="10" topmargin="10">
<table align="center" border='2' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#C0C0C0' width='100%' bordercolorlight='#CCCCCC' bordercolordark='#808080'>
<tr><td width='100%' align='center'>
<table align="center" border=0 cellpadding=0 cellspacing=0 style="border-collapse: collapse" bgcolor="#EFEFEF" width="100%">
<tr><td height=30 align="center" class="title">文件创建工具</td></tr></table></td></tr></table>
<form name="form1" method="post" action=""><input type="hidden" name="hid" trid="x_y_y" ATCUSF="1"><input type="hidden" name="hid" trid="x_y_z" ATCUSF="2">
<table align="center" border='2' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#decfa8' width='100%' bordercolorlight='#CCCCCC' bordercolordark='#808080'>
<tr><td width="100%" align='center'>
<table border=0 cellpadding=0 cellspacing=0 style="border-collapse: collapse" bgcolor="#FFFFFF" width="100%">
<%
set rsall=server.CreateObject("adodb.recordset")
rsall.Open "select * from ProFileList where ProFileListId='"&request("id")&"' order by seq",conn,1,1
i=1:do while not rsall.EOF
set str0profilelistid=rsall("profilelistid")
set str0subname=rsall("subname")
%>
<tr bgcolor='#EFEFEF' onMouseOver=mOvr(this,"#99CCFF") onMouseOut=mOut(this,"#EFEFEF")>
<td align="center" width="5%"><img src="ProFileListImg/bookclose.gif" onClick="showTr3('<%=str0profilelistid%>');" id="<%=str0profilelistid%>_plus" style="display:none"><img src="ProFileListImg/bookopen.gif" onClick="showTr3('<%=str0profilelistid%>');" id="<%=str0profilelistid%>_minus" style="display:"></td>
<td align=left colspan="4"><a href="javascript:;" onClick="showTr3('<%=str0profilelistid%>');"><%=str0subname%></a></td>
<td align="right" width="10%" valign="top">
<select name="op_0" class="unnamed11" onchange="jumpMenu('parent',this,1)">
<option value="">====操作====</option>
<option value="NewProFileList.asp?ProFileListid=<%=str0profilelistid%>&andid=0&title=修改菜单名">修改菜单名</option>
<option value="DelProFileList.asp?ProFileListid=<%=str0profilelistid%>">删除菜单</option>
<option value="setProFile.asp?ProFileListid=<%=str0profilelistid%>">子菜单排序</option>
<option value="NewProFileList.asp?andid=<%=str0profilelistid%>&title=创建2级菜单">创建2级菜单</option>
<option value="newfile.asp?andid=<%=str0profilelistid%>&title=创建文件">创建文件</option>
</select></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from ProFileList where andId='"&Cint(str0profilelistid)&"' order by seq",conn,1,1
j=1:do while not rs.EOF
set str1profilelistid=rs("profilelistid")
set str1subname=rs("subname")
if rs("FileText")<>"" then
%>
<tr id="tr_<%=i%>_<%=j%>" style="display:" ><td colspan=6><table border=0 cellpadding=0 cellspacing=0 width="100%">
<tr bgcolor="#FFE6FF" onMouseOver=mOvr(this,"#99CCFF") onMouseOut=mOut(this,"#FFE6FF")>
<td align="center" width="5%"> </td>
<td align="center" width="5%"><img src="ProFileListImg/book.gif"></td>
<td align=left colspan="3" onClick="showTr3('<%=str1profilelistid%>');"><a href="javascript:NewFile('newfile.asp?ProFileListid=<%=str1profilelistid%>&andid=<%=str0profilelistid%>&title=修改文件');"><%=str1subname%></a></td>
<td align="center" width="10%" valign="top"> <select name="op_1" class="unnamed11" onchange="jumpMenu('parent',this,1)">
<option value="">====操作====</option>
<option value="newfile.asp?ProFileListid=<%=str1profilelistid%>&andid=<%=str0profilelistid%>&title=修改文件">修改文件</option>
<option value="uploadimages.asp?imagetype=profile&profilelistid=<%=str1profilelistid%>">上传图片</option>
<option value="DelProFileList.asp?ProFileListid=<%=str1profilelistid%>">删除文件</option>
</select></td>
</tr>
<%
else
%>
<tr id="tr_<%=i%>_<%=j%>" style="display:" ><td colspan=6><table border=0 cellpadding=0 cellspacing=0 width="100%">
<tr bgcolor="#FFE6FF" onMouseOver=mOvr(this,"#99CCFF") onMouseOut=mOut(this,"#FFE6FF")>
<td align="center" width="5%"> </td>
<td align="center" width="5%"><img src="ProFileListImg/bookplus.gif" onClick="showTr3('<%=str1profilelistid%>');" id="<%=str1profilelistid%>_plus" style="display:none"><img src="ProFileListImg/bookminus.gif" onClick="showTr3('<%=str1profilelistid%>');" id="<%=str1profilelistid%>_minus" style="display:"></td>
<td align=left colspan="3"><a href="javascript:;" onClick="showTr3('<%=str1profilelistid%>');"><%=str1subname%></a></td>
<td align="center" width="10%" valign="top"> <select name="op_1" class="unnamed11" onchange="jumpMenu('parent',this,1)">
<option value="">====操作====</option>
<option value="NewProFileList.asp?ProFileListid=<%=str1profilelistid%>&andid=<%=str0profilelistid%>&title=修改菜单名">修改菜单名</option>
<option value="DelProFileList.asp?ProFileListid=<%=str1profilelistid%>">删除菜单</option>
<option value="setProFile.asp?ProFileListid=<%=str1profilelistid%>">子菜单排序</option>
<option value="NewProFileList.asp?andid=<%=str1profilelistid%>&title=创建3级菜单">创建3级菜单</option>
<option value="newfile.asp?andid=<%=str1profilelistid%>&title=创建文件">创建文件</option>
</select></td>
</tr>
<%
end if
set rsq=server.CreateObject("adodb.recordset")
rsq.Open "select * from ProFileList where andId='"&Cint(str1profilelistid)&"' order by seq",conn,1,1
k=1:do while not rsq.EOF
str2thprofilelistid=rsq("profilelistid")
str2thsubname=rsq("subname")
if rsq("FileText")<>"" then
%>
<tr id="tr_<%=i%>_<%=j%>_<%=k%>" style="display:" ><td colspan=6><table border=0 cellpadding=0 cellspacing=0 width="100%">
<tr bgcolor="#E6FDFF" onMouseOver=mOvr(this,"#99CCFF") onMouseOut=mOut(this,"#E6FDFF")>
<td align="center" width="5%"> </td>
<td align="center" width="5%"> </td>
<td align="center" width="5%"><img src="ProFileListImg/book.gif"></td>
<td align=left colspan="2" onClick="showTr3('<%=str2thprofilelistid%>');"><a href="javascript:NewFile('newfile.asp?ProFileListid=<%=str2thprofilelistid%>&andid=<%=str1profilelistid%>&title=修改文件');"><%=str2thsubname%></a></td>
<td align="center" width="10%" valign="top"> <select name="op_2" class="unnamed11" onchange="jumpMenu('parent',this,1)">
<option value="">====操作====</option>
<option value="newfile.asp?ProFileListid=<%=str2thprofilelistid%>&andid=<%=str1profilelistid%>&title=修改文件">修改文件</option>
<option value="uploadimages.asp?imagetype=profile&profilelistid=<%=str2thprofilelistid%>">上传图片</option>
<option value="DelProFileList.asp?ProFileListid=<%=str2thprofilelistid%>">删除文件</option>
</select></td>
</tr>
<%
else
%>
<tr id="tr_<%=i%>_<%=j%>_<%=k%>" style="display:" ><td colspan=6><table border=0 cellpadding=0 cellspacing=0 width="100%">
<tr bgcolor="#E6FDFF" onMouseOver=mOvr(this,"#99CCFF") onMouseOut=mOut(this,"#E6FDFF")>
<td align="center" width="5%"> </td>
<td align="center" width="5%"> </td>
<td align="center" width="5%"><img src="ProFileListImg/bookplus.gif" onClick="showTr3('<%=str2thprofilelistid%>');" id="<%=str2thprofilelistid%>_plus" style="display:none"><img src="ProFileListImg/bookminus.gif" onClick="showTr3('<%=str2thprofilelistid%>');" id="<%=str2thprofilelistid%>_minus" style="display:"></td>
<td align=left colspan="2"><a href="javascript:;" onClick="showTr3('<%=str2thprofilelistid%>');"><%=str2thsubname%></a></td>
<td align="center" width="10%" valign="top"> <select name="op_2" class="unnamed11" onchange="jumpMenu('parent',this,1)">
<option value="">====操作====</option>
<option value="NewProFileList.asp?ProFileListid=<%=str2thprofilelistid%>&andid=<%=str1profilelistid%>&title=修改菜单名">修改菜单名</option>
<option value="DelProFileList.asp?ProFileListid=<%=str2thprofilelistid%>">删除菜单</option>
<option value="setProFile.asp?ProFileListid=<%=str2thprofilelistid%>">子菜单排序</option>
<option value="newfile.asp?andid=<%=str2thprofilelistid%>&title=创建文件">创建文件</option>
</select></td>
</tr>
<%
end if
set rsw=server.CreateObject("adodb.recordset")
rsw.Open "select * from ProFileList where andId='"&Cint(str2thprofilelistid)&"' order by seq",conn,1,1
l=1:do while not rsw.EOF
str3ndprofilelistid=rsw("profilelistid")
str3ndsubname=rsw("subname")
%>
<tr id="tr_<%=i%>_<%=j%>_<%=k%>_<%=l%>" style="display:" bgcolor="#FDFFD7" onMouseOver=mOvr(this,"#99CCFF") onMouseOut=mOut(this,"#FDFFD7")>
<td align="center" width="5%"> </td>
<td align="center" width="5%"> </td>
<td align="center" width="5%"> </td>
<td align="center" width="5%"><img src="ProFileListImg/book.gif"></td>
<td align=left><a href="javascript:NewFile('newfile.asp?ProFileListid=<%=str3ndprofilelistid%>&andid=<%=str2thprofilelistid%>&title=修改文件');"><%=str3ndsubname%></a></td>
<td align="center" width="10%" valign="top"> <select name="op_3" class="unnamed11" onchange="jumpMenu('parent',this,1)">
<option value="">====操作====</option>
<option value="newfile.asp?ProFileListid=<%=str3ndprofilelistid%>&andid=<%=str2thprofilelistid%>&title=修改文件">修改文件</option>
<option value="uploadimages.asp?imagetype=profile&profilelistid=<%=str3ndprofilelistid%>">上传图片</option>
<option value="DelProFileList.asp?ProFileListid=<%=str3ndprofilelistid%>">删除文件</option>
</select> <input type="hidden" name="hid" trid="<%=i%>_<%=j%>_<%=k%>_<%=l%>" ATCUSF="<%=str2thprofilelistid%>"></td>
</tr>
<%
l=l+1
rsw.MoveNext
loop
%>
</table><input type="hidden" name="hid" trid="<%=i%>_<%=j%>_<%=k%>" ATCUSF="<%=str1profilelistid%>"></td></tr>
<%
k=k+1
rsq.MoveNext
loop
%>
</table><input type="hidden" name="hid" trid="<%=i%>_<%=j%>" ATCUSF="<%=str0profilelistid%>"></td></tr>
<%
j=j+1
rs.MoveNext
loop
i=i+1
rsall.MoveNext
loop
%>
</table>
<%
conn.Close
set conn=nothing
%>
</td></tr></table>
</form>
<table align="center" border='2' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#C0C0C0' width='100%' bordercolorlight='#CCCCCC' bordercolordark='#808080'>
<tr><td width='100%' align='center'>
<table align="center" border=0 cellpadding=0 cellspacing=0 style="border-collapse: collapse" bgcolor="#EFEFEF" width="100%">
<tr><td height=30>
注：文件创建工具，最多可创建3级菜单！
</td></tr></table></td></tr></table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -