<%
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='999';Mode=Share Deny Read|Share Deny Write;Data Source=" & server.MapPath("test.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
conn.Execute "Alter Database password 888 999"

response.write "密码修改成功"
%>