醉翁之意不在酒,出现类似的提示,说明库操作有问题,而这个问题恰恰提示让人费解,原因是数据库发送了重复的库开启操作,上面的代码没有错,错在上面代码再上面一定是有一个类似的库操作过程,而恰恰是那个过程传递的参数错误或是参数类型错误,造成前一个库操作没有结束.
解决办法,查找本次库操作之前最后一次操作开启数据库的过程,并且这个过程一定是有一个返回值,这是出现此类问题的通病,要看上一个使用库操作函数并有返回值的最近一个过程,在这个过程里,使用跟踪返回值,可以看到错在哪里.

dim web_strlist

dim web_count ,iiii

cid=trim(request("cid"))

if cid=0 then

    OpenRs

    sql="select * from Web_Area where fid="&cid

    rs.open sql,conn,1,3

    if not rs.eof then



tmp= tmp & "      <select name='fid' id='fid' style='WIDTH: 250px;' onChange='showsx(this.options[this.selectedIndex].value)' >"

tmp= tmp & "      <option value="""" selected>请选择...</option>"

      do while not rs.eof

tmp= tmp & "        <option value="""&rs("id")&""">"&rs("name")&"</option>"

   

        rs.movenext

        loop

        CloseRs



tmp= tmp & "     </select>"

    end if%>

<%else%>

    <%

        openrs

        call web_show_list(cid,0)

        tmp= tmp & web_strlist

        tmp= tmp & web_count

    %>

<%end if%>

<%



Function web_show_list(id,id2)



    fid=getonevalue("Web_Area","fid","id="&id) '这里是出现类似楼主问题的原因所在

    sql="select * from Web_Area where fid="&id

    rs.open sql,conn '例如:这里提示如楼主的错误,解决位置在上面

    if not rs.eof then

        web_level=rs("level")

        str="<select name='addr"&rs("level")&"' onChange='showsx(this.options[this.selectedIndex].value)'>"

        do while not rs.eof

            if clng(id2)=clng(rs("id")) then

                selected="selected"   

            else

                selected=""

            end if

            str_1=str_1&"<option value='"&rs("id")&"' "&selected&">"&rs("name")&"</option>"

        rs.movenext

        loop

    end if

    rs.close

    str=str&str_1&"</select>"

    web_strlist=str&web_strlist



    if isnumeric(fid)=false then

        exit function

    else

        iiii=iiii+1

        web_count="<input type='hidden' name='acount' value='"&iiii&"'>"

        call web_show_list(fid,id)

        

    end if

   

End Function