代码: |
<% "this program is testing the ADO"s Error object Dim i Set conn=Server.CreateObject("ADODB.Connection") conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ=" _ &Server.Mappath("/source_asp")&"/property/employee.mdb;" conn.open if conn.errors.count>0 then response.write "connection to database cause problem!"&"<br>" for i =0 to conn.errors.count-1 response.write conn.errors.item(i)&"<br>" next else response.write "connection to database successfully!" end if conn.close %> |