www.gusucode.com > 盐城分类信息网asp源码程序 > inc/conn.asp

    <% 
dim conn,mdbfile 
mdbfile=server.mappath("REWEWRTERT/mdb.mdb") 
set conn=server.createobject("adodb.connection") 
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=lgwzjscn;dbq="&mdbfile
sub closedb()
conn.close
set rs=nothing
set conn=nothing
end sub
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<script Language=javascript>location.href = '我休息会,马上就好,请稍后访问！';</script>"
Response.End
End If 
%>