''''''帮忙修改成打开带密码的数据库的写法，假设密码是:abc123  谢谢老师帮忙！

     Set conn = CreateObject("ADODB.Connection")      '链接
     conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("kuu1.mdb")'设置数据库相对路径
     Set rs = CreateObject("adodb.recordset")
     rs.open "select * from 表名 where zmcm='" & trim(md5(zmcm)) & "'",conn,1,3'打开数据库搜索要查询的md5(zmcm)
     if  rs.eof then'如果无记录侧添加
         rs.addnew'新增加
         rs("zmcm") = trim(md5(zmcm))
         rs("day") = request("ti")
         rs.update
     else '已经存在
        Response.Write "已经存在,请重新住侧！"
    end if
    rs.close'关闭数据库
    conn.close '这几句是用来关闭数据库
 set rs=nothing
    set conn=nothing'释放对像

在连接字符串加就行了

谢谢！我知道在连接那一行写，就是不知道具体怎么写，请版主帮忙修改下写出来，我好参照这个可用例子分析他的格式，谢谢您了！

和我接触的不一样啊。。。

Jet OLEDB:Database Password=...;
亦或
User Id=admin; Password=...;

     Set conn = CreateObject("ADODB.Connection")      '链接
     '' conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("kuu1.mdb")'设置数据库相对路径
     conn.open "driver={microsoft access driver&nb sp;(*.mdb)};uid=admin;pwd=abc123;dbq=kuu1.mdb"  '改成这样正确吗?
      Set rs = CreateObject("adodb.recordset")
     rs.open "select * from 表名 where zmcm='" & trim(md5(zmcm)) & "'",conn,1,3'打开数据库搜索要查询的md5(zmcm)
      if  rs.eof then'如果无记录侧添加
          rs.addnew'新增加
          rs("zmcm") = trim(md5(zmcm))
          rs("day") = request("ti")
          rs.update
      else '已经存在
         Response.Write "已经存在,请重新住侧！"
     end if
     rs.close'关闭数据库
     conn.close '这几句是用来关闭数据库
set rs=nothing
     set conn=nothing'释放对像

测试下不就行了