在线急等，谁有省市联动的目录树，高分求助，谢谢大家了！

qiangmeng 2005-02-17 04:40:55

在线急等，谁有省市联动的目录树，高分求助，谢谢大家了！

做一个资源查询的物流网站，需要一个省市联动的目录树结构，谁有现成的代码，谢谢了，谢谢！

...全文

158 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

cuipi2003 2005-02-18

打赏
举报

http://fason.nease.net/samples/select/

chenafang 2005-02-18

打赏
举报

你好，我已经向你提供的邮箱里发了，希望对你有用！

qiangmeng 2005-02-18

打赏
举报

我的邮箱是sgq7858@sina.com
谢谢您

chenafang 2005-02-17

打赏
举报

给我一个联系方式我给你发一个吧我的邮箱 chenafang@eyou.com

我也有一事相求：我是刚来的了，我不知道怎么“提问”啊，你能教我吗？
我现在就有一个很棘手的问题，我的网站的内容别人轻而易举的拷贝了，我现在已经屏蔽了右键、和另存为，但是IE菜单中的“使用Microsoft Frontpage编辑”我还没有屏蔽掉，所以我所作的=没有作了，你能帮我吗？

guming123416 2005-02-17

打赏
举报

网络上的代码很多啊

chenxujin 2005-02-17

打赏
举报

可以呀,但是要设计表

比如下面例子,自己加上图片就行了,Access数据库:

<%@ Language=VBScript %>

<html>

<head>

<title>实例多层目录显示</title>

</head>

<body><font size=+2><STRONG>多层目录显示</STRONG></font><P>

中国行政区

<%

dim conn

dim rstemp1,rstemp2

dim sqltemp1,sqltemp2

conn = "DBQ=" + server.mappath("genus.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

set rstmep1 = server.createobject("adodb.recordset")

set rstmep2 = server.createobject("adodb.recordset")

sqltemp1="select * from genus"

rstmep1.open sqltemp1, conn, 1, 1

%>

<%do while not rstmep1.eof%>

<DIV ID=Tree<%=rstmep1("id")%> CLASS="Folder">

<img ID="Tree<%=rstmep1("id")%>Fldr" src="picture/close.bmp"> <%=rstmep1("name")%>

</DIV>

<DIV ID=Tree<%=rstmep1("id")%>cont STYLE="display:none">

<%

set rstmep2 = server.createobject("adodb.recordset")

sqltemp2="select * from book where genus_id=" & rstmep1("id")

rstmep2.open sqltemp2, conn, 1, 1

%><table><%

do while not rstmep2.eof

%>

<tr><td> <img src="picture/text.bmp"></td><td><%=rstmep2("name")%></td></tr>

<%

rstmep2.movenext

loop

%></table>

</DIV>

<%rstmep1.movenext

loop

rstmep1.close

rstmep2.close

%>

<SCRIPT LANGUAGE="VBScript">

Sub document_onClick()

If window.event.srcElement.className = "Folder" Then

strNode = window.event.srcElement.ID + "Cont"

strFldImg = window.event.srcElement.ID + "Fldr"

If document.All(strNode).style.display = "" Then

document.All(strNode).style.display = "none"

document.All(strFldImg).Src = "picture\close.bmp"

Else

document.All(strNode).style.display = ""

document.All(strFldImg).Src = "picture\open.bmp"

End If

End If

End Sub

</SCRIPT>

</td>

</tr>

</table>

<%

set rs1 = nothing

set rs = nothing

%>

</body>

</html>

数据库(两个表)

genus表:

id 自动编号

name 文本

1,"直辖市"

2,"自治区"

3,"特别行政区"

4,"省"

book表:

id 自动编号

name 文本

genus_id 数字

1,"北京市",1

2,"上海市",1

3,"天津市",1

4,"重庆市",1

5,"内蒙古自治区",2

6,"宁夏回族自治区",2

7,"广西壮族自治区",2

8,"新疆维吾尔族自治区",2

9,"西藏自治区",2

10,"香港特别行政区",3

11,"澳门特别行政区",3

12,"河北",4

13,"河南",4

14,"山东",4

15,"山西",4

16,"江苏",4

17,"安徽",4

18,"浙江",4

19,"海南",4

-----------------------------------------------------
这是我收藏别人的。你拿去看看。

qiangmeng 2005-02-17