建立动态下拉式选单(三阶层)

　　建立动态下拉式选单 (三阶层)

<%将资料库连结字串, SQL 叙述,形成第一个表单字串变数 (colorlist),第一个表单名称 color,形成第二个表单字串变数 (fruitlist),第二一个表单名称 fruit,形成第三个表单字串变数 (pricelist),第三个表单名称 price,等资讯透过呼叫副程式的方式经过处理之后再传回主程式中,请注意有某几个参数是以 ByRef 的方式传回主程式,而某些参数是以 ByVal 的方式传回的紫色粗体字代表是 ByRef。请直接观看底下副程式的部分
myDSN=Provider=SQLOLEDB; Data Source=Jackal; Initial Catalog=pubs; User ID=sa; Password=
call listmaker(myDSN, strSQL, colorlist,color, fruitlist ,fruit, pricelist, price, pubevent, pubfun, myForm)%><form name=myForm method=post action=listbox2.asp>
颜色:
<%= colorlist%>

<BR>
水果:


<%= fruitlist%>

<BR>
价格:
<%= pricelist%>
<input type=submit value=送出>
</Form>
<SCRIPT Language=JavaScript><!--

<%=pubevent%>
<%=pubfun%>
--></Script>


<%

SUB listmaker(myDSN, strSQL,byref list1, listname1, byref list2, listname2, byref list3, listname3, byref myevent, byref myfun, myForm)
my_conn.open myDSN
set rs=my_conn.execute(strSQL)
利用 colorlist 字串变数来建立第一个下拉式选单的 Html 原始码。
colorlist=<select name= listname1
colorlist=colorlist OnChange=Buildkey
colorlist=colorlist (this.selectedIndex);>
利用 fruitlist 字串变数来建立第二个下拉式选单的 Html 原始码。
fruitlist=<select name= listname2
fruitlist=fruitlist OnChange=Buildkey1
fruitlist=fruitlist (this.selectedIndex);>
利用 pricelist 字串变数来建立第三个下拉式选单的 Html 原始码。
pricelist=<select name= listname3 >
在这里初始某些变数值,当作底下执行运算时之旗标值。
loopcounter=0
lastvalue=rs(0)
lastvalue2=rs(1)
redim tempArray(1)
thisgroupcount 代表某种颜色共有几种水果
thisgroupcount=0
thissubgroupcount 代表某种水果共有几种价格,当水果变换时 thissubgroupcount会归零,并重新累加。
thissubgroupcount=0
howmanygroups 代表共有几种颜色
howmanygroups=0
howmanysubgroups 代表共有几种水果,当颜色变换时 howmanysubgroups 会归零,并重新累加。
howmanysubgroups=0
DO UNTIL rs.eof
thisvalue=rs(0)
thisvalue2=rs(1)
thisvalue3=rs(2)

如果发现水果名称改变,而且目前水果是某种颜色的第一种水果时,譬如:红色←苹果 或:黄色←柳丁时就在 Script 中加上颜色标记 (为了让大家更容易将 Script 区隔开来),然后再将水果名称定义到 key 阵列值,
接着再定义 key1[第几种颜色][第几种水果] 之阵列长度。

if thisvalue2<>lastvalue2 then
If howmanysubgroups=0 then
tempSTR1=tempSTR1 // lastvalue vbcrlf
tempSTR2=tempSTR2 // lastvalue vbcrlf
end If
tempSTR2=tempSTR2 key1[ howmanygroups ][ howmanysubgroups
]=new Array( thissubgroupcount ); vbcrlf