<%@ Language="VBScript"%> 
  <%    
  '-------   利用ADOX取得Access中字段的说明   ---------------    
  Function   OpenConnectionWithString(strMDBPath,   strTableName,   strColName)    
        Dim cat      
        Set cat = server.CreateObject("ADOX.Catalog")    
        cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&strMDBPath    
        OpenConnectionWithString = cat.Tables(strTableName).Columns(strColName).Properties("Description").Value    
        Set cat = Nothing    
  End Function    
     
 response.charset="gb2312"  
 

		
 
 response.Write   OpenConnectionWithString(server.MapPath("test.mdb"),   "test",   "a1")  
   
 response.Write   OpenConnectionWithString(server.MapPath("test.mdb"),   "test",   "a2")  
  %> 