📄 selectadminlist_left.asp
字号:
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%Public HOME_PATH:HOME_PATH = "../"%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<%
Public title:title = "管理类别列表"
if isLogin = false then
Response.Write viewinfo("LoginC","","")
Response.end
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
<link href="<%=HOME_PATH%>css/style01.css" rel="stylesheet" type="text/css">
<style type=text/css>
.hidden {
DISPLAY: none; FONT-SIZE: 12px; FONT-FAMILY: "宋体"
}
body , div , span , td{font-size:12px;}
.clicked { background-color:#08246B;color:#ffffff;}
.clicked_ {background-color:#ffffff;color:#000000;}
</style>
<script language=javascript>
folder1 = new(Image);
folder2 = new(Image);
folder1 = "<%=HOME_PATH%>images/open.gif";
folder2 = "<%=HOME_PATH%>images/close.gif";
function showhide(m)
{
img = eval("document.img" + m);
tr = eval("tr" + m);
tb = eval("tb" + m);
if (tr.style.display == "block"){
tr.style.display = "none"
tb.style.display = "none"
img.src=folder2;
} else {
img.src=folder1;
tr.style.display = "block"
tb.style.display = "block"
}
}
function clicked_(s) {
var td_len = td__.length;
for(i_ = 0 ; i_<td_len;i_++) {
if(s!=i_) {
td__[i_].className = '';
}else{
td__[i_].className = 'clicked';
}
}
}
var tsd = 'true';
function treeALL() {
if(tsd=='false') {
tsd = 'true' ;
tsdv.innerHTML = "<span style = 'color:blue;'>展开全部</span>"
document.imgALL.src = folder2 ;
if(show.length==undefined) {
tr = eval("tr"+1) ;
tb = eval("tb"+1);
tr.style.display = "none"
tb.style.display = "none"
}else{
for(i =1;i<=show.length;i++) {
img = eval("document.img" + [i]);
img.src=folder2;
tr = eval("tr" + [i]);
tb = eval("tb" + [i]);
tr.style.display = "none"
tb.style.display = "none"
}
}
}else{
tsd = 'false' ;
tsdv.innerHTML = "<span style = 'color:red;'>收回全部</span>"
document.imgALL.src = folder1 ;
if(show.length==undefined) {
tr = eval("tr"+1) ;
tb = eval("tb"+1);
tr.style.display = "block"
tb.style.display = "block"
}else{
for(i = 1;i<=show.length ; i++) {
img = eval("document.img" + [i]);
img.src=folder1;
tr = eval("tr" + [i]);
tb = eval("tb" + [i]);
tr.style.display = "block"
tb.style.display = "block"
}
}
}
// alert(tsd)
}
</script>
</head>
<body style = 'background-color:#ffffff;margin:2px;'>
<div style = 'text-align:center;'>
<%
SQL = "select * from adminType where ATypeSelect = 0 Order By ATypeArray desc"
Rs.Open(SQL),Conn,1,1
Response.Write"<table cellspacing=0 cellpadding=0 style = 'width:98%;' border='0' class = 'LinkA'><tbody>"
if not Rs.eof then
bg01 = " style = 'background-image:url(" & HOME_PATH & "images/co_bg01.gif);' "
Response.Write"<tr>" & _
"<td width='16' " & bg01 & "><img style='cursor: hand' onclick="" treeALL();"" height='16' src='" & HOME_PATH & "images/close.gif' width='16' border = '0' name = 'imgALL' style = 'background-image:url(" & HOME_PATH & "images/co_bg00.gif);'/></td>" & chr(13) & _
"<td><a onclick="" treeALL();"" style='cursor: hand'><span id= 'tsdv'><span style = 'color:blue;'>展开全部</span></span></a></td>" & _
"</tr>"
Set Rs_ = Server.CreateObject("Adodb.RecordSet")
mainCount = Rs.RecordCount
dim i_mm
i_mm = 0
for i_main = 1 to mainCount
if Rs.eof then Exit for
Atypeid = Rs("Atypeid")
ATypeSelect = Rs("ATypeSelect")
ATypeName = Rs("ATypeName")
SQL = "select * from adminType where ATypeSelect = " & Atypeid & " Order By ATypeArray desc"
Response.Write"<tr><input type = 'hidden' name = 'show'/>" & _
"<td width='16' " & bg01 & "><img style='CURSOR: hand' onclick='showhide(" & i_main & ");' height='16' src='" & HOME_PATH & "images/close.gif' width='16' name='img" & i_main & "' border = 0></td>" & _
"<td><a ondblclick='showhide(" & i_main & ");' style='cursor: hand' onclick=""javascript:parent.right.location.href = 'selectadminlist_right.asp?maintypeid=" & Atypeid & "';""><span id = 'td__' onclick=""clicked_('" & i_mm+i_main-1 & "');"" >" & ATypeName & "</span></a></td>" & _
"</tr>"
Rs_.Open(SQL),Conn,1,1
if not Rs_.eof then
Response.Write"<tr class=hidden id='tr" & i_main & "' name='tr" & i_main & "'>" & _
"<td width='16' " & bg01 & "></td>" & _
"<td>"
Response.Write"<table class='hidden' id='tb" & i_main & "' height='100%' cellSpacing='0' cellPadding='0' width='100%' border='0' name='tb" & i_main & "'><tbody>"
SubCount = Rs_.RecordCount
for i_Sub = 1 to SubCount
if Rs_.eof then Exit for
Atypeid_ = Rs_("Atypeid")
ATypeSelect_ = Rs_("ATypeSelect")
ATypeName_ = Rs_("ATypeName")
img03 = v1v2(i_Sub,SubCount,"<img src = '" & HOME_PATH & "images/co_bg04.gif' width = '16' />","<img src = '" & HOME_PATH & "images/co_bg03.gif' width = '16' />")
Response.Write"<tr>" & _
"<td width='16'>" & img03 & "</td>" & _
"<td><a href = 'selectadminlist_right.asp?maintypeid=" & ATypeSelect_ & "&subtypeid=" & Atypeid_ & "' target='right' id = 'c" & i_Sub & i_main & "' name = 'c" & i_Sub & i_main & "'><span onclick = ""javascript:clicked_('" & i_mm +i_main & "');"" id = 'td__' >" & ATypeName_ & "</span></a></td>" & _
"</tr>"
i_mm = i_mm+1
Rs_.movenext
next
Response.Write"</tbody></table>" & _
"</td></tr>"
else
Response.Write"<tr class=hidden id='tr" & i_main & "' name='tr" & i_main & "'>" & _
"<td width='16'></td>" & _
"<td>" & _
"<table class='hidden' id='tb" & i_main & "' height='100%' cellSpacing='0' cellPadding='0' width='100%' border='0' name='tb" & i_main & "'><tbody><td width='16'></td><td>没有记录</td>" & _
"</tr></table>" & _
"</td></tr>"
end if
Rs_.Close
Rs.movenext
next
else
end if
Response.Write"<tr>" & _
"<td width='16'><img style='cursor: hand' onclick=""javascript:clicked_('" & i_mm+i_main-1 & "');parent.right.location.href = 'selectadminlist_right.asp?maintypeid=0';"" height='16' src='" & HOME_PATH & "images/close.gif' width='16' border = '0' style = 'background-image:url(" & HOME_PATH & "images/co_bg00.gif);'/></td>" & chr(13) & _
"<td><a style='cursor: hand' onclick=""javascript:parent.right.location.href = 'selectadminlist_right.asp?maintypeid=0';""><span id = 'td__' onclick=""clicked_('" & i_mm+i_main-1 & "');"" >全部类别</span></a></td>" & _
"</tr>" & chr(13)
Response.Write"</tbody></table>"
Rs.Close
ConnClose()
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -