% @LANGUAGE = VBScript %> <% Option Explicit Dim objConn,strConn on error resume next Set objConn = Server.CreateObject("ADODB.Connection") strConn = "DBQ="& Server.MapPath("zjup_db.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};" objConn.open strConn %>
![]() |
||||||||||||||||||||||
|
||||||||||||||||||||||
|