ADODB.Recordset 错误 '800a0e7d' 
连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。 

/People_new/index.asp，行 380 


<% session.Timeout=5
   Set Conn = Server.CreateObject("ADODB.Connection") 
   'Conn1.Open "Driver=SQL Server;Server=127.0.0.1;UID=hx88;PWD=hotdoor;Database=People;Connect ct Timeout=30" 
       set conn1=server.createobject("adodb.connection")
    DBPath = Server.MapPath("/people_new/parttime/parttime.mdb")
    conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>

 <% set rs=server.createobject("adodb.recordset")
                 sql="select * from zp where Zpost<>'""' and zjob<>'""' order by Zid desc"
                [b]这是第380行[/b][/b][/b][u]rs.open sql,conn,1,[/u]1
                jobnum=rs.recordcount
                rs.close
                sql="select top 32 * from company where Cname<>'""' order by Clasttime desc"
                rs.open sql,conn,1,1
                r1=rs.recordcount
                c=0%>
                <% do while not rs.eof %>
                <TR valign="middle">