📄 left.asp
字号:
<%Option Explicit%>
<!--
NAME:20csh QQ:47210879(UFO) 2003-8-29
-->
<script src=menu.js ></script>
<STYLE type=text/css>
A:link {
COLOR: #003399
; font-size: 9pt; text-decoration: none}
A:visited {
COLOR: #999999; font-size: 9pt; text-decoration: none}
A:hover {
COLOR: #ff3300
; font-size: 9pt; text-decoration: none}
TD {
FONT-SIZE: 9pt}
</STYLE>
<LINK href="default.css" type=text/css rel=stylesheet>
<%if request("t")="m" then
dim str1
str1=" onclick=""whichone(0)"""
end if%>
<body bgcolor="#f4faed"<%=str1%>>
<br>
<script language="javascript">
function ck(obj,obj1){
if(obj.lowsrc=="") return true;
obj.imgRolln=obj.src;
obj.src=obj.lowsrc;
obj.lowsrc=obj.imgRolln;
if(obj1.style.display=='none')
obj1.style.display='';
else
obj1.style.display='none';
}
//显示菜单
function show_menu(){
var i;
for(i=0;i<trees.length;i++){
if(trees[i].child!="0")
document.write("<div id='D" + trees[i].id + "' style='Z-INDEX: 2; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px'></div>");
if(trees[i].parent=="0")
{
document.write ("<a href='" + trees[i].url + "' target='" + trees[i].target + "' title='" + trees[i].title + "' onMouseOver='whichone(" + trees[i].id + ");");
if(trees[i].child!="0")
document.write ("ShowMenu(\"" + trees[i].id + "\",0,D" + trees[i].id + ");");
document.write ("'>" + trees[i].txt + "</a> ");
}
}
}
//显示树型
function show_tree(space_c,parent){
var i,j,k,img_src1,img_src2;
for(k=0;k<trees.length;k++){
if(trees[k].parent==parent){
document.write("<table border=0 cellspacing=0 cellpadding=0 bordercolor=#000000 width=100%><tr><form action=index.asp name=form1 method=post><td>");
for(i=1;i<=space_c;i++) document.write(" ");
img_src1="close.gif";
if(trees[k].child=="0") img_src1="open.gif";
img_src2="open.gif";
if(trees[k].child=="0") img_src2="";
document.write("<img lowsrc=" + img_src2 + " onclick='javascript:ck(this,document.all.T" + trees[k].id + ");' src=" + img_src1 + " align=middle><a href='" + trees[k].url + "' target='" + trees[k].target + "' title='" + trees[k].title + "'>" + trees[k].txt + "</a></td></form></tr></table>");
document.write ("<span id='T" + trees[k].id + "' style='display:none'>" );
if(trees[k].child!="0") show_tree(space_c +1 ,trees[k].id);
document.write ("</span>");
}
}
}
</script>
<%dim j,str,rs
j=0
str=""
sub init()
dim sql,i,j,temp
sql="select * from dd"
rs.open sql,conn,1,1
for i=0 to rs.Fields.count -1
temp=temp & rs.Fields(i).name & ","
next
response.write "<script language=""javascript"">" & vbcrlf
temp=left(temp,len(temp)-1)
response.write "function tree(" & temp & "){" & vbcrlf
temp=split(temp,",")
for j=0 to ubound(temp)
response.write "this." & temp(j) & "=" & temp(j) & ";" & vbcrlf
next
response.write "}" & vbcrlf
if not rs.eof then
response.write "var trees =new Array(" & rs.recordcount-1 & ");" & vbcrlf
else
response.write "var trees =new Array(0);" & vbcrlf
end if
for i=0 to rs.recordcount-1
response.write "trees[" & i & "]= new tree("
for j=0 to rs.Fields.count -1
response.write "'" & rs(j) & "'"
if j<>rs.Fields.count -1 then response.write ","
next
response.write ");" & vbcrlf
rs.movenext
next
if request("t")="m" then
response.write "show_menu();" & vbcrlf
else
response.write "document.write(""<form name=form1 action=index.asp method=post><input type=hidden name=id value=0></form>"");"
response.write "show_tree(0,'0');" & vbcrlf
end if
response.write "</script>"
rs.close
end sub
function chk(str)
chk=replace(str,"'","’")
chk=replace(chk,"""","”")
chk=replace(chk,";","；")
end function
%>
<% dim conn
dim connstr
set rs=createobject("adodb.recordset")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("xinyz#mastercwb.asa")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
dim id
id=request("id")
if request("id")<>"" then
dim txt,parent,cou,url,title,target
txt=left(chk(request("txt")),250)
parent=clng(id)
url=left(chk(request("url")),250)
title=left(chk(request("title")),250)
target=left(chk(request("target")),20)
select case (request("submit"))
case "ADD"
if txt<>"" and parent<>"" then
set rs=conn.execute("select txt from dd where id=" & id)
if not rs.eof then str1=rs(0)
rs.close
if str1<>"-" then
conn.execute ("insert into dd (txt,parent) values('" & txt & "'," & parent & ")")
set rs=conn.execute("select count(id) from dd where parent=" & parent)
cou=rs(0)
rs.close
conn.execute ("update dd set child =" & cou & " where id=" & parent)
end if
end if
case "UPDATE"
conn.execute("update dd set txt='" & txt & "',url='" & url & "',title='" & title & "',target='" & target & "' where id=" & id)
case "DEL"
set rs=conn.execute("select count(id) from dd where parent=(select parent from dd where id=" & id & ")")
cou=rs(0)
rs.close
conn.execute ("update dd set child =" & cou & " where id=(select parent from dd where id=" & id & ")")
conn.execute ("delete from dd where id=" & id & " or parent=" & id)
end select
end if
CALL init
set rs=nothing
conn.close
set conn=nothing
%>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -