这可是高手问题呀

shuangyulove 2002-03-21 11:44:43
如何在asp中实现像vb中treeview的功能，可以自已加结点，可以删除　，可以修改，呢
有这个的兄弟给个源码，好吗？lyhzs@163.com
...全文
69 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
karma 2002-03-27
  • 打赏
  • 举报
 回复
i think it is in comctl32.ocx, in %WINDIR%\system32
playking 2002-03-27
  • 打赏
  • 举报
 回复
to:jamex(1 + 1 = 爱)你的好象是老版csdn的源代码

to:karma(无为)哪里有treeview这个控件？
shuangyulove 2002-03-27
  • 打赏
  • 举报
 回复
谢谢各位小弟一定怒力
karma 2002-03-26
  • 打赏
  • 举报
 回复
use treeview activex control



<HTML>
<HEAD>
<SCRIPT LANGUAGE="JavaScript" FOR="window" EVENT="onLoad()">
var curNode, nodes;
nodes = document.all("TreeView1").nodes;
curNode = nodes.Add();
curNode.Text = "CSDN";
curNode.Key = "root";
curNode.Expanded = true;

nodes.Add ("root", 4, "P1", ".Net");
nodes.Add ("P1", 4, "C1", "C#");
nodes.Add ("C1", 4, "C1C1", "Child1Child1");
nodes.Add ("C1", 4, "C1C2", "Child1Child2 sdkfgsdfg sdlfkjgsldfgsdsldfkgjsd fg");
nodes.Add ("C1", 4, "C1C3", "Child1Child3");
nodes.Add ("C1", 4, "C1C4", "Child1Child4");
nodes.Add ("C1", 4, "C1C5", "Child1Child5");
nodes.Add ("C1", 4, "C1C6", "Child1Child6");
nodes.Add ("C1", 4, "C1C7", "Child1Child7");
nodes.Add ("C1", 4, "C1C8", "Child1Child8");
nodes.Add ("C1", 4, "C1C9", "Child1Child9");
nodes.Add ("C1", 4, "C1C10", "Child1Child10");
nodes.Add ("C1", 4, "C1C11", "Child1Child11");
nodes.Add ("C1", 4, "C1C12", "Child1Child12");
nodes.Add ("C1", 4, "C1C13", "Child1Child13");
nodes.Add ("C1", 4, "C1C14", "Child1Child14");
nodes.Add ("C1", 4, "C1C15", "Child1Child15");
nodes.Add ("P1", 4, "C2", "ASP.NET");
nodes.Add ("C2", 4, "C2C1", "Child2Child1");
nodes.Add ("C2", 4, "C2C2", "Child2Child2 sdkfgsdfg sdlfkjgsldfgsdsldfkgjsd fg");
nodes.Add ("C2", 4, "C2C3", "Child2Child3");
nodes.Add ("C2", 4, "C2C4", "Child2Child4");
nodes.Add ("C2", 4, "C2C5", "Child2Child5");
nodes.Add ("C2", 4, "C2C6", "Child2Child6");
nodes.Add ("C2", 4, "C2C7", "Child2Child7");
nodes.Add ("C2", 4, "C2C8", "Child2Child8");
nodes.Add ("C2", 4, "C2C9", "Child2Child9");
nodes.Add ("C2", 4, "C2C10", "Child2Child10");
nodes.Add ("C2", 4, "C2C11", "Child2Child11");
nodes.Add ("C2", 4, "C2C12", "Child2Child12");
nodes.Add ("C2", 4, "C2C13", "Child2Child13");
nodes.Add ("C2", 4, "C2C14", "Child2Child14");
nodes.Add ("C2", 4, "C2C15", "Child2Child15");
nodes.Add ("P1", 4, "C3", "ADO.NET");
nodes.Add ("C3", 4, "C3C1", "Child3Child1");
nodes.Add ("C3", 4, "C3C2", "Child3Child2 sdkfgsdfg sdlfkjgsldfgsdsldfkgjsd fg");
nodes.Add ("C3", 4, "C3C3", "Child3Child3");
nodes.Add ("C3", 4, "C3C4", "Child3Child4");
nodes.Add ("C3", 4, "C3C5", "Child3Child5");
nodes.Add ("P1", 4, "C4", "Web Services");
nodes.Add ("C4", 4, "C4C1", "Child4Child1");
nodes.Add ("C4", 4, "C4C2", "Child4Child2 sdkfgsdfg sdlfkjgsldfgsdsldfkgjsd fg");
nodes.Add ("C4", 4, "C4C3", "Child4Child3");
nodes.Add ("C4", 4, "C4C4", "Child4Child4");
nodes.Add ("C4", 4, "C4C5", "Child4Child5");
nodes.Add ("root", 4, "P2", "Java Once");
nodes.Add ("P2", 4, "C5", "J2SE");
nodes.Add ("C5", 4, "C5C1", "AWT");
nodes.Add ("C5C1", 4, "C5C1C1", "Child5Child1Child1");
nodes.Add ("C5C1", 4, "C5C1C2", "Child5Child1Child2");
nodes.Add ("C5C1", 4, "C5C1C3", "Child5Child1Child3");
nodes.Add ("C5C1", 4, "C5C1C4", "Child5Child1Child4");
nodes.Add ("C5C1", 4, "C5C1C5", "Child5Child1Child5");
nodes.Add ("C4", 4, "C5C2", "Child5Child2 sdkfgsdfg sdlfkjgsldfgsdsldfkgjsd fg");
nodes.Add ("C4", 4, "C5C3", "Child5Child3");
nodes.Add ("C4", 4, "C5C4", "Child5Child4");
nodes.Add ("C4", 4, "C5C5", "Child5Child5");
nodes.Add ("root", 4, "P3", "Unix");
nodes.Add ("root", 4, "P4", "Linux");
</SCRIPT>
<TITLE>Tree</TITLE>
</HEAD>
<BODY LEFTMARGIN=9 TOPMARGIN=9>
<SCRIPT LANGUAGE="JavaScript" FOR="TreeView1" EVENT="NodeClick(Node)">
alert( "clicked on node " + Node.text);
</SCRIPT>
<OBJECT ID="TreeView1" WIDTH=100% HEIGHT=100%
CLASSID="CLSID:0713E8A2-850A-101B-AFC0-4210102A8DA7">
<PARAM NAME="_ExtentX" VALUE="2646">
<PARAM NAME="_ExtentY" VALUE="2646">
<PARAM NAME="_Version" VALUE="327682">
<PARAM NAME="Indentation" VALUE="529">
<PARAM NAME="LineStyle" VALUE="1">
<PARAM NAME="Style" VALUE="6">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="Appearance" VALUE="1">
</OBJECT>
</BODY>
</HTML>
jamex 2002-03-26
  • 打赏
  • 举报
 回复
不要打击别人的学习积极性嘛！shuangyulove (双宇) ，我帮你一下吧！

下面是一个十分优秀的一种树型菜单，可以说是精点之作。我在工作用就使用这个树型菜单，这里推荐给大家。

将下面的代码复制到<head>~</head>里
<script language="JavaScript1.2">
NS4 = (document.layers) ? 1 : 0;
IE4 = (document.all) ? 1 : 0;
ver4 = (NS4 || IE4) ? 1 : 0;
if (ver4)
{
with (document)
{
write("<STYLE TYPE='text/css'>");
if (NS4)
{
write(".parent {position:absolute; visibility:visible}");
write(".child {position:absolute; visibility:visible}");
write(".regular {position:absolute; visibility:visible}")
write(".four{position:absolute; visibility:visible}")
write(".five{position:absolute; visibility:visible}")
}
else
{
write(".child {display:none}")
write(".regular {display:none}")
write(".four{display:none}")
write(".five{display:none}")
}
write("</STYLE>");
}
}

function swapimage(img_url)
{
if (document.images)
{
imgs=new image();
imgs.src=img_url
}
}



function initIt()
{
if (!ver4) return;
if (NS4)
{
for (i=0; i<document.layers.length; i++)
{
whichEl = document.layers[i];
if (whichEl.id.indexOf("Child") != -1||whichEl.id.indexOf("regular") != -1||whichEl.id.indexOf("four") != -1||whichEl.id.indexOf("five") != -1) whichEl.visibility = "hide";
}
arrange();
}
else
{
divColl = document.all.tags("DIV");
for (i=0; i<divColl.length; i++)
{
whichEl = divColl(i);
if (whichEl.className == "child"||whichEl.className == "regular"||whichEl.className == "four"||whichEl.className == "five")
whichEl.style.display = "none";
}
}
}
plus = new Array ();
plus[0] = new Image(); plus[0].src = "plus1.gif";
plus[1] = new Image(); plus[1].src = "plus2.gif";
plus[2] = new Image(); plus[2].src = "plus3.gif";
plus[3] = new Image(); plus[3].src = "plus4.gif";
plus[4] = new Image(); plus[4].src = "plus5.gif";
minus = new Array ();
minus[0] = new Image(); minus[0].src = "minus1.gif";
minus[1] = new Image(); minus[1].src = "minus2.gif";
minus[2] = new Image(); minus[2].src = "minus3.gif";
minus[3] = new Image(); minus[3].src = "minus4.gif";
minus[4] = new Image(); minus[4].src = "minus5.gif";
function expandIt(name,order,serial,num)
{
if (!ver4) return;
if (IE4)
{

whichEl = eval([name] + [order]);
if (whichEl.style.display == "none")
{
whichEl.style.display = "block";
}
else
{
whichEl.style.display = "none";
}
whichEl = eval([name] + [order]+ "_" +[serial]);
if (whichEl.src.indexOf("plus") >= 0) {

whichEl.src = minus[num].src
}
else {
whichEl.src = plus[num].src
}
}
else
{
whichEl = eval("document." + [name] + [order]);

if (whichEl.visibility == "hide")
{
whichEl.visibility = "show";
}
else
{
whichEl.visibility = "hide";
}

}
}
onload = initIt;
</script>

将下面的<table>代码复制到<body>~</body>里
<div id='KB1Parent' class='parent'> <a href="qdgl/qdgl_fqgl.html" target="main" >
<img id='KB1Child_1' src='plus1.gif' border=0 align="absmiddle" hspace="4" onClick="expandIt('KB1','Child',1,0); return false;">渠道管理</a></div>
<div id='KB1Child' class='child'> <a href="qdgl/wlgl2.html" target="main" ><img id='KB1regular_1' src='plus2.gif' border=0 align="absmiddle" hspace="4" onClick="expandIt('KB1','regular',1,1); return false;">网络管理</a><br>
<div id='KB1regular' class='regular'> <a href="qdgl/qdgl_fgsgl.html" target="main"><img id='KB1four_1'src='plus3.gif' border=0 hspace="4" align="absmiddle" onClick="expandIt('KB1','four',1,2); return false;">华北区</a><br>
<div id='KB1four' class='four'> <a href="qdgl/qdgl_zmdgl.html" target="main"><img id='KB1five_1' src='plus4.gif' border=0 hspace="4" align="absmiddle" onClick="expandIt('KB1','five',1,3); return false;" >北京市</a><br>
<div id='KB1five' class='five'> <a href="qdgl/chaoyang.html" target="main"><img src='document4.gif' border=0 hspace="4" align="absmiddle" >朝阳区</a><br>
<a href="qdgl/haidian.html" target="main"><img src='document4.gif' border=0 hspace="4" align="absmiddle" >海淀区</a><br>
</div>
<a href="qdgl/tianjin.html" target="main"><img src='document3.gif' border=0 hspace="4" align="absmiddle" >天津市</a><br>
<a href="qdgl/shijiazhuang.html" target="main"><img src='document3.gif' border=0 hspace="4" align="absmiddle" >石家庄市</a><br>
</div>
<a href="qdgl/huanan.html" target="main" ><img src='document2.gif' border=0 align="absmiddle" hspace="4" >华南区</a><br>
<a href="qdgl/huadong.htm" target="main" ><img src='document2.gif' border=0 align="absmiddle" hspace="4" >华东区</a><br>
<a href="qdgl/xibei.html" target="main" ><img src='document2.gif' border=0 align="absmiddle" hspace="4" >西北区</a><br>
</div>
<a href="qdgl/wlgl.html" target="main" ><img src='document1.gif' border=0 align="absmiddle" hspace="4" >树状结构</a><br>
</div>
<div id='KB2Parent' class='parent'> <a href="qdfz.html" target="main" >
<img id='KB2Child_1' src='plus1.gif' border=0 align="absmiddle" hspace="4" onClick="expandIt('KB2','Child',1,0); return false;">客户管理</a></div>
<div id='KB2Child' class='child'> <a href="qdfz/fybx_gzldy.html" target="main" ><img id='KB2_1regular_1' src='plus2.gif' border=0 align="absmiddle" hspace="4" onClick="expandIt('KB2_1','regular',1,1); return false;">类别设置</a><br>
<div id='KB2_1regular' class='regular'> <a href="qdfz/zyzh.html" target="main" ><img src='document2.gif' border=0 hspace="4" align="absmiddle" >直运直汇</a><br>
<a href="khgl/khxx_1.html" target="main" ><img id='KB2_1_1four_1' src='plus3.gif' border=0 align="absmiddle" hspace="4" onClick="expandIt('KB2_1_1','four',1,2); return false;">经销商</a><br>
<div id='KB2_1_1four' class='four'> <a href="khgl/khxx_2.html" target="main" ><img src='document3.gif' border=0 hspace="4" align="absmiddle" >二批商</a><br>
<a href="khgl/khxx_5.html" target="main" ><img src='document3.gif' border=0 hspace="4" align="absmiddle" >三批商</a><br>
</div>
<a href="khgl/cskh.html" target="main" ><img src='document2.gif' border=0 hspace="4" align="absmiddle" >超市客户</a><br>
<a href="khgl/lsd.html" target="main" ><img src='document2.gif' border=0 hspace="4" align="absmiddle" >零售点</a><br>
<a href="khgl/khxx_3.html" target="main" ><img src='document2.gif' border=0 hspace="4" align="absmiddle" >集团客户</a><br>
<a href="khgl/khxx_4.html" target="main" ><img src='document2.gif' border=0 hspace="4" align="absmiddle" >消费者</a><br>
</div>
<a href="qdfz/khxx.html" target="main" ><img src='document1.gif' border=0 align="absmiddle" hspace="4" >客户信息</a><br>
<a href="khgl/xygl_1.html" target="main" ><img src='document1.gif' border=0 align="absmiddle" hspace="4" >信用管理</a><br>
</div>
<div id='KB11Parent' class='parent'> <a href="cpgl/cpzl.html" target="main" ><img id='KB11Child_1' src='plus1.gif' border=0 align="absmiddle" hspace="4" onClick="expandIt('KB11','Child',1,0); return false;">产品管理</a>
<div id='KB11Child' class='child'> <a href="cpgl/cpzl.html" target="main" ><img src='document1.gif' border=0 hspace="4" align="absmiddle" >产品资料</a><br>
<a href="cpgl/lbzl.html" target="main" ><img src='document1.gif' border=0 hspace="4" align="absmiddle" >类别资料</a></div>
<
forestli 2002-03-26
  • 打赏
  • 举报
 回复
给你一个列子研究一下好了
<table width="754" border="0" cellspacing="0" cellpadding="1" height="10">
<tr bgcolor="#FFFFCC">
<td width="38">序号</td>
<td width="38">等级</td>
<td width="473">标题</td>
<td width="139">发布时间</td>
<td width="96">操作</td>
</tr>
<%
Dim ps
ps=26
Dim cp
cp=Request.QueryString("cp")
If cp="" then
cp=1
Else
cp=Cint(cp)
End If

Dim conn,sql,rs,vout
dim i,pc
vout=""
set conn=server.CreateObject("ADODB.Connection")
conn.Open "driver={SQL Server};server=***********888"
set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT NID,NTITLE,INTIME,NLEVEL FROM NEWS ORDER BY INTIME DESC"
rs.pagesize=ps
rs.open sql,conn,1
pc=rs.pagecount
If pc<>0 then
vout=vout+"共"& pc &"页 - "&rs.recordcount &"条记录"
rs.absolutepage=cp
for i=1 to ps
If rs.eof then
Exit for
End If
vout=vout + "<tr>"
vout=vout + "<td>"& i+(cp-1)*ps &"</td><td>"& rs("nlevel") &"</td><td>"& rs("ntitle") &"</td><td>"& rs("intime") &"</td><td><a href=/news/deletenews.asp?nid="& rs("NID") &">删除</a> - <a href=/news/x_news.asp?nid="& rs("NID") &">修改</a></td></tr>"
rs.MoveNext
If rs.eof then
Exit for
End If
i=i+1
vout=vout + "<tr bgcolor=#ffffcc>"
vout=vout + "<td>"& i+(cp-1)*ps &"</td><td>"& rs("nlevel") &"</td><td>"& rs("ntitle") &"</td><td>"& rs("intime") &"</td><td><a href=/news/deletenews.asp?nid="& rs("NID") &">删除</a> - <a href=/news/x_news.asp?nid="& rs("NID") &">修改</a></td></tr>"
rs.MoveNext
Next
vout=vout + "<tr><td colspan=4>"
vout=vout + "<a href=/admin/news/menu.asp?cp=1>首页</a>"
If cp > 1 Then
vout=vout + " - <a href=/admin/news/menu.asp?cp="& cp-1 &">前页</a>"
End If
If cp < pc Then
vout=vout + " - <a href=/admin/news/menu.asp?cp="& cp+1 &">后页</a>"
End If
vout=vout + " - <a href=/admin/news/menu.asp?cp="& pc &">尾页</a>"
vout=vout + "</td></tr>"
response.write vout
Else
response.write "没有记录！"
End If
set vout=nothing
set i=nothing
set pc=nothing
set cp=nothing
set ps=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
set sql=nothing
%>
</table>

yemol_yuan 2002-03-26
  • 打赏
  • 举报
 回复
不会把这个问题已经是1年以前的热门话题了，现在还说
无聊
jinhaiou 2002-03-26
  • 打赏
  • 举报
 回复
我給你個例子:
<html>
<body>
<table border=0 cellspacing=0 cellpadding=0>
<tr><td><a href="javascript:Sc1()"><img id="nod1" src="fdnodeopen.gif" border=0></a></td><td><img id="fld1" src="fdfolderopen.gif" align=absmiddle>Visual BASIC 群組</td></tr>
<tr><td id="ctxt11a"><img src="fdline.gif"></td><td id="ctxt11b"><a href="../new/new.html"><img src="fddocument.gif" align="absmiddle" border=0>新手教學</td></a></tr>
<tr><td id="ctxt12a"><img src="fdline.gif"></td><td id="ctxt12b"><a href="../tip/tip.html"><img src="fddocument.gif" align="absmiddle" border=0>小秘訣</a></td></tr>
<tr><td id="ctxt13a"><img src="fdline.gif"></td><td id="ctxt13b"><a href="../apiup/apiup.html"><img src="fddocument.gif" align="absmiddle" border=0>API運用</a></td></tr>

<tr><td><a href="javascript:Sc2()"><img id="nod2" src="fdnodeopen.gif" border=0></a></td><td><img id="fld2" src="fdfolderopen.gif" align=absmiddle>VBSctipt 群組</td></tr>
<tr><td id="ctxt21a"><img src="fdline.gif"></td><td id="ctxt21b"><a href="../vbs/vbs.html"><img src="fddocument.gif" align="absmiddle" border=0>VBS物件</td></a></tr>
<tr><td id="ctxt22a"><img src="fdline.gif"></td><td id="ctxt22b"><a href="../vbss/vbss.html"><img src="fddocument.gif" align="absmiddle" border=0>VBS HTML</td></a></tr>
</table>

<script language=vbscript>
<!--
Sub Sc1()
If Right(nod1.src,8) = "open.gif" Then
nod1.src="fdnodeclosed.gif"
fld1.src="fdfolderclosed.gif"
ctxt11a.innerhtml = ""
ctxt11b.innerhtml = ""
ctxt12a.innerhtml = ""
ctxt12b.innerhtml = ""
ctxt13a.innerhtml = ""
ctxt13b.innerhtml = ""
Else
nod1.src="fdnodeopen.gif"
fld1.src="fdfolderopen.gif"
ctxt11a.innerhtml="<img src='fdline.gif'>"
ctxt11b.innerhtml="<a href='../new/new.html'><img src='fddocument.gif' align='absmiddle' border=0>新手教學</a>"
ctxt12a.innerhtml="<img src='fdline.gif'>"
ctxt12b.innerhtml="<a href='../tip/tip.html'><img src='fddocument.gif' align='absmiddle' border=0>小秘訣</a>"
ctxt13a.innerhtml="<img src='fdline.gif'>"
ctxt13b.innerhtml="<a href='../apiup/apiup.html'><img src='fddocument.gif' align='absmiddle' border=0>API運用</a>"
End If
End Sub

Sub Sc2()
If Right(nod2.src,8) = "open.gif" Then
nod2.src="fdnodeclosed.gif"
fld2.src="fdfolderclosed.gif"
ctxt21a.innerhtml = ""
ctxt21b.innerhtml = ""
ctxt22a.innerhtml = ""
ctxt22b.innerhtml = ""
Else
nod2.src="fdnodeopen.gif"
fld2.src="fdfolderopen.gif"
ctxt21a.innerhtml="<img src='fdline.gif'>"
ctxt21b.innerhtml="<a href='../vbs/vbs.html'><img src='fddocument.gif' align='absmiddle' border=0>VBS物件</a>"
ctxt22a.innerhtml="<img src='fdline.gif'>"
ctxt22b.innerhtml="<a href='../vbss/vbss.html'><img src='fddocument.gif' align='absmiddle' border=0>VBS HTML</a>"
End If
End Sub
-->
</script>
</body>
</html>
netapple 2002-03-25
  • 打赏
  • 举报
 回复
你看到哪　个网站有这种效果，你把它源程序载一下不就可以了
tolimit 2002-03-25
  • 打赏
  • 举报
 回复
源码我这也有，但就象 sunbeamy(阳光灿烂的深夜) 说的，我觉得提高水平还是在自己
sunbeamy 2002-03-25
  • 打赏
  • 举报
 回复
又是找人写代码啊？自己去查查资料吧，遇到问题才再来问不是更好~~
shuangyulove 2002-03-21
  • 打赏
  • 举报
 回复
快帮手呀
怎样成为解决问题的高手？——关于问题解决的关键4步骤
一个真正的高手，其实应该有能力用一套方法论去解决问题的所有，不管这个问题再难，再新鲜，再简单都能搞定。 什么是问题？一言以蔽之，问题来源于现实与目标的差距。 因此，问题产生的原因可能是： ...
《拆解一切问题》如何成为解决难题的高手 - 三余书屋 3ysw.net
好的作品提升个人的声誉，声誉的提升能让他...当你遇到一个复杂问题时，把问题拆分为影响问题的元素A、B、C，其中影响A的元素又需要拆分为A1、A2、A3，就这样一直拆分，直到把复杂的问题拆分成若干个可解决的原问题。
简单易懂的Dancing links讲解（3）
Dancing Links除了能解决精确覆盖问题，还能解决重复覆盖问题，这里重点讲重复覆盖 题目：高手做题  描述  SubRaY被布置了n道作业题,可是他一道也不会..但他知道有w位高手,并知道每位高手
＜高手寂寞＞名言
看了这位仁兄的摘录，忍不住还是留下来。   高手的名言   　1．漫漫江湖路，高手寂寞心   　2．既然自己跳出来了，就该承受这后果   　3．生存法则第一条：你可以犯贱自己伤害自己，但决不可以愚蠢让...
请教高手一个问题，我的IE最近老是出现问题？
请教高手一个问题，我的IE最近老是出现问题？当我打开一个不能打开的或者是不存在的页面的时候，它我的IE浏览器老是跳转到http://yisho.com,我曾经用过IE修复器，但是修复以后老是出现一个错误提示，我也在注册表里...
ASP

28,405

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章