conn.asp

一个用asp实现简单的小型OA系统

<%
Dim conn, ConnStr
db = "data/#oadata.mdb"
'设置连接数据库方式：数据库驱动、连接服务器、用户名、密码、数据库名、
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) '连接Access数据库
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open ConnStr

If Err Then
    Err.Clear
    Set conn = Nothing
    Response.Write "数据连接错误!"
    Response.End()
End If
%>