如何设置当前选择的值，并将值输入数据库中？谢谢！

谢谢，是一个三级联动表单，我在表1中（access数据库）分别建了三个字段：system,database,databaseqian,对应aalist,sslist和ddlist。
在正常的下拉菜单中，如

100
150
200

我可以将菜单的值
rst("01")=request("01")输到数据库中，但在这个三级联动中，值在哪里，如何传输？谢谢！

------------------------三级联动菜单如下----------------------------


//连接数据库代码如下


<%
set Re = Server.CreateObject("ADODB.Recordset")
Re.ActiveConnection = MM_con12_STRING
Re.Source = "SELECT * FROM ok"
Re.CursorType = 0
Re.CursorLocation = 2
Re.LockType = 3
Re.Open()
Re_numRows = 0
%>
<%
CALL listmaker(aalist,"aa", sslist ,"ss", ddlist, "dd", pubevent, pubfun, "myForm")
%>

//三级联动菜单如下：
<%= aalist%>
<%= sslist%>
<%= ddlist%>

//实现联动代码如下：

<%

SUB listmaker(byref list1, system, byref list2, database, byref list3, databaseqian, byref myevent, byref myfun, myForm)
aalist="aalist=aalist & "(this.selectedIndex);"">"
sslist="sslist=sslist & "(this.selectedIndex);"">"
ddlist=""
loopcounter=0
lastvalue=Re(0)
lastvalue2=Re(1)
redim tempArray(1)
thisgroupcount=0
thissubgroupcount=0
howmanygroups=0
howmanysubgroups=0
DO UNTIL Re.eof
thisvalue=Re(0)
thisvalue2=Re(1)
thisvalue3=Re(2)

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
tempSTR1=tempSTR1 & "key[" & howmanygroups & "][" & howmanysubgroups &"]=""" & lastvalue2 & """;" & vbCRLF
howmanysubgroups=howmanysubgroups+1
thissubgroupcount=0
lastvalue2=thisvalue2
end if

if thisvalue<>lastvalue then
tempSTR=tempSTR & "key[" & howmanygroups & "]=new Array(" & howmanysubgroups & ");" & _
vbcrlf
tempSTR=tempSTR & "key1[" & howmanygroups & "]=new Array(" & howmanysubgroups & ");" & _
vbcrlf
thisgroupcount=0
howmanygroups=howmanygroups+1
howmanysubgroups=0
end if

if thisgroupcount=0 then
aalist =aalist & "" & thisvalue & "" & vbcrlf
end if

if thissubgroupcount=0 then
tempSTR3=tempSTR3 & "// " & lastvalue2 & vbcrlf
end if

tempSTR3=TempSTR3 & "key1[" & howmanygroups & "][" & howmanysubgroups & "][" & thissubgroupcount & "]=""" & thisvalue3 & """;" & vbCRLF

if howmanygroups=0 then
If thissubgroupcount=0 then
sslist = sslist & "" & thisvalue2 & "" & vbcrlf
end if
End If

if howmanygroups=0 then
if howmanysubgroups=0 then
ddlist = ddlist & "" & thisvalue3 & "" & vbcrlf
end if
End if

thisgroupcount=thisgroupcount+1
thissubgroupcount=thissubgroupcount+1
lastvalue=thisvalue
loopcounter=loopcounter+1
Re.movenext

LOOP
tempSTR=tempSTR & "key[" & howmanygroups & _
"]=new Array(" & howmanysubgroups+1 & ");" & _
vbcrlf
tempSTR=tempSTR & "key1[" & howmanygroups & _
"]=new Array(" & howmanysubgroups+1 & ");" & _
vbcrlf

tempSTR2=TempSTR2 &"key1[" & howmanygroups & "][" & howmanysubgroups & "]=new Array(" & thissubgroupcount & ");" & _
vbcrlf
tempSTR1= TempSTR1 & "key[" & howmanygroups & "][" & howmanysubgroups & "]=""" & lastvalue2 & """;" & vbCRLF
tempSTR=tempSTR & TempSTR1 & TempSTR2 & tempSTR3

aalist=aalist & ""

sslist= sslist & ""

ddlist= ddlist & ""


myevent=vbcrlf & "key=new Array(" & howmanygroups+1 & ");"
myevent=myevent & vbcrlf & "key1=new Array(" & howmanygroups+1
myevent=myevent & ");" & vbcrlf & tempSTR




tempSTR =vbcrlf & "function Buildkey" & "(num)" & vbcrlf
tempSTR =tempSTR & "{" & vbcrlf
tempSTR =tempSTR & "Buildkey1(0);" & vbcrlf
tempSTR =tempSTR & "document." & myForm & "."
tempSTR =tempSTR & database & ".selectedIndex=0;" & vbcrlf
tempSTR =tempSTR & "for(ctr=0;ctrtempSTR =tempSTR & "{" & vbcrlf
tempSTR =tempSTR & "document." & myform & "." & database
tempSTR =tempSTR & ".options[ctr]=new Option(key[num][ctr],"
tempSTR =tempSTR & "key[num][ctr]);" & vbcrlf
tempSTR =tempSTR & "}" & vbcrlf
tempSTR =tempSTR & "document." & myForm & "." & database
tempSTR =tempSTR & ".length=key[num].length;" & vbcrlf
tempSTR =tempSTR & "}" & vbcrlf

tempSTR =tempSTR & vbcrlf & "function Buildkey1" & "(num)" & vbcrlf
tempSTR =tempSTR & "{" & vbcrlf
tempSTR =tempSTR & "document." & myForm & "."
tempSTR =tempSTR & databaseqian & ".selectedIndex=0;" & vbcrlf
tempSTR =tempSTR & "for(ctr=0;ctrtempSTR =tempSTR & "{" & vbcrlf
tempSTR =tempSTR & "document." & myform & "." & databaseqian
tempSTR =tempSTR & ".options[ctr]=new Option(key1[document.myForm.aa.selectedIndex][num][ctr],"
tempSTR =tempSTR & "key1[document.myForm.aa.selectedIndex][num][ctr]);" & vbcrlf
tempSTR =tempSTR & "}" & vbcrlf
tempSTR =tempSTR & "document." & myForm & "." & databaseqian
tempSTR =tempSTR & ".length=key1[document.myForm.aa.selectedIndex][num].length;" & vbcrlf
tempSTR =tempSTR & "}" & vbcrlf
myfun=tempSTR


END sub
%>
<%
Re.Close()
%>