conn.asp

实现系统登陆功能和系统登陆日志管理功能。适合初学者。

<%
dim conn,connstr,dbpaths
dbpath="data/database.mdb"    '数据库路径
connstr="Provider=Microsoft.Jet.OLEDB.4.0;data source="&server.mappath(dbpath)
set conn=server.createobject("adodb.connection")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "连接数据库出错，请检查连接字串。"
Response.End
End If

Sub CloseConn()
 conn.close
 set conn=nothing
End Sub
%>