conn.asp

寝室管理文档 网站目的： 为了更好的管理寝室同学们的信息资料

<%
'连接数据库开始
dim conn,rs,str
on error resume next
set conn=server.createobject("adodb.connection")
'conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source=E:\宿舍\userinfo.mdb"
 str= "Driver={microsoft access driver (*.mdb)};dbq="&server.mappath("userinfo.mdb")
 conn.open str
if err then
err.clear
set conn = Nothing
response.write "数据库连接出错，请检查conn.asp中的连接字符串。"
response.end
End if
'创建记录对象
set rs=server.createobject("adodb.recordset")

%>