<%
dim conn,connstr
set conn=Server.CreateObject("ADODB.Connection")
pwd=""
Connstr="DBQ="+server.mappath("logona/logona.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};pwd="+pwd
conn.Open connstr
sub connclose()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>
这是我改过以后的。下面再发一个以前的。两个都可以用。不知为何上传到公司的服务器上就不行了。
<%
dim db
const DatabaseType="ACCESS"
db="logona\logona.mdb"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>