环境： ie11、win8.1 x64

    推荐教程： 

        其他的，如何开启IIS，access使用。都是些基础或者了解下的东西。用到自己搜吧。

    1、首先呢，使用脚本VBScript。Firefox不支持，只能使用IE了。

        由于需要调试，查看服务器出错等信息。需要设置下IE。

        “设置”-》“Internet选项”-》“高级”-》取消“显示友好http错误消息”

        这样就有可能看到，服务器错误信息。还需要设置下服务器。

    2、IIS设置显示，错误信息

        点选相应网站，找到“asp”图标。在“编译”-》“调试属性”-》“将错误发送到浏览器”属性改为“True”

        这样浏览器就不会只是显示，“http 500 服务器内部错误”。而是显示具体的错误信息。

    3、错误信息

ADODB.Connection 错误 '800a0e7a' 未找到提供程序。该程序可能未正确安装。 /index.asp，行 4

        查找得知，是 win7,8 x64的原因。

        在服务器。“应用程序池”-》“设置应用程序池默认设置”-》“常规”-》“启用32位程序”属性 改为 “True”。即可正常连接access数据库了。

    4、asp，access 乱码问题解决

    1、数据库连接代码

<%    set conn = Server.CreateObject("ADODB.Connection")    conn.Provider = "Microsoft.Jet.OLEDB.4.0"    conn.Open "D:\data.mdb"    '数据库的连接可以使用 直连access，为了数据安全，一般使用odbc连接。%>

简单的demo

1、index.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%Session.CodePage = 65001%><%'建立ADO连接''数据库 需设置 绝对路径'set conn = Server.CreateObject("ADODB.Connection")conn.Provider = "Microsoft.Jet.OLEDB.4.0"conn.Open "D:\inetpub\wwwroot\data.mdb"%><%'创建ADO SQL 记录集'set rs=Server.CreateObject("ADODB.recordset")rs.Open "select title, content, created_date from notepad", conn%>
    
         
         
     
              table.gridtable {            font-family: verdana,arial,sans-serif;            font-size:11px;            color:#333333;            border-width: 1px;            border-color: #666666;            border-collapse: collapse;        }        table.gridtable th {            border-width: 1px;            padding: 8px;            border-style: solid;            border-color: #666666;            background-color: #dedede;        }        table.gridtable td {            border-width: 1px;            padding: 8px;            border-style: solid;            border-color: #666666;            background-color: #ffffff;        }        
      
               
       
                                    
        标题                
        
                                                 
         内容                
         
                                                                                      
          
                               
           
                                                        
            
            
            
    
            
                         <%for each x in rs.Fields        Response.write("" & x.name & "")      next%>            <%do until rs.EOF%>                <%for each x in rs.Fields%>          <%Response.write(x.value)%>        <%next        rs.MoveNext%>              <%loop      rs.close      conn.close%>    
            
           
          
         
        
       
      
     
    

2、add.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%Session.CodePage = 65001%>
    
     <%    '建立ADO连接'    '数据库 需设置 绝对路径'    set conn = Server.CreateObject("ADODB.Connection")    conn.Provider = "Microsoft.Jet.OLEDB.4.0"    conn.Open "D:\inetpub\wwwroot\data.mdb"    sql="INSERT INTO notepad (title, content)"    sql=sql & " VALUES "    sql=sql & "('" & Request.Form("title") & "',"    sql=sql & "'" & Request.Form("content") & "')"    on error resume next    conn.Execute sql,recaffected    if err<>0 then        Response.Write(sql)          Response.Write("
     
     
      执行失败！")    else         Response.Write(sql)        Response.Write("
      
      
       已执行，并添加至数据库！")        Response.Redirect "index.asp"    end if    conn.close%>