第一段：
<select name="fline" size="1">
                  <option value="" selected>请选择</option>
          <%set rs2=server.createobject("adodb.recordset")
           sql2="select * from fline"
           rs2.open sql2,conn,1,1
           if not rs2.eof then
           do while not rs2.eof%>
                  <option value="<%=rs2("fline")%>"><%=rs2("fline")%></option>
      <%rs2.movenext
            loop
            end if
            rs2.close
            set rs2=nothing
            %></select>
第二段：
    <select name="fline" onChange="changelocation(document.myform1.fline.options[document.myform1.fline.selectedIndex].value)">
      <option selected value="">==一级==</option>
      <%
        
        sql1 = "select * from fline order by fline asc"
        set rs1 = conn.Execute (sql1)
        do while not rs1.eof
        %>
      <option value="<%=rs1("flineid")%>"><%=rs1("fline")%></option>
      <%
        rs1.movenext
        loop
        rs1.close
        set rs1 = nothing
        conn.Close
        set conn = nothing
        %>
    </select>
第一段是普通的下拉栏代码，第二段是我找的三级联动的下拉栏代码。在一个网页的两个表单中，我用第二段代码代替第一段代码后，第一段代码所在的网页ASP就没法打开了。请问哪位高手能解决一下啊！！！
两端代码放在一个网页中的两个表单内，测试都一切正常！

你可以去VB板块去问这个问题，这里是，不是asp
关于你遇到的问题，我估计是你这个页面包含了两个方法的定义变量，去另一个页面代码不全。
至于代码就要去问VB里的人了，我是看到程序代码和html页面混在一起就没耐心看下去了。