这是第一个程序：<% Option Explicit %>







    

SHOW A TABLE

    <%
    Dim db,conn
    Set db=Server.Createobject("ADODB.Connection")
    conn="DBQ="+ server.mappath("message1.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
    db.open conn
    Dim strSql,rs
    strSql="Select * from pass"
    set rs=server.createobject("adodb.recordset")
    rs.open strsql,conn,1,3
    set rs=db.Execute(strSql)
    %>
    
    "add a record"
    
        <%
        do while not rs.eof
        %>
            
            
            
            
            
            
        <%
            rs.Movenext
            loop
        %>
                
    

<%=rs("name")%>

<%=rs("pwd")%>

<%=rs("email")%>

<%=rs("person")%>

    


这是第二个

<% Option Explicit %>
<% Response.Buffer=true %>







    

INSERT A NEW RECORD

    
    
        
            
                
            
            
                
            
            
            
            
            
            
            
            
                
            
        
    

姓    名
密    码
电子信箱
persion

    
    <%
    if Request("name")<>"" then
        Dim db,strSql,name,pwd,email,person
        Set db=Server.Createobject("ADODB.Connection")
        conn="DBQ="+server.mappath("message1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     db.open conn
name=Request("name")
     pwd=Request("pwd")
email=Request("email")
person=Request("person")
strSql="insert into link(name,pwd,email,person) values('"&name&"','"&pwd&"','"&email&"','"&person&"')"
        db.Execute(strSql)
        Response.Redirect("aa6-1.asp")
    end if
    %>        


最后运行时说第二个程序的db.open conn这行有错误