下拉菜单问题,比较难,帮我解决的我给100分.

[ykhxb]

有人知道(http://www.everywhere.com.cn/Around.html)里的"所有类别"的下拉菜单是怎么做的.如果可以的话,给个原码什么的,我再给他开个贴送200分.

路过的,帮我顶一下.我都送分!

[itzhiren]

给300分干吗用呀?给300元人民币还差不多

[jiangsh100]

那个很简单啊，我看那个类别不要改变的话可以直接把他的源码弄过来，如果要变的话你自己在后台添加类名，前台循环读出记录就可以了

[ykhxb]

源码，XML文件，我都下下来过了，不过，不能用的。

itzhiren(itzhiren) ( ) 信誉：100 这为朋友,我想好了，如果有人能帮我解决那最好，如果有必要，我就另开一个贴，给100分，加100块钱！（我想，网上的朋友帮忙，钱不钱的到并不会帮重要。）

[Mapleleaf123]

呵呵~~下载不行？

[leohuang]

谁也别跟我抢,这100块钱我要定了

[itzhiren]

是的,下载并不行的

[xzr2004]

两种可能
1.数据库
调用一个函数动态生成,给你一个例子,自己改改
Sub GetCata(strTab,strID,strName)
Dim cRs, cSql, i, TempCataStr,TempTab,TempID,TempName
TempTab = strTab
TempID = strID
TempName = strName
Set cRs = Server.CreateObject( "ADODB.Recordset" )
cSql = "SELECT * FROM "& TempTab &" ORDER BY "& TempID &""
OpenDB()
cRs.Open cSql, con, 1, 3

Do While Not cRs.EOF

TempCataStr = "<option value='"&Trim(cRs(TempID))&"'"
TempCataStr = TempCataStr&"> "
TempCataStr = TempCataStr&Trim(cRs(TempName))&"</option>"
Response.Write TempCataStr

cRs.MoveNext
Loop
cRs.Close
Set cRs = Nothing
End Sub

2.直接写死的

[leohuang]

偷盗完毕,怎么付款啊

[lovelium]

是XML得。楼上得那样可能不行。

[leohuang]

来看看效果啊?

现在已经可以实现网站上的效果,就是代码需要精简

[leohuang]

look
----------------------------------------
http://www.ping-an.com/images/leo.gif

[idealabc]

这个菜单的原码挺多，你打开网站，然后点右键查看源码，把涉及的JS都下载下来，分析一下，就ok

[边城的刀声]

ajax很容易实现的

[Mapleleaf123]

LEO果真强```

[newskyline]

需要一个更强的吗？我可以给你，带源码的，给我100分吧，另外加100Q币，我不要钱。
在这个链接看效果：
http://www.justrun.net/Product/SkyTree/Examples/Case_FormSelect.asp
在这里找下载：
http://www.justrun.net/Product/SkyTree/

[BlueDestiny]

写效果很容易的。无非就是关联效果。知道几个知识点，你就可以看参考编出这样的程序来，给你个DEMO：

<form name="dynamiccombo">
<select name="stage2" size="1" onChange="displaysub()">
<option value="#">This is a place Holder text </option>
<option value="#">This is a Place Holder text </option>
<option value="#">This is a Place Holder text </option>
<option value="#">This is a Place Holder text </option>
</select>
<input type="button" name="test" value="Go!"
onClick="gothere()">
</form>

<script>
<!--

var category=new Array()
category[0]=new Option("SELECT A CATEGORY ", "") //THIS LINE RESERVED TO CONTAIN COMBO TITLE
category[1]=new Option("Webmaster sites", "combo1")
category[2]=new Option("News sites", "combo2")
category[3]=new Option("Entertainment", "combo3")

var combo1=new Array()
combo1[0]=new Option("JavaScript Kit","http://javascriptkit.com")
combo1[1]=new Option("Dynamic Drive","http://www.dynamicdrive.com")
combo1[2]=new Option("Freewarejava.com","http://www.freewarejava.com")
combo1[3]=new Option("Free Web Templates","http://www.freewebtemplates.com")
combo1[4]=new Option("Web Monkey","http://www.webmonkey.com")
combo1[5]=new Option("返回上一级","") //THIS LINE RESERVED TO CONTAIN COMBO SUBTITLE

var combo2=new Array()
combo2[0]=new Option("CNN","http://www.cnn.com")
combo2[1]=new Option("MSNBC","http://www.msnbc.com")
combo2[2]=new Option("BBC News","http://news.bbc.co.uk")
combo2[3]=new Option("ABC News","http://www.abcnews.com")
combo2[4]=new Option("返回上一级","") //THIS LINE RESERVED TO CONTAIN COMBO SUBTITLE

var combo3=new Array()
combo3[0]=new Option("Hollywood.com","http://www.hollywood.com")
combo3[1]=new Option("MTV","http://www.mtv.com")
combo3[2]=new Option("ETOnline","http://etonline.com")
combo3[3]=new Option("返回上一级","") //THIS LINE RESERVED TO CONTAIN COMBO SUBTITLE

var curlevel=1
var cacheobj=document.dynamiccombo.stage2

function populate(x){
for (m=cacheobj.options.length-1;m>0;m--)
cacheobj.options[m]=null
selectedarray=eval(x)
for (i=0;i<selectedarray.length;i++)
cacheobj.options[i]=new Option(selectedarray[i].text,selectedarray[i].value)
cacheobj.options[0].selected=true

}

function displaysub(){
if (curlevel==1){
populate(cacheobj.options[cacheobj.selectedIndex].value)
curlevel=2
}
else
gothere()
}


function gothere(){
if (curlevel==2){
if (cacheobj.selectedIndex==cacheobj.options.length-1){
curlevel=1
populate(category)
}
else
location=cacheobj.options[cacheobj.selectedIndex].value
}
}
populate(category)

//-->
</script>

<p align="center"><font face="arial" size="-2">This free script provided by</font><br>
<font face="arial, helvetica" size="-2"><a href="http://javascriptkit.com">JavaScript
Kit</a></font></p>

[net205]

Y的，想钱想疯了.