怎么把下面列表中的值提交到另一个页面去显示出来,也就是做一个表单加一个提交按钮,另一个显示的 response.write"3:"&Request.form("这里怎么写")&"<BR>" 怎么?  请大家帮一下,先谢谢了!


<SCRIPT LANGUAGE="JavaScript">
<!--
function CreateSelect(_FormName,_SName,_SValue,_Ds,_AllOptionStr,ShowType)
{
    if (_FormName=="")
        _FormName = "all"
    var _DsArr = _Ds.split("|")
    var _Ds1,_Ds2,_Ds3
    var _Ds1 = _DsArr[0]
    var _Ds2 = (_DsArr.length>1)?_DsArr[1]:_DsArr[0]
    var _Ds3 = (_DsArr.length>2)?_DsArr[2]:_DsArr[0]

    var _SNameArr = _SName.split("|")
    var _SName1,_SName2,_SName3
    var _SName1 = _SNameArr[0]
    var _SName2 = (_SNameArr.length>1)?_SNameArr[1]:_SNameArr[0]
    var _SName3 = (_SNameArr.length>2)?_SNameArr[2]:_SNameArr[0]

    var _SValueArr = _SValue.split("|")
    var _SValue1,_SValue2,_SValue3
    var _SValue1 = _SValueArr[0]
    var _SValue2 = (_SValueArr.length>1)?_SValueArr[1]:_SValueArr[0]
    var _SValue3 = (_SValueArr.length>2)?_SValueArr[2]:_SValueArr[0]

    if (ShowType==3){
        _AllOptionStr = _AllOptionStr.replace(/\(\(/ig,"\(\("+_Ds3+"\^")
        _AllOptionStr = _AllOptionStr.replace(/\{\{/ig,"\{\{"+_Ds2+"\(\("+_Ds3+"\*\*")
    }
    else if(ShowType==2){
        _AllOptionStr = _AllOptionStr.replace(/\{\{/ig,"\{\{"+_Ds2+"\(\("+_Ds3+"\*\*")
    }
    else if(ShowType==1){
        _AllOptionStr = _AllOptionStr.replace(/\(\(/ig,"\(\("+_Ds3+"\^")
    }
    var AllStr = _Ds1 + "{{"+ _Ds2 + "(("+ _Ds3 +"||"+_AllOptionStr
    //alert(AllStr)
    var _AR0 = AllStr.split("||");
    document.writeln("<select name=\"" + _SName1 + "\" size=\"1\" onChange=\""+_SName1+"redirect(this.options.selectedIndex)\">");
    for (var i1 = 0;i1 < _AR0.length;i1++)
    {
        var Area1Str = _AR0[i1];
        var _AR10 = Area1Str.split("{{");
        var _AR11 = _AR10[0].split("@");
        var Tstr1 = _AR11[0];
        var Vstr1 = (_AR11.length==2)?_AR11[1]:_AR11[0]
        document.writeln("<option value=\""+Vstr1+"\">"+Tstr1+"<\/option>");
    }
    document.writeln("<\/select>");

    document.writeln("<select name=\"" + _SName2 + "\" size=\"1\" onChange=\""+_SName1+"redirect1(this.options.selectedIndex)\">");
    var _AR111 = _Ds2.split("@");
    var Tstr11 = _AR111[0];
    var Vstr11 = (_AR111.length==2)?_AR111[1]:_AR111[0];
    document.writeln("<option value=\""+Vstr11+"\">"+Tstr11+"<\/option>");
    document.writeln("<\/select>");

    document.writeln("<select name=\"" + _SName3 + "\" size=\"1\">");
    var _AR222 = _Ds3.split("@");
    var Tstr22 = _AR222[0];
    var Vstr22 = (_AR222.length==2)?_AR222[1]:_AR222[0];
    document.writeln("<option value=\""+Vstr22+"\">"+Tstr22+"<\/option>");
    document.writeln("<\/select>");

    document.writeln("<S"+"CRIPT LANGUAGE=\"JavaScript\" defer>");
    document.writeln("<!--");
    document.writeln("var "+_SName1+"NewAllStr = \""+ AllStr +"\"");
    document.writeln("var "+_SName1+"_AR0 = "+_SName1+"NewAllStr.split(\"||\");");
    document.writeln("var "+_SName1+"groups=document."+ _FormName +"." + _SName1 + ".options.length;");
    document.writeln("var "+_SName1+"group=new Array("+_SName1+"groups)");
    document.writeln("for (i=0; i<"+_SName1+"groups; i++){");
    document.writeln("    "+_SName1+"group[i]=new Array();");
    document.writeln("}");
    document.writeln("for (var i1 = 0;i1 < "+_SName1+"_AR0.length;i1++){");
    document.writeln("    var Area1Str = "+_SName1+"_AR0[i1];");
    document.writeln("    var _AR10 = Area1Str.split(\"{{\");");
    document.writeln("    var _AR12 = _AR10[1].split(\"**\");");
    document.writeln("    for (var i2 = 0;i2 < _AR12.length;i2++){");
    document.writeln("        var Area2Str = _AR12[i2];");
    document.writeln("        var _AR20 = Area2Str.split(\"((\");");
    document.writeln("        var _AR211 = _AR20[0].split(\"@\");");
    document.writeln("        var Tstr2 = _AR211[0];");
    document.writeln("        var Vstr2 = (_AR211.length==2)?_AR211[1]:_AR211[0];");
    document.writeln("        "+_SName1+"group[i1][i2]=new Option(Tstr2,Vstr2);");
    document.writeln("    }");
    document.writeln("}");
    document.writeln("var "+_SName1+"temp = document."+ _FormName +"." + _SName2);
    document.writeln("function "+_SName1+"redirect(x){");
    document.writeln("    for (m="+_SName1+"temp.options.length-1;m>0;m--)");
    document.writeln("    "+_SName1+"temp.options[m]=null;");
    document.writeln("    for (i=0;i<"+_SName1+"group[x].length;i++){");
    document.writeln("        "+_SName1+"temp.options[i]=new Option("+_SName1+"group[x][i].text,"+_SName1+"group[x][i].value);");
    document.writeln("    }");
    document.writeln("    "+_SName1+"temp.options[0].selected=true");
    document.writeln("    "+_SName1+"redirect1(0)");
    document.writeln("}");
    document.writeln("var "+_SName1+"Group2s=document."+ _FormName +"." + _SName2 + ".options.length;");
    document.writeln("var "+_SName1+"Group2=new Array("+_SName1+"groups);");
    document.writeln("for (i=0; i<"+_SName1+"groups; i++){");
    document.writeln("    "+_SName1+"Group2[i]=new Array("+_SName1+"group[i].length)");
    document.writeln("    for (j=0; j<"+_SName1+"group[i].length; j++){");
    document.writeln("        "+_SName1+"Group2[i][j]=new Array()");
    document.writeln("    }");
    document.writeln("}");
    document.writeln("for (var i1 = 0;i1 < "+_SName1+"_AR0.length;i1++){");
    document.writeln("    var Area1Str = "+_SName1+"_AR0[i1]");
    document.writeln("    var _AR10 = Area1Str.split(\"{{\");");
    document.writeln("    var _AR12 = _AR10[1].split(\"**\");");
    document.writeln("    for (var i2 = 0;i2 < _AR12.length;i2++){");
    document.writeln("        var Area2Str = _AR12[i2]");
    document.writeln("        var _AR20 = Area2Str.split(\"((\");");
    document.writeln("        _AR212 = _AR20[1].split(\"^\");");
    document.writeln("        for (var i3 = 0;i3 < _AR212.length;i3++){");
    document.writeln("            Area3Str = _AR212[i3]");
    document.writeln("            _AR3 = Area3Str.split(\"@\");");
    document.writeln("            Tstr3 = _AR3[0]");
    document.writeln("            Vstr3 = (_AR3.length==2)?_AR3[1]:_AR3[0]");
    document.writeln("            "+_SName1+"Group2[i1][i2][i3]=new Option(Tstr3,Vstr3);");
    document.writeln("        }");
    document.writeln("    }");
    document.writeln("}");
    document.writeln("var "+_SName1+"temp1=document."+ _FormName +"." + _SName3 + "");
    document.writeln("function "+_SName1+"redirect1(y){");
    document.writeln("    for (m="+_SName1+"temp1.options.length-1;m>0;m--)");
    document.writeln("    "+_SName1+"temp1.options[m]=null");
    document.writeln("    for (i=0;i<"+_SName1+"Group2[document."+ _FormName +"." + _SName1 + ".options.selectedIndex][y].length;i++){");
    document.writeln("        "+_SName1+"temp1.options[i]=new Option("+_SName1+"Group2[document."+ _FormName +"." + _SName1 + ".options.selectedIndex][y][i].text," + _SName1 + "Group2[document."+ _FormName +"." + _SName1 + ".options.selectedIndex][y][i].value)");
    document.writeln("    }");
    document.writeln("    "+_SName1+"temp1.options[0].selected=true");
    document.writeln("}");
    document.writeln("\/\/-->");
    document.writeln("<\/script>");
    document.writeln("<s"+"cript language=\"JavaScript\">");
    document.writeln("<!--");
    document.writeln("function "+_SName1+"SetValue(){");
    document.writeln("    try{");
    document.writeln("        if (\""+_SValue1+"\"!=\"\"){");
    document.writeln("            document."+ _FormName +"."+_SName1+".value=\""+_SValue1+"\"");
    document.writeln("            "+_SName1+"redirect(document."+ _FormName +"."+_SName1+".options.selectedIndex);");
    document.writeln("            if (\""+_SValue2+"\"!=\"\"){");
    document.writeln("                document."+ _FormName +"."+_SName2+".value=\""+_SValue2+"\"");
    document.writeln("                "+_SName1+"redirect1(document."+ _FormName +"."+_SName2+".options.selectedIndex)");
    document.writeln("                if (\""+_SValue3+"\"!=\"\")");
    document.writeln("                    document."+ _FormName +"."+_SName3+".value=\""+_SValue3+"\"");
    document.writeln("            }");
    document.writeln("        }");
    document.writeln("    }");
    document.writeln("    catch(e){");
    document.writeln("    }");
    document.writeln("}");
    document.writeln("window.attachEvent(\"onload\","+_SName1+"SetValue)");
    document.writeln("\/\/-->");
    document.writeln("<\/script>");
}
//-->
</script>
<%
set conn=Server.CreateObject("ADODB.Connection")
dbpath=Server.MapPath("db1.mdb")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & dbpath

dim SelectStr
SelectStr = ""
dim sql1,sql2,sql3
dim rs1,rs2,rs3
dim i1,i2,i3


'使用缓存,application("liststr"),将添加,编辑或删除一个数据时,用application("liststr") = empty清空缓存
application("liststr") = empty
if isempty(application("liststr")) then
    '//一级分类开始
    sql1 = "select c1id,c1name from class1"
    set rs1 = conn.execute(sql1)
    i1 = 0

    while not rs1.eof
        if i1 > 0 then
            SelectStr = SelectStr & "||"
        end if
        SelectStr = SelectStr & rs1("c1name") & "{{"
        '显示与值不同时,用下面一行
        'SelectStr = SelectStr & rs1("c1name") & "@"& rs1("c1id") &"{{"

        '//二级分类开始
        sql2 = "select c2id,c2name from class2 where c1name = '"& replace(rs1("c1name"),"'","''") &"'"
        set rs2 = conn.execute(sql2)
        i2 = 0
        while not rs2.eof
            if i2 > 0 then
                SelectStr = SelectStr & "**"
            end if
            SelectStr = SelectStr & rs2("c2name") & "(("
            '显示与值不同时,用下面一行
            'SelectStr = SelectStr & rs2("c2name") & "@"& rs2("c2id") &"(("


            '//三级分类开始
            sql3 = "select c3id,c3name from class3 where c2name = '"& replace(rs2("c2name"),"'","''") &"'"
            set rs3 = conn.execute(sql3)
            i3 = 0
            while not rs3.eof
                if i3 > 0 then
                    SelectStr = SelectStr & "^"
                end if
                SelectStr = SelectStr & rs3("c3name")
                '显示与值不同时,用下面一行
                'SelectStr = SelectStr & rs3("c3name") & "@" & rs3("c3id")

                i3 = i3 + 1
            rs3.movenext
            wend
            rs3.close
            set rs3 = nothing
            '//三级分类结束


            i2 = i2 + 1
        rs2.movenext
        wend
        rs2.close
        set rs2 = nothing
        '//二级分类结束


        i1 = i1 + 1
    rs1.movenext
    wend
    rs1.close
    set rs1 = nothing
    application("liststr") = SelectStr
end if
'//一级分类结束
%>

<SCRIPT LANGUAGE="JavaScript">
<!--
var AllStr1 = "<% = application("liststr") %>"
//-->
</SCRIPT>

<FORM name="HwForm">
<HR>选择一次<br>
<SCRIPT LANGUAGE="JavaScript">
CreateSelect("","S_13|S_23|S_33","","请选择地区@|请选择省份@|请选择城市@",AllStr1,0);
</SCRIPT>

</FORM>